hallo-2007 の回答履歴

ファイル[testBOOK]の中に(sheet1)(sheet2)があり (sheet2)は非表示,ブック保護されています。 (sheet1)にあるマクロAAボタンで ・[図A]を非表示 ・[図B]を表示 ・マクロBBを実行 するようになっています。 --------------------------------------- Sub AA() '≪非表示≫ ActiveSheet.Shapes("図A").Visible = False '≪表示≫ ActiveSheet.Shapes("図B").Visible = True 'ブック保護解除 ActiveWorkbook.Unprotect 'マクロBB実行 Sheets("sheet2").Visible = True Sheets("sheet2").Select Application.Run "testBook.xlsm!BB" ActiveWindow.SelectedSheets.Visible = False 'ブック保護 ActiveWorkbook.Protect End Sub ---------------------------------------- マクロBBとは[sheet2]の中にある ・[図A]を非表示 ・[図B]を表示 です。 上記のマクロを実行させると(sheet2)が瞬間的に表示されてしまうのですが、 これを表示させないようにすることはできないでしょうか？

エクセルです。 もともと、西暦年、月、日が別々に入っていたセルがあったので、 これをくっつけて、2011/1/1のようにしました。 そのためか、和暦に変えようと、セルの書式設定で日付で変更してもできません。 これを和暦にするには、どうすればいいでしょうか。

ExcelVBAでスケジュール管理 ExcelVBAを使い、プロジェクトの進捗状況を管理する資料を作成したいと考えております。 私の知識や検索能力では限界があるため、皆様のお知恵をお借りしたいです。よろしくお願いします。 文章での説明では伝わらないと思うので、画像を見て頂けると幸いです。 要望としては、予定開始日、予定終了日に日付を入れると、日付の範囲にオブジェクトが自動で貼り付けられるようにしたいです。 参考になるサイトや、ソースがあればご教授頂きたいです。 Excelのバージョンは2003になります。 よろしくお願いいたします。

エクセルで特定の列の2～10行目に対して、ある作業をする場合、列を指定する方法は以下のどれがいいでしょうか？あるいはもっといい方法があれば教えてください。 実際には列は約40列（固定）、行は1～2万行（変動）程度で、作業はもっと複雑です。 Sub test01() Dim col Dim i As Long, n As Long For Each col In Array(1, 3, 7, 8, 11) '列番号で指定 For i = 2 To 10 n = n + 1 Cells(i, col).Value = n Next i Next col End Sub Sub test02() Dim col Dim i As Long, n As Long For Each col In Array("A", "C", "G", "H", "K") '列の記号で指定 For i = 2 To 10 n = n + 1 Cells(i, col).Value = n Next i Next col End Sub Sub test03() Dim col Dim i As Long, n As Long For Each col In Range("A2,C2,G2,H2,K2") 'セルで指定 For i = 2 To 10 n = n + 1 col.Offset(i - 2).Value = n Next i Next col End Sub

関数、数式、VBAを使って作業効率とミスを防ぎたいので 知っている方法があれば教えていただきたいのですが 便利な機能があれば教えてください。 また下記のような対応はエクセル上可能でしょうか。？ (1)A10のセルに文字または数字を入力したら B10に今の時間を表示する。 (2)関数などで記入漏れを探すにはどうしたらいいでしょうか？ (3)事務作業で便利機能やソフトはあれば教えてください。 (4)私はこういった本を読んでエクセルを使いこなした、などありましたら 教えてください。 (5)コールセンターで働いてますが入電内容ををエクセルに入力しています。 効率のいい方法があれば教えてください。

関数、数式、VBAを使って作業効率とミスを防ぎたいので 知っている方法があれば教えていただきたいのですが 便利な機能があれば教えてください。 また下記のような対応はエクセル上可能でしょうか。？ (1)A10のセルに文字または数字を入力したら B10に今の時間を表示する。 (2)関数などで記入漏れを探すにはどうしたらいいでしょうか？ (3)事務作業で便利機能やソフトはあれば教えてください。 (4)私はこういった本を読んでエクセルを使いこなした、などありましたら 教えてください。 (5)コールセンターで働いてますが入電内容ををエクセルに入力しています。 効率のいい方法があれば教えてください。

同じ仕事場ではない方に相談するのもなんですが やることが増えて業務改善をしないとミスばかりになりそうです。 原因 作業時間などの計画を立てているが 業務上、ミスが出たり作業効率で悪く業務がが遅れてしまう。 原因 (1)ミスを防ぐための確認作業ばかりで確認作業に時間がかけられなくなる (2)コールセンターでお客様の受電案件に折り返し案件の他 メールでのキャリアのやり取りなどあり、相手のペース重視なので、やる事が思うように 進まず作業や案件が前に進まずに仕事がたまりやすくなると優先順位がわからなくなってしまう。 (3)思い込みのミスが多く作業が雑になりがち、また瞬時に対応を変えるため（Aのコンテンツの以来メールを出している間にBのコンテンツのお客さまから電話がかかり作業の手を止めないといけないなど）頭の切り替えが難しい。 以上の原因が考えられますが それを改善するための方法が思いつきません。 確認作業に時間をかけないやり方はないか？ 優先順位をどう決めればいいか？ 優先順位を迷ったときはどう相談すればいいか？ 業務フローの改善で改善する点はどれか？ 頭の切り替えをうまくするにはどうしたらいいか？ 考えていますがどうしたらいいのかわかりません。 何かいい改善策をお持ちの方がいらっしゃいましたら教えてください。 お願いいたします。

