入力規則の設定
エディタはやっぱりダークテーマ！
VBA でセルに入力規則を設定しようとしたら
はまったのでメモ。
【環境】
[Excel] 2003 SP2
[Excel] 2003 SP2
入力規則を設定しようとして、Excel でマクロを記録した。
[evba]Range(“G6″).SelectWith Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=”=セルの名前”
細かいのは省略
End With[/evba]
これを基にして
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=”=セルの名前”
細かいのは省略
End With[/evba]
こうしてみたら
実行時ｴﾗｰ 2147417848(80010108)
Addﾒｿｯﾄﾞは失敗しました｡Validationｵﾌﾞｼﾞｪｸﾄ
Addﾒｿｯﾄﾞは失敗しました｡Validationｵﾌﾞｼﾞｪｸﾄ
こんなエラーが出た。
あれこれ調べてもサッパリ解決せず。
あ！ っと思い、
試しに当該セル範囲を選択させてからの処理にしてみた。
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=”=セルの名前”
細かいのは省略
End With[/evba]
無事に動いた・・・。
選択しないとだめなのねぇ。