ExcelVBA プルダウン（ドロップダウンリスト）をセルに設定する方法

以下のようなシーンで利用されます。

1.入力ミスの防止
選択肢を限定することで誤入力を防ぎます。

2.動的な選択肢の提供
データの内容に応じてリストを自動的に更新

3.ユーザーフォームの効率化
ユーザーが簡単に選択できるようにする。

Option Explicit

Sub CreateDropdown()
    Dim ws As Worksheet
    Dim targetRange As Range
    
    ' シートと範囲を指定
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set targetRange = ws.Range("B2:B10")
    
    ' 既存のデータ検証を削除
    targetRange.Validation.Delete
    
    ' プルダウンリストを追加
    With targetRange.Validation
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="オプション1,オプション2,オプション3"
        .IgnoreBlank = True
        .InCellDropdown = True
    End With
    
    MsgBox "プルダウンを設定しました！"
End Sub

動的リストを使用したプルダウンの作成

Option Explicit

Sub CreateDynamicDropdown()
    Dim wsList As Worksheet
    Dim wsTarget As Worksheet
    Dim listRange As Range
    Dim targetRange As Range
    
    ' リストのデータがあるシートと範囲
    Set wsList = ThisWorkbook.Sheets("Sheet1")
    Set listRange = wsList.Range("A1:A5")
    
    ' プルダウンを設定するシートと範囲
    Set wsTarget = ThisWorkbook.Sheets("Sheet2")
    Set targetRange = wsTarget.Range("B2:B10")
    
    ' 名前付き範囲を設定
    ThisWorkbook.Names.Add Name:="DropdownList", RefersTo:=listRange
    
    ' 既存のデータ検証を削除
    targetRange.Validation.Delete
    
    ' プルダウンリストを追加
    With targetRange.Validation
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=DropdownList"
        .IgnoreBlank = True
        .InCellDropdown = True
    End With
    
    MsgBox "動的なプルダウンをSheet2に設定しました！"
End Sub

固定リストは Formula1 に文字列を直接入力。動的リストはセル範囲を指定します。新しい設定を行う際に、古い検証を削除することでエラーを回避する。データが変わる場合はコードの更新が必要です。

このコードを使えば、セルごとに設定することなく、入力の効率化とミスの防止が簡単に実現できます。