同じ仕事場ではない方に相談するのもなんですが やることが増えて業務改善をしないとミスばかりになりそうです。 原因 作業時間などの計画を立てているが 業務上、ミスが出たり作業効率で悪く業務がが遅れてしまう。 原因 (1)ミスを防ぐための確認作業ばかりで確認作業に時間がかけられなくなる (2)コールセンターでお客様の受電案件に折り返し案件の他 メールでのキャリアのやり取りなどあり、相手のペース重視なので、やる事が思うように 進まず作業や案件が前に進まずに仕事がたまりやすくなると優先順位がわからなくなってしまう。 (3)思い込みのミスが多く作業が雑になりがち、また瞬時に対応を変えるため（Aのコンテンツの以来メールを出している間にBのコンテンツのお客さまから電話がかかり作業の手を止めないといけないなど）頭の切り替えが難しい。 以上の原因が考えられますが それを改善するための方法が思いつきません。 確認作業に時間をかけないやり方はないか？ 優先順位をどう決めればいいか？ 優先順位を迷ったときはどう相談すればいいか？ 業務フローの改善で改善する点はどれか？ 頭の切り替えをうまくするにはどうしたらいいか？ 考えていますがどうしたらいいのかわかりません。 何かいい改善策をお持ちの方がいらっしゃいましたら教えてください。 お願いいたします。

Excel2007の添付図にて、 参加コードの１は参加、０はキャンセル、空白は申し込みなし。 この表から男女別参加者数を求めたい。 ここで男はADFの３名となる。

VBAで2003を使っています。 マクロの実行をショートカットキーで操作したいのですが ツール→マクロ→オプションでショートカットキーの作成が可能ですが 会社（エクセル2003)のでやろうとすると オプションの表示がありません。 （もしかしたら2003ではないのかもしれませんが、確認した範囲では 2003かと思われます。2010とかいいのではないのは確かです。） ショートカットキーを作る方法でどのような方法が 他にありますか？教えてください。 お願いいたします。

