VBAマクロのアドイン化について

Question

お世話になります。
アドインを組み込みどのファイルでも
シート上をダブルクリックしたらメッセージボックスを表示するといった
アドインの作成を目指しています。

下記のコードをアドインにしたいのですがうまくいきません。
解決方法のご教授をお願い致します。　

アドインファイルのThisWorkbook(コード)

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) 
    Call hoge
    Cancel = True
End Sub

アドインファイルのModule1(コード)

Sub hoge()
  MsgBox "hoge"
End Sub

Answer 1

＞どのファイルでもシート上をダブルクリックしたらメッセージボックスを表示する

どのファイルでも、という条件を満たすためにはチョットした技が必要です。

アドインファイルのThisWorkbook(コード)

Option Explicit

Private WithEvents App As Excel.Application

Private Sub App_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Call hoge
    Cancel = True
End Sub

Private Sub Workbook_Open()
    Set App = Excel.Application
    Application.EnableEvents = True
End Sub

アドインファイルのModule1(コード)

Option Explicit

Sub hoge()
    MsgBox "hoge"
End Sub

Comments

[porepore]

求めていたものをドンピシャで回答していただけました。
これでやりたいことができそうです。
ありがとうございました。

Answer 2

「vba アドイン 作成」で検索しました。

https://hamachan.info/win8/excel/addin.html

「名前をつけて保存」で、ファイルの種類を「Excelアドイン(*.xlam)」を選択するとよいようです。

Comments

[porepore]

ご回答ありがとうございました。