入力規則の設定

Posted by muchag | Excel VBA |
初回投稿:2012-03-25 (日) 16:15:31 | 最終更新:2016-07-09 (土) 14:48:50

エディタはやっぱりダークテーマ!

VBA でセルに入力規則を設定しようとしたら
はまったのでメモ。

【環境】
[Excel] 2003 SP2

入力規則を設定しようとして、Excel でマクロを記録した。

[evba]Range(“G6″).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=”=セルの名前”

細かいのは省略
End With[/evba]  
これを基にして

[evba]With Range(“A1:A3″).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=”=セルの名前”

細かいのは省略
End With[/evba]  
こうしてみたら

実行時エラー 2147417848(80010108)
Addメソッドは失敗しました。Validationオブジェクト

こんなエラーが出た。
 
あれこれ調べてもサッパリ解決せず。

あ! っと思い、
試しに当該セル範囲を選択させてからの処理にしてみた。

[evba]Range(“A1:A3″).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=”=セルの名前”

細かいのは省略
End With[/evba]  
無事に動いた・・・。
選択しないとだめなのねぇ。

Posted by muchag | Excel VBA |
初回投稿:2012-03-25 (日) 16:15:31 | 最終更新:2016-07-09 (土) 14:48:50