命令文： シート名：商品売上げのセルB16に入っている数字と シート名：売り上げのセルC16に入っている数字が同じなら メッセージBOXに○を表示させる そうでなければ メッセージBOXに×を表示させる ↓ Sub 売り上げ() Set WS1 = Worksheets("売上") Set WS2 = Worksheets("商品売上") If WS1.Range("C16") = WS2.Range("B16") Then MsgBox "○" Else MsgBox "×" End If End Sub この作業をマクロの実行を押さずにショートカットキーで 作業を可能にするには どういった命令文または操作でショートカットキーでの表示がかのでしょうか。 (ショートカットキーを押すことで○×の表示を出すにはどうしたらいいでしょうか？） また、同じシート内でB16のセルとC16のセル、D15が同じ場合は メッセージボックスに○そうでない場合は×の場合は Sub 売り上げ2() Worksheets("商品売上") If Range("B16") = Range("C16") =Range("D15") Then MsgBox "○" Else MsgBox "×" End If End Sub だけでいいんでしょうか？ 詳しい方教えてください。 今、仕事でミスが多くプログラミングでどうにか ミスを防げないか工夫したいのですが まだ、習いたてでよくわかりません。 お手数が教えていただけませんでしょうか。 よろしくお願いいたします。

複数のセルにある数値の一番最大値を別のセルに表示させる方法を教えてください。 例えば、 A1　９７、　A2　９２、　A3　８９　3つのセルの最大値はA1　９７で、これをA4のセルに９７と表示させる。 どなたか教えてください。よろしくお願いします。

エクセルで利益率の差額が大きく売上数が多い商品を抽出したいです。 質問は３点あります。 １．エクセルのタブに「入力」と「出力」という２つのタブを用意します。 入力タブのＡ１に商品名、Ｂ１に売掛金、Ｃ１に原価と直接入力して、 Ａ２以下に入力すると出力タブのＡ２以下に転記される方法を教えてください。 　　（入力タブに入力した値を出力タブに表示する方法） ２．エクセルの入力タブに「追加ボタン」を設置して、 　　追加ボタンを押すと入力タブと出力タブに１行が追加される方法を教えてください。 　　（ボタンの設置方法と行数の増やす方法） 　　｜レコード追加｜ ３．出力タブの売掛金と原価から開きが大きく、 　　かつ売り上げ数上位１０位まで、２０位まで、３０位までの商品レコードを 　　抽出して行に色を付けるラジオボタンの設置方法を教えてください。 　　（ラジオボタンの設置方法と抽出して行に色を付ける方法） 　　｜◎１０位　○２０位　○３０位｜ 以上です。 よろしくお願いします。

エクセルで利益率の差額が大きく売上数が多い商品を抽出したいです。 質問は３点あります。 １．エクセルのタブに「入力」と「出力」という２つのタブを用意します。 入力タブのＡ１に商品名、Ｂ１に売掛金、Ｃ１に原価と直接入力して、 Ａ２以下に入力すると出力タブのＡ２以下に転記される方法を教えてください。 　　（入力タブに入力した値を出力タブに表示する方法） ２．エクセルの入力タブに「追加ボタン」を設置して、 　　追加ボタンを押すと入力タブと出力タブに１行が追加される方法を教えてください。 　　（ボタンの設置方法と行数の増やす方法） 　　｜レコード追加｜ ３．出力タブの売掛金と原価から開きが大きく、 　　かつ売り上げ数上位１０位まで、２０位まで、３０位までの商品レコードを 　　抽出して行に色を付けるラジオボタンの設置方法を教えてください。 　　（ラジオボタンの設置方法と抽出して行に色を付ける方法） 　　｜◎１０位　○２０位　○３０位｜ 以上です。 よろしくお願いします。

エクセルで利益率の差額が大きく売上数が多い商品を抽出したいです。 質問は３点あります。 １．エクセルのタブに「入力」と「出力」という２つのタブを用意します。 入力タブのＡ１に商品名、Ｂ１に売掛金、Ｃ１に原価と直接入力して、 Ａ２以下に入力すると出力タブのＡ２以下に転記される方法を教えてください。 　　（入力タブに入力した値を出力タブに表示する方法） ２．エクセルの入力タブに「追加ボタン」を設置して、 　　追加ボタンを押すと入力タブと出力タブに１行が追加される方法を教えてください。 　　（ボタンの設置方法と行数の増やす方法） 　　｜レコード追加｜ ３．出力タブの売掛金と原価から開きが大きく、 　　かつ売り上げ数上位１０位まで、２０位まで、３０位までの商品レコードを 　　抽出して行に色を付けるラジオボタンの設置方法を教えてください。 　　（ラジオボタンの設置方法と抽出して行に色を付ける方法） 　　｜◎１０位　○２０位　○３０位｜ 以上です。 よろしくお願いします。

京セラ　エコノツール４．６ｋｗの設置費用２０６万円は妥当ですか？国の補助金を引いた金額です。 ちなみに切り妻、南向きでオール電化ですが、１０年の保障期限内に元は取れるでしょうか？

今回、社内の営業情報等を管理するデータベースをAccessで作ることになりました。 が、本格的にデータベースの設計等を行ったことがなく、どのようにしていったら良いのか困っております。 初めてデータベースを設計するのに参考になりそうなサイトや参考書があれば教えてください。 宜しくお願いいたします。

以前の質問で解決できなかったので再度質問いたします。 差込印刷で、差込のフィールド数がページによって異なる場合の差込印刷はできないのでしょうか。 例えば、次のようなデータファイル(エクセル）をもとに、顧客ごとにワードで請求書を作成する場合、差込印刷を使うことはできないのでしょうか。 顧客名 商品名　数量　小計 ------------------------- A社　　商品X1　10個　Y1円 A社　　商品X2　 5個　Y2円 B社　　商品X1　12個　Y3円 B社　　商品X3　22個　Y4円 B社　　商品X4　 8個　Y5円　 こういう使い方は結構あると思うのですが・・・ もし、差込印刷が使えなければ、他に良い方法はありますか？ エクセルのオートフィルタで表示はできますが、請求書として印刷したいのです。 他の方法としてマクロを使えばできそうですが、マクロは少し苦手です。 　WindowsXPでOffice2000を使用しています。

　今晩は，質問させていただきます．どうぞよろしくお願いいたします． 　Win7 + Excel2007でございます。 　B～D列の、1～300,000行程にデータが入っており、グラフ化する際に重いです。 そこでこれを周期的に間引く為に （例えば、10行消して1行残す→また10行消して・・・の繰り返し）、 .Range(.Cells(行1, 2), .Cells(行2, 4)).Delete Shift:=xlUp を繰り返すコードを作成いたしました。 が、非常に動作が遅く、数千行実行するのにも暫く時間がかかるほどでございます。。。 　原因を解明すべく検索いたしておりますと、VBAの中でもデータ削除が原因で マクロ動作が遅くなるケースは珍しく無いようでございます。 他のコーディング方法で何か、上記より早い方法というのは あるのでございますでしょうか？ 　もしお詳しい方がいらっしゃいましたら，是非アドバイスいただけないでしょうか。 どうぞよろしくお願いいたします。

スキューバダイビングを趣味でやるのですが、ログブックではなくマイクロソフトアクセスでデータベース化できないかと試行錯誤して作っています。 本数や天候などを入れるところは作れたのですが、クエリで潜水時間を計算させようと「エントリー時間」「エキジット時間」を入力させ、引き算で求めさせたいのになかなかうまくいきません。 どうしても小数点で０．００００２５６８…みたいな値になってしまいます。 時間の計算方法を教えてほしいです。よろしくお願いします。