入力規則の操作

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以外の場合は無視)

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です