Excel-Excel !　ダブルクリックされたセル位置を取得

ダブルクリックされたセル位置を取得

OnDoubleClick プロパティをセットすることで、セルをダブルクリックした場合、指定のプロシージャを呼び出すことができます。　
使用例
　ActiveSheet.OnDoubleClick = "実行されるプロシージャ名"
　Application.OnDoubleClick = "実行されるプロシージャ名"

ダブルクリックされたセル位置は、ActiveCell.Address()　で取得できます。

1）イベントプロシージャを表示させる

	１．VBE画面でModule1をダブルクリックします。

２．コードを入力します。

'開いた時、自動的に呼び出される
Private Sub auto_open()
    'ダブルクリックすると DoDubleClick が呼び出される
    ActiveSheet.OnDoubleClick = "DoDubleClick"
End Sub

Private Sub DoDubleClick()
    Dim s1 As String

    'アクティブなセルの位置を取得
    s1 = ActiveCell.Address()
    'Excelのタイトルに表示する
    Application.Caption = s1
End Sub

３．ファイルを閉じて再オープンします。

	セル内をダブルクリックすると、Excelの最上部のタイトルにセル位置が表示されます。

Topへ　 Homeへ