入力規則の設定
VBA でセルに入力規則を設定しようとしたら
はまったのでメモ。
【環境】
[Excel] 2003 SP2
[Excel] 2003 SP2
入力規則を設定しようとして、Excel でマクロを記録した。
- Range("G6").Select
- With Selection.Validation
- .Delete
- .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
- xlBetween, Formula1:="=セルの名前"
- 細かいのは省略
- End With
これを基にして
- With Range("A1:A3").Validation
- .Delete
- .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
- xlBetween, Formula1:="=セルの名前"
- 細かいのは省略
- End With
こうしてみたら
実行時エラー 2147417848(80010108)
Addメソッドは失敗しました。Validationオブジェクト
Addメソッドは失敗しました。Validationオブジェクト
こんなエラーが出た。
あれこれ調べてもサッパリ解決せず。
あ! っと思い、
試しに当該セル範囲を選択させてからの処理にしてみた。
- Range("A1:A3").Select
- With Selection.Validation
- .Delete
- .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
- xlBetween, Formula1:="=セルの名前"
- 細かいのは省略
- End With
無事に動いた・・・。
選択しないとだめなのねぇ。