セルのダブルクリックでマクロを実行する
A1:A10のダブルクリックで独自メッセージを表示します。
実行前に確認
- 対象範囲内の通常のセル編集をCancel=Trueで止めます。
1サンプルコード
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Me.Range("A1:A10")) Is Nothing Then Exit Sub
Cancel = True
MsgBox "ダブルクリック: " & Target.Address(False, False)
End Sub図で見る操作の流れ
イメージ図コードの動きを表した概念図です。実際のExcel画面ではありません。
手動：シートモジュールへ貼る
「練習」にBeforeDoubleClickを記述する
手動：A1をダブルクリック
A1:A10内のセルを操作する
イベント：通常動作を止める
Cancel=Trueで通常のセル編集を取り消す
結果：番地を表示
例の操作では「ダブルクリック: A1」
A1:A10の外ではこの処理を行わず、通常のダブルクリック動作を残します。
コードの処理を説明する模式図です。実際の画面や実行結果を撮影したものではありません。
使い方・実行手順を確認する3つの手順で、コードの使い方を確認できます
- 1
練習用のブックをExcelマクロ有効ブック（.xlsm）で保存します。シート名を「練習」にします。
- 2
Alt＋F11でVBEを開きます。左のプロジェクト一覧でこのブックの［Microsoft Excel Objects］にある「Sheet番号（練習）」をダブルクリックし、コードを貼り付けます。
- 3
F5では実行せず、Excelに戻りA1をダブルクリックします。通常のセル編集の代わりにメッセージが表示されます。