VBA リストを作成後、そのセルに文字列を挿入したい

質問

With Worksheets("シート名").Range("A1").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="該当なし"
End With
というように、A1のセルに対して、「該当なし」というプルダウン（入力規則）を設定し、そのあと文字列（文言）を挿入したいです。

その方法を教えてください。

回答No.1

pkh4989

こんにちは。

意味が良く解りませんが、リストに「該当なし」以外の文字列を追加したい、という意味でしょうか？
ならば、以下のようにしてください。
まず、表示したい文字列データを用意してください。
以下はE列の「E1～E5」までにある文字列を表示する例です。
E1 → 該当なし
E2 → AAAAA
E3 → BBBBB
E4 → CCCCC
E5 → DDDDD

With Worksheets("シート名").Range("A1").Validation
　　.Delete
　　.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=$E$1:$E$5"
End With

お礼

ありがとうございます。

参考になりました。