Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9438 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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
∵・∴・∵・∴・∵・∴・∵・∴∵・∴・∵・∴・∵・∴・∵・∴∵・∴・∵・∴・∵・∴・∵・∴
そのままコピペしていました。

解決致しました。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9438 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free