VBAで入力規則の設定
いつもお世話になっております。
VBAを勉強して3ヶ月程度の初心者です。
VBAでの入力規則の設定について質問させていただきます。
A1セルに入力規則の設定を行い、0~10までの数値を選択できるようにしたいと考えています。
Sub Test()
Range("A1").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertInformation _
, Formula1:="0,1,2,3,4,5,6,7,8,9,10"
End Sub
とコードを記述すれば、確かに望みの仕様は満たされるのですが、複数のセルに入力規則を設定する場合、
また、リストの数が増えた場合を考えて、"1,2,3,4,5,6,7,8,9,10"を変数に出来ない?と考えて・・・
Sub Test2()
Dim kazu(10) As Long
kazu(0) = 0
kazu(1) = 1
kazu(2) = 2
kazu(3) = 3
kazu(4) = 4
kazu(5) = 5
kazu(6) = 6
kazu(7) = 7
kazu(8) = 8
kazu(9) = 9
kazu(10) = 10
Range("A2").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertInformation _
, Formula1:=kazu
End Sub
なんて事もやってみましたが・・・駄目でした。
もう一点、初期値に0を表示したい場合は、入力規則コードの後に、
Range("A1").Value=0
と表示すればよいのでしゅか?
ご指導をよろしくお願いいた
お礼
ご回答ありがとうございました。