【Excel VBA】ThisWorkbook モジュールのマクロ

Question

Excel2003を使用しています。

39枚のシートから成るBook1のThisWorkbook モジュールに、C列に“○月計”と入力されたら、その行のE列、F列、G列へ数式を入力するコードを書いています。

現在は、それぞれのシート(39枚のシートのうち3枚を除く36枚)のC列最終行から2行下のセルへ“○月計”と手入力していますが、マクロで“○月計”と入力されるようにすれば、ThisWorkbook モジュールに書いているコードも実行されて、数式の入力までマクロで処理できるのかな？と思い、試しに、36枚それぞれシートのC列最終行から2行下のセルへ“○月計”と入力されるようコードを書いてみました。

…が、そうではないのか、それぞれのシートのC列最終行から2行下のセルへ“○月計”と入力されるものの、E列、F列、G列へ数式は入力されません。

せっかくなので、できることなら数式の入力までマクロで処理したいのですが、どのようにしたらThisWorkbook モジュールに書いているコードまで実行されるのでしょうか？
よろしくお願いします。

fujillin · Accepted Answer

No2です。

＜方法1＞
（No1様の回答の前半の方法）
・Macro1の処理内（End Withの前）に、 Workbook_SheetChangeの処理
　内容をそのまま入れてしまう。（コピペでも良い）
・そのままだと処理がうまくつながらないので、データの受け渡し部分
　を修正。
　Dim shName As String
　shName = Sh.Name
　　　　↓
　Dim shName As String, Target as Range
　shName = .Name
　Set Target = .Cells(LastR, "C")
みたいな感じ。


＜方法2＞
（No2の回答内容：基本的には方法1と同じ）
・Private Sub Workbook_SheetChangeはイベント用サブルーチン名の
　予約語なので、別の適当な名に変更する。（例えば： Sub Test)
・Macro1のループ内から<方法1＞でコードをコピペした変わりに、↑の
　Sub Testを呼び出すようにする。
　Call Test(Worksheets(shNum), .Cells(LastR, "C"))

注）
1）もしもMacro1が、ThisWorkbookモジュール以外にある場合は＜方法2＞
　のままではサブルーチンコールができません。
　Macro1をThisWorkbookモジュールに移動するか、Testを標準モジュール
　に移動します。
　TestとMacro1が同じモジュール内にあるならそのままでOKですが、
　違うモジュールにおく場合（Module1とModule2など）、はTestの前の
　Private宣言をはずしてください。
2）Targetは多分予約語ではないと思いますが（未確認）、できれば他の
　変数名にしておいた方が安全かも…

imogasi · Answer

#4です。
＞他のBook からの貼り付けたデータシート等も含まれており、全シート処理は避けたほうがいいかと
ー
For　Nextでも、
除外するシートをスキップしたら仕舞いでしょう。
私の例でも
If Sh.Name <> "Sheet1" Then '除外シートの除外
とわざわざ１つは除外して、例の一片を示したつもりです。
数シートならIfとORで除外シート名の該当を探し、より分けるとか、除外シート名のArrayをつくるとかで１０シートぐらいまでなら、不細工なコードにならず出来ると思う。

imogasi · Answer

>最終行から2行下のセルへ“○月計”と手入力していますが
入力データの最終行の２行下でしょうね。
＞C列に“○月計”と入力されたら
はチェンジされたセルがC列で、そのセルの値が“○月計”なら、同行のE,F,Gに数式を入れる。これはたやすい。
ーーー
しかし
列に“○月計”をVBAで入れるなら、データの入力が今終わったと言う、終わりと言うシグナルが何か必要なのはプログラマで在れば判るでしょう。それをどう考えているのか。普通はコマンドボタン等のクリックなどでシグナルをもらうが、シートが多いとコントロールの貼り付けとかコードが複雑になる。
ーーー
Deactivateで考えてみた
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
MsgBox Sh.Name
If Sh.Name <> "Sheet1" Then '除外シートの除外
d = Sh.Range("A65536").End(xlUp).Row 'C列にしたほうがよいかも
MsgBox d
Sh.Cells(d + 2, "C") = Sh.Name & "CC" 'ここは本当は数式。以下同
Sh.Cells(d + 2, "D") = Sh.Name & "DD"
Sh.Cells(d + 2, "E") = Sh.Name & "EE"
Sh.Cells(d + 2, "F") = Sh.Name & "FF"
End If
End Sub
ーーーー
しかしこれだと、入力が全シート終わってから、全シート対象に処理をバッチ的に走らすのと変わらないことも有る。
バッチ的に全シート処理は、For Each Sh In Worksheetsで簡単。
ーー
コードを考える前に仕組みを考えないと。

fujillin · Answer

＞“○月計”と入力されるものの、E列、F列、G列へ数式は入力
＞されません。
“○月計”の入力はマクロで組まれたのですよね？
その後に、既に出来ているマクロを呼び出すように（引き続き実行するために）してあげれば、1行の追加することですみます。

ただし、もとからあるマクロは、（多分）イベント処理になっている可能性がありますので、通常のマクロに変更してあげるのが良いでしょう。
（連続して処理すれば、もとの機能は不要になるのでしょうから…）

dr-9 · Answer

どうせでしたら、“○月計”とE列、F列、G列へ数式も一緒に処理されたらどうでしょう？
ひとつのアイディアですが、ThisWorkbookには「Workbook_SheetBeforeRightClick」イベントがありますのでこれを利用してみてはどうでしょうか？

【Excel VBA】ThisWorkbook モジュールのマクロ

No2です。

#4です。

>最終行から2行下のセルへ“○月計”と手入力していますが

＞“○月計”と入力されるものの、E列、F列、G列へ数式は入力

この回答への補足

どうせでしたら、“○月計”とE列、F列、G列へ数式も一緒に処理されたらどうでしょう？

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング