|
VBA入門書レベルの者です。
知りたい情報を探すことができず困っています。
どなたか教えていただけませんでしょうか。
標準モジュールで以下のマクロを作成し、動作することを確認しました。
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
MsgBox "test"
End Sub
このマクロを含むファイルをアドイン形式(xla)で保存し、そのアドインを組み込んでも動作しませんでした。
訳もわからず、いろいろなサイトに載っていたソースを参考にアドインを以下のように修正すると、アドインに組み込んだ時は動作しますが一旦ファイルを閉じて2回目以降は動作しません。
Private WithEvents myApp As Application
Private Sub Workbook_AddinInstall()
Set myApp = Application
End Sub
Private Sub myApp_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
MsgBox "test"
End Sub
なぜこうなるのでしょうか?
またこのようなことは何で調べればよいのでしょうか?(VBAのヘルプやインターネット、書籍等どこかにあるのだと思うのですが、私の能力では見つけられませんでした)
よろしくお願いいたします。
|
|