【Excel VBA】プルダウンリスト（入力規則）をVBAで自動作成する方法

Excelでよく使う「プルダウンリスト（ドロップダウンリスト）」、
実は VBAを使えば自動で設定することができます！

この記事では、セルにVBAでプルダウンリストを追加する方法を解説します。

１．プルダウンリストとは？

セルをクリックしたときに選択肢が表示され、ユーザーがミスなく選べるようになる機能です。
通常は「データの入力規則」から手動で設定しますが、VBAで自動化すれば大量のシートやセルにも一括適用できます。

基本：セルに固定リストを設定する方法

Sub SetDropdownList()
    With Range("B2").Validation
        .Delete ' 既存の入力規則を削除
        .Add Type:=xlValidateList, _
             AlertStyle:=xlValidAlertStop, _
             Operator:=xlBetween, _
             Formula1:="りんご,みかん,バナナ"
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowError = True
    End With
End Sub

説明：

項目	内容
Range("B2")	プルダウンを設定するセル（必要に応じて変更）
Formula1	リストの値。カンマ区切りで指定します
.Delete	事前に入力規則をクリア（重複防止）

応用：別のセル範囲をリストに使う

Sub SetDropdownFromRange()
    With Worksheets("Sheet2").Range("C2").Validation
        .Delete
        .Add Type:=xlValidateList, _
             AlertStyle:=xlValidAlertStop, _
             Operator:=xlBetween, _
             Formula1:="=Sheet1!$A$1:$A$3"
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowError = True
    End With
End Sub

Formula1に 「=シート名!セル範囲」 を使うことで、別シートの値をリストとして利用できます。

VBAを使えば、手作業で行っていたプルダウン設定を一括・自動で処理できます。
定型フォームの作成や業務効率化にとても便利なので、ぜひ活用してみてください！

関連記事：

【Excel VBA 文字列変換】大文字小文字変換方法、全角半角変換方法 - Django Girls and Boys 備忘録

【Excel VBA】文字列比較演算子「like」の使用方法 - Django Girls and Boys 備忘録

【Excel VBA】ファイル一覧やファイル有無確認に使われるDir()の使用方法 - Django Girls and Boys 備忘録

【Excel】プルダウンリストの設定方法 - Django Girls and Boys 備忘録

【Excel VBA】プルダウンリスト（ドロップダウンリスト）作成方法とセル表示形式（R1C1形式）でエラーになった時の対処方法 - Django Girls and Boys 備忘録

【Excel VBA】行の高さの取得、調整、自動調整をする方法 - Django Girls and Boys 備忘録

【Excel VBA】セル参照形式をVBAから変更する方法（A1形式、R1C1形式） - Django Girls and Boys 備忘録

【Excel VBA】改行コード（ＣＲ、ＬＦ、ＣＲＬＦ）の使用方法 - Django Girls and Boys 備忘録

【Excel VBA】ソースコードの改行方法 - Django Girls and Boys 備忘録

【Excel】の「開発」タブを表示させる方法 - Django Girls and Boys 備忘録

【Excel】ボタンの表示文字を改行する方法 - Django Girls and Boys 備忘録

【Excel】プルダウンリスト 設定方法、元データ追加方法、元データ変更方法 - Django Girls and Boys 備忘録

【Excel VBA】結合セルのコピー方法について - Django Girls and Boys 備忘録

【Excel VBA】あるシートのセル範囲に変更があった時に処理を実行する方法 - Django Girls and Boys 備忘録

【Googleサーチコンソール Googleアナリティクスの登録方法】サイト作成後の分析、活用に欠かせない登録 - Django Girls and Boys 備忘録

【Excel 名前の定義】「名前"○○○"は既に存在します。この名前にする・・・」のメッセージ表示を解決する方法 - Django Girls and Boys 備忘録

【Excel マクロ（VBA） 行削除】条件を満たした行を削除する方法(For～Next文を使用) - Django Girls and Boys 備忘録

【Excel マクロ（VBA）】最大行番号、最大列番号を取得する方法 - Django Girls and Boys 備忘録

【ExcelマクロからのI.E.操作】I.E.のセキュリティに絡むエラー（オートメーションエラー）発生時の対応方法 - Django Girls and Boys 備忘録

【Python Excel】ExcelからのPython実行ファイル（アプリケーションファイル）起動方法 - Django Girls and Boys 備忘録

【Excel VBA】シート削除時などに確認メッセージを表示しない方法 - Django Girls and Boys 備忘録

【Excel】数式の計算方法について、計算方法の自動／手動変更方法 - Django Girls and Boys 備忘録

【Excel VBA】シートをPDF形式で保存する方法 - Django Girls and Boys 備忘録