Excel VBA質問箱 IV

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

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


75269 / 76732 ←次へ | 前へ→

【5903】訂正
回答  ichinose  - 03/6/7(土) 12:07 -

引用なし
パスワード
   ▼ichinose さん:
>▼B-BOSS さん:
>こんにちは。
>>アドインに登録したコードで
>>現在アクティブなワークシートに対し、WORKSHEET_Change イベントを
>>作成する様なコードを書きたいのですが、可能でしょうか?
>クラスモジュールを使用すると、可能です。
>アドインにクラスモジュールを追加してください(既定の名前のClass1とします)。
>クラスモジュールに、
>'=======================================================
>  Public WithEvents app As Application
>  Private WithEvents acc_bk As Workbook
>'========================================================
>Private Sub acc_bk_SheetChange(ByVal Sh As Object, ByVal Target As Range)
>  MsgBox "ブック: " & acc_bk.Name & "-シート: " & Sh.Name & "-:セル: " _
>    & Target.Address & " が変更されました"
>'ここにコードを書きます
>End Sub
>'=====================================================
>Private Sub app_WorkbookActivate(ByVal Wb As Workbook)
>  Set acc_bk = Wb
>End Sub
>'=====================================================
>Private Sub Class_Initialize()
>  Set app = Application
>  Set acc_bk = ActiveWorkbook
>End Sub
>
>次にアドインのThisworkbookモジュールに
>'======================================================
  private app_ev As Class1
'↑に変更してください
>Private Sub Workbook_Open()
>  Set app_ev = New Class1
>End Sub
>
>簡単なテストのみしかしていませんが、確認してください。
2 hits

【5899】アドインに登録したコードでWORKSHEET_Change イベントを作成したい。 B-BOSS 03/6/7(土) 10:07 質問
【5902】Re:アドインに登録したコードでWORKSHEET_C... ichinose 03/6/7(土) 11:59 回答
【5903】訂正 ichinose 03/6/7(土) 12:07 回答
【5908】Re:訂正 B-BOSS 03/6/7(土) 15:06 質問
【5909】Re:訂正 ichinose 03/6/7(土) 17:52 回答
【5917】Re:訂正 B-BOSS 03/6/9(月) 14:26 お礼
【5922】Re:訂正 B-BOSS 03/6/9(月) 17:26 質問
【5928】Re:訂正 ichinose 03/6/9(月) 22:50 回答
【6310】Re:訂正 B-BOSS 03/6/23(月) 16:47 お礼

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