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