With Sheets(1).Range(“A1”).Validation
.Delete 前の入力規則を削除
.Add Type:=xlValidateList, _ リスト形式
AlertStyle:=xlValidAlertStop, _ 警告なし
Operator:= xlEqual,
Formula1:=”1,2,3″ 入力リスト
.IgnoreBlank = True 空白を無視
End With
Addメソッド … 入力規則を作成する
Operator … 入力規則の演算子
Formula2 … 条件2(OperatorがxlBetween、または、xlNotBetween以外の場合は無視)