【ExcelVBA】セルをダブルクリックするとマクロを実行

基本的なことだと思うのですが・・・

ExcelVBAで

' Keyboard Shortcut: Ctrl+a
'
この様に「Ctrl」＋「a」で実行するマクロを作りました。
これを「D1」のセルをダブルクリックするとマクロを実行するようにするには
どのようにすると良いでしょう。

宜しくお願いいたします。

No.1 ベストアンサー 回答者： Wendy02 回答日時： 2005/08/14 12:37

こんにちは。

通常は、シートモジュールで、以下のようになるかと思いますが、そうでない場合は、ThisWorkbook やClass を使います。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address <> "$D$1" Then Exit Sub
Cancel = True
　'実行(中身を登録)
End Sub

この回答へのお礼

早速ご回答頂きまして有難うございます。

あっさりと大変上手く行きました。

お礼日時：2005/08/14 13:01