Excelでドロップダウンリストから選択された値に基づいてマクロを実行するにはどうすればよいですか？

コマンドボタンをクリックしてマクロを実行することは、Excelでの一般的なタスクですが、ドロップダウンリストから選択された値に基づいてマクロコードを実行したことはありますか？ これは、ドロップダウンリストから項目を選択すると、特定のマクロが即座にトリガーされることを意味します。この記事では、この作業を解決するための便利なコードを紹介します。

VBAコードを使用して、ドロップダウンリストから選択された値に基づいてマクロを実行する

VBAコードを使用して、ドロップダウンリストから選択された値に基づいてマクロを実行する

このタスクを完了する直接的な方法はありませんが、次のVBAコードが役立つはずです。以下の手順を行ってください：

1. 最初に、必要に応じてドロップダウンリストを作成します。次のスクリーンショットをご覧ください：

2. 次に、使用したいドロップダウンリストが含まれているシートタブを右クリックし、コンテキストメニューから「コードの表示」を選択します。開いたMicrosoft Visual Basic for Applicationsウィンドウで、次のコードを空白のモジュールにコピーして貼り付けます：

VBAコード: ドロップダウンリストから選択された値に基づいてマクロを実行する：

Private Sub Worksheet_Change(ByVal Target As Range)
	If Not Intersect(Target, Range("E1")) Is Nothing Then
	    Select Case Range("E1")
	        Case "Insert Blank rows": Macro1
	        Case "Hide All Sheets": Macro2
            Case "Convert to Date": Macro3
	    End Select
	End If
	End Sub

注: 上記のコードでは、E1はドロップダウンリストが含まれるセルです。マクロ名とドロップダウンリストの値を必要に応じて変更してください。

3. そして、このコードウィンドウを保存して閉じます。これで、ドロップダウンリストから「空白行を挿入」を選択すると、Macro1がトリガーされ、以下同様です…

関連記事：

Excelでセルの値が変更されたときにマクロを実行するにはどうすればよいですか？

Excelでセルの値に基づいてマクロを実行するにはどうすればよいですか？

Excelで印刷前に自動的にマクロを実行するにはどうすればよいですか？

Excelでハイパーリンクをクリックしてマクロを実行するにはどうすればよいですか？

ワークブックからシートが選択されたときにマクロを実行するにはどうすればよいですか？