【VBA】プルダウン(ドロップダウン)を設定する【入力規則】

VBAで
　・プルダウン(ドロップダウン)を設定する方法
を記載します！

プルダウン(ドロップダウン)を設定することで、
セルへの誤入力を防止できます！

VBAコード
実行結果
参考

VBAコード

ここでは例として、
　・シート「sample」のセル「C3～C5」に
　・プルダウン(ドロップダウン)を設定して
　・営業 or 経理 or 情シスのみを選択可
にします。

Option Explicit

Sub sample()

    With Worksheets("sample").Range("C3:C5").Validation
        '既存の設定をクリア
        .Delete
        'プルダウン(ドロップダウン)を設定
        .Add Type:=xlValidateList, Formula1:="営業,経理,情シス"
    End With
    
End Sub

「Rangeオブジェクト」の「Validation」プロパティにより、「Validationオブジェクト」を取得します。

「Validationオブジェクト」の「Delete」メソッドにより、既存の設定をクリアします。

「Validationオブジェクト」の「Add」メソッドの「Type」に「xlValidateList」を指定することで、プルダウン(ドロップダウン)を設定できます。

「Validationオブジェクト」の「Add」メソッドの「Formula1」にプルダウン(ドロップダウン)に設定したい値を、「カンマ区切り」で指定します。