Excel VBA質問箱 IV

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

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


17739 / 76732 ←次へ | 前へ→

【64442】Re:Workbook_SheetChangeを他のブックでも共通で使用するには?
発言  kanabun  - 10/2/7(日) 11:27 -

引用なし
パスワード
   ▼kirin400 さん:
>Workbook_SheetChangeを他のブックから共通で適用させる方法はないのでしょうか?
>
一例ですが、
一番最初に開かれるBookは個人用マクロブックですから、
Personal.xlsのBookモジュール(Thisworkbook)の宣言部に

Private WithEvents myApp As Application 

のようにApplicationオブジェクトのインスタンスをEvent付きで
宣言しておいて、
下のように、Workbook_Open()プロシージャで、

Private Sub Workbook_Open()
 Set myApp = Application
End Sub

とmyAppを実体化してみてください。
この状態でVBEコードウィンドウの一番上にある左側のドロップ
ダウンリスト内に myApp オブジェクトが現れ、
右のイベント用ドロップダウンに
  SheetChange
が現れるようになるので、

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

というすべてのBookのイベントプロシージャが利用可能になります。

3 hits

【64441】Workbook_SheetChangeを他のブックでも共通で使用するには? kirin400 10/2/7(日) 10:56 質問
【64442】Re:Workbook_SheetChangeを他のブックでも... kanabun 10/2/7(日) 11:27 発言
【64446】Re:Workbook_SheetChangeを他のブックでも... kirin400 10/2/8(月) 0:08 お礼

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