Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9419 / 13646 ツリー ←次へ | 前へ→

【27480】Worksheet_Changeのコードをひとまとめにすることはできるのでしょうか? すてぃっち 05/8/10(水) 10:56 質問[未読]
【27481】Re:Worksheet_Changeのコードをひとまとめ... だるま 05/8/10(水) 11:09 回答[未読]
【27482】ありがとうございました。 すてぃっち 05/8/10(水) 11:27 お礼[未読]

【27480】Worksheet_Changeのコードをひとまとめに...
質問  すてぃっち  - 05/8/10(水) 10:56 -

引用なし
パスワード
   初歩的なことだとは思いますが、質問させていただきたいのですが、
次のような
∵・∴・∵・∴・∵・∴・∵・∴∵・∴・∵・∴・∵・∴・∵・∴∵・∴・∵・∴・∵・∴・∵・∴
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
(処理)
End Sub
∵・∴・∵・∴・∵・∴・∵・∴∵・∴・∵・∴・∵・∴・∵・∴∵・∴・∵・∴・∵・∴・∵・∴
のコードは各シート毎にシート分コピペする必要があるのですよね?

実際に使用しているExcelファイルはひとつのブックに複数のシートがあり、
それぞれ同じ処理(上記回答いただきましたコード)を行うようにしているのです。

これは、「標準モジュール」のように、一括して書いておくことはできるのでしょうか?


「ThisWorkbook」に書いてみたりしてみたのですが、うまくいきませんでした。。

【27481】Re:Worksheet_Changeのコードをひとまと...
回答  だるま WEB  - 05/8/10(水) 11:09 -

引用なし
パスワード
   >「ThisWorkbook」に書いてみたりしてみたのですが、うまくいきませんでした。。
ThisWorkbookなら
Workbook_SheetChangeプロシージャに書けば良いと思いますけど。^d^

【27482】ありがとうございました。
お礼  すてぃっち  - 05/8/10(水) 11:27 -

引用なし
パスワード
   だるま様
すぐに回答していただき、まことにありがとうございます。

お恥ずかしい・・・

「ThisWorkbook」に
∵・∴・∵・∴・∵・∴・∵・∴∵・∴・∵・∴・∵・∴・∵・∴∵・∴・∵・∴・∵・∴・∵・∴
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
(処理)
End Sub
∵・∴・∵・∴・∵・∴・∵・∴∵・∴・∵・∴・∵・∴・∵・∴∵・∴・∵・∴・∵・∴・∵・∴
そのままコピペしていました。

解決致しました。
ありがとうございました。

9419 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free