Excelマクロで選択肢を作成する方法｜初心者でもできるプルダウンリストの作り方

Excelを使っていると、データ入力の際に「プルダウンリスト（ドロップダウンリスト）」を活用したい場面が増えてきますよね。例えば、顧客名や商品名など、決まった選択肢から入力してもらうことで、入力ミスを防ぎ、作業効率をアップさせることができます。

今回は、Excelマクロ（VBA）を使って、プルダウンリストを作成する方法を初心者の方にもわかりやすく解説します。特に、45歳以上のパソコンやスマホの操作に不安がある方でも安心して取り組める内容になっています。

Excelマクロでプルダウンリストを作成する基本の流れ
プルダウンリストの選択肢をシートのデータから作成する方法
プルダウンリストの表示件数を増やす方法
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

Excelマクロでプルダウンリストを作成する基本の流れ

Excelのイメージ

まずは、Excelマクロを使ってプルダウンリストを作成する基本的な流れをご紹介します。

Excelを開くまずは、プルダウンリストを作成したいExcelファイルを開きます。
「開発」タブを表示するExcelのメニューに「開発」タブが表示されていない場合は、表示させる必要があります。方法は、Excelのオプションから「リボンのユーザー設定」を選び、「開発」にチェックを入れてOKをクリックします。
VBAエディターを開く「開発」タブから「Visual Basic」をクリックして、VBAエディターを開きます。
新しいモジュールを挿入するVBAエディターで「挿入」→「モジュール」を選択して、新しいモジュールを挿入します。
コードを入力する以下のコードをモジュールに入力します。

Sub CreateDropdownList()
    With Range("").Validation
        .Delete ' 既存の入力規則を削除
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
             Operator:=xlBetween, Formula1:="いちご,みかん,ぶどう"
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowInput = True
        .ShowError = True
    End With
End Sub

このコードを実行すると、シートのからのセルに「いちご」「みかん」「ぶどう」の3つの選択肢が表示されるプルダウンリストが作成されます。

プルダウンリストの選択肢をシートのデータから作成する方法

次に、プルダウンリストの選択肢をExcelシート上のデータから動的に作成する方法をご紹介します。これにより、リストの内容をシート上で簡単に変更できるようになります。

選択肢となるデータをシートに入力する例えば、Sheet2のB3からB5に「いちご」「みかん」「ぶどう」と入力します。
VBAコードを修正する以下のコードをVBAエディターに入力します。

Sub CreateDynamicDropdownList()
    With Range("").Validation
        .Delete ' 既存の入力規則を削除
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
             Operator:=xlBetween, Formula1:="=Sheet2!$B$3:$B$5"
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowInput = True
        .ShowError = True
    End With
End Sub

このコードを実行すると、シートのからのセルに、Sheet2のB3からB5に入力された内容がプルダウンリストとして表示されます。シート上のデータを変更することで、プルダウンリストの内容も自動的に更新されます。

プルダウンリストの表示件数を増やす方法

Excelの標準のプルダウンリストでは、一度に表示される項目数が限られています。例えば、8件までしか表示されないため、項目数が多い場合に不便に感じることがあります。

この制限を解消するためには、VBAを使用してフォームコントロールの「コンボボックス」を利用する方法があります。コンボボックスを使うことで、表示件数を自由に設定できるようになります。

コンボボックスを挿入するVBAエディターで「挿入」→「ユーザーフォーム」を選択し、フォーム上にコンボボックスを配置します。
コンボボックスにデータを設定するコンボボックスの「RowSource」プロパティに、表示したいデータの範囲を指定します。例えば、「Sheet2!$B$3:$B$5」と指定すると、Sheet2のB3からB5のデータが表示されます。
ユーザーフォームを表示するVBAコードでユーザーフォームを表示させる処理を記述します。

この方法を使うことで、プルダウンリストの表示件数の制限を解消し、より多くの選択肢を一度に表示できるようになります。