Excel VBAでセルに入力規則を設定する

Validation

指定した引数Rangeに対して、入力規則を設定できる
Add以下でパラメーターによって方法を指定

Usage

Sub sample_Validation()

    Dim ws As Worksheet
    Set ws = Worksheets("Sheet3")

    Dim target As Range
    Set target = ws.Range("C2:C6")

    With target.Validation
            .Delete
            .Add Type:=xlValidateList, _
                Operator:=xlEqual, _
                Formula1:="=$E$2:$E$6"
    End With

End Sub

サンプルでは、C3:C6の範囲に対して、E3:E6の範囲を入力規則として設定
各パラメーターについての詳細は、公式ドキュメントのリンクを確認

Reference

Validation.Add メソッド (Excel)
Validation オブジェクト (Excel)
XlDVType 列挙 (Excel)
XlFormatConditionOperator 列挙 (Excel)