Excelで指定されたユーザー フォームを開くためにセルをクリックまたはダブルクリックするにはどうすればよいですか？

Excelでセルをクリックまたはダブルクリックするだけで指定されたユーザー フォームを開くのは便利です。しかし、これを実現するにはどうすればよいでしょうか？この記事では、その方法を提供します。

VBAコードを使用して、セルをクリックまたはダブルクリックして指定されたユーザー フォームを開く

VBAコードを使用して、セルをクリックまたはダブルクリックして指定されたユーザー フォームを開く

以下の手順に従って、Excelでセルをクリックまたはダブルクリックして指定されたユーザー フォームを開くように設定します。

1. クリックまたはダブルクリックしてユーザー フォームを開きたいセルがあるワークシートを開きます。

2. シート タブを右クリックし、コンテキスト メニューから「表示 コード」を選択します。スクリーンショットをご覧ください：

3. 開いたMicrosoft Visual Basic for Applicationsウィンドウで、次のVBAコードをコピーしてコード ウィンドウに貼り付けてください。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby20171226
    If Not Application.Intersect(Target, Range("A1:B9")) Is Nothing Then
        UserForm1.Show
    End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby20171226
    If Not Application.Intersect(Target, Range("A1:B9")) Is Nothing Then
        Cancel = True
        UserForm1.Show
    End If
End Sub

注釈: コード内のA1:B9は、ユーザー フォームを開く基準となるセル範囲です。また、UserForm1は、セルをクリックまたはダブルクリックすることで開くユーザー フォームの名前です。必要に応じて変更してください。

4. Alt + Qキーを押して、 Microsoft Visual Basic for Applicationsウィンドウを閉じます。

これ以降、指定された範囲内のセルをクリックまたはダブルクリックすると、指定されたユーザー フォームがすぐに開きます。下のスクリーンショットをご覧ください。

関連記事：

• Excelでセルをダブルクリックして指定されたワークシートを開くにはどうすればよいですか？
• Excelでダブルクリックしてセルにチェックマークを追加するにはどうすればよいですか？
• Excelでダブルクリックしてセルに現在の日付/時刻を自動的に追加/入力するにはどうすればよいですか？
• Excelでセルをダブルクリックしてそのセルの値に1を加算するにはどうすればよいですか？
• Excelで特定のセルをクリックするとカレンダーをポップアップさせるにはどうすればよいですか？