Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

41370 / 76807

←次へ　｜　前へ→


	【40518】Re:シートモジュールのクラス化

Kein - 06/7/15(土) 15:35 -


	引用なし

	パスワード

>複数のシート(SH3,SH4,SH5)で全く同じシートモジュールを記述していて
>とても効率が悪い
誰かがレスしてくれているように、ThisWorkbookモジュールにあるイベント
を使うと、全シート対象のイベントが使えます。例えば

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

というタイトルのマクロなら、引数 Sh には自動的にアクティブシートが
格納されますから

Select Case Sh.Name
　 Case "SH3", "SH4", "SH5"
　　　何かの処理
End Select

などとシート名を判定して、処理を行うかどうかを分岐すれば良いのです。
同様にセル入力イベントの方も

Private Sub Workbook_SheetChange(ByVal Sh As Object,
ByVal Target As Range)

と、シートレベルのイベントと違う点は、引数 Sh の存在だけですから、
冒頭にシート名による条件分岐のコードを持ってくるところも同じですね。

0 hits

▼

【40504】シートモジュールのクラス化 ハナ 06/7/15(土) 9:11