ユーザーフォームで使うコンボボックスの変数について
お世話になります。
エクセル2003で、ユーザーフォームを使った入力を考えています。
vbaのコードを作成中なのですが、 素人ながらFor Next とWithをつかった構文で
作り始めています。
作成中にふと思い、質問させていただきました。
----------------------------------------------
Private Sub UserForm_Initialize()
Dim i1 As Single
Dim i2 As Integer
With ComboBox101
For i1 = 5 To 40 Step 2.5
.AddItem i1
Next
End With
With ComboBox102
For i2 = 1 To 10
.AddItem i2
Next
End With
With ComboBox103
For i2 = 1 To 6
.AddItem i2
Next
End With
With ComboBox104
For i2 = 1 To 10
.AddItem i2
Next
End With
End Sub
----------------------------------------------
上記コードにおいて、
ComboBox101については、小数以下の値が必要なため、変数はSingle
他のものについては、整数のため、Integerとなります。
ComboBox103から、変数の条件が同じため、そのまま同じ変数を使用しております。
個々のコンボボックスがWithで囲まれており、なおかつその中にFor Nextが含まれていますので、
問題はないのかなぁと思っていますが、はっきりとした確信が持てません。
コンボボックスでのドロップダウンリストを作成する際、この変数の再利用については
問題ありませんでしょうか？
ご存知の方がいましたら、教えてください。よろしくお願いします。
お礼
早速の回答、ありがとうございました。 おかげで解決しました。