Excel VBAでドロップダウンリストの選択肢を動的に設定する方法

Excelでのデータ入力を効率化するために、ドロップダウンリスト（プルダウンリスト）は非常に便利な機能です。しかし、リストの内容が頻繁に変わる場合、手動で更新するのは手間がかかります。そこで、VBAを活用して、リストの選択肢を動的に設定する方法をご紹介します。

VBAを使ってドロップダウンリストを作成する基本の流れ
リストの選択肢を動的に変更する方法
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

VBAを使ってドロップダウンリストを作成する基本の流れ

Excelのイメージ

まずは、VBAを使って基本的なドロップダウンリストを作成する方法を見てみましょう。

手順1: VBAエディターを開く

Excelを開き、AltキーとF11キーを同時に押してVBAエディターを開きます。

手順2: 新しいモジュールを挿入する

VBAエディターで、「挿入」メニューから「モジュール」を選択し、新しいモジュールを作成します。

手順3: コードを入力する

以下のコードをモジュールに貼り付けます。

Sub CreateDropDownList()

    With Sheets("Sheet1").Range("").Validation

        .Delete

        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _

             Operator:= _

             xlBetween, Formula1:="=Sheet2!$A$1:$A$5"

        .IgnoreBlank = True

        .InCellDropdown = True

    End With

End Sub

このコードは、Sheet1のセルに、Sheet2のからの範囲を参照したドロップダウンリストを作成します。

手順4: マクロを実行する

VBAエディターを閉じ、Excelに戻ります。AltキーとF8キーを同時に押して、作成したマクロ「CreateDropDownList」を選択し、「実行」をクリックします。

これで、Sheet1のセルにドロップダウンリストが作成されます。

リストの選択肢を動的に変更する方法

リストの内容が変更されるたびに、手動で範囲を更新するのは手間がかかります。そこで、VBAを使ってリストの選択肢を動的に変更する方法を見てみましょう。

手順1: リストの内容を別のシートに入力する

例えば、Sheet2のA列にリストの内容を入力します。セルからセルに、リストの項目を入力します。

手順2: VBAコードを修正する

以下のコードをモジュールに貼り付けます。

Sub CreateDynamicDropDownList()

    With Sheets("Sheet1").Range("").Validation

        .Delete

        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _

             Operator:= _

             xlBetween, Formula1:="=Sheet2!$A$1:$A$5"

        .IgnoreBlank = True

        .InCellDropdown = True

    End With

End Sub

このコードは、Sheet1のセルに、Sheet2のからの範囲を参照したドロップダウンリストを作成します。