こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

ユーザーフォームで使うコンボボックスの変数について

ユーザーフォームで使うコンボボックスの変数について

お世話になります。
エクセル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が含まれていますので、
問題はないのかなぁと思っていますが、はっきりとした確信が持てません。

コンボボックスでのドロップダウンリストを作成する際、この変数の再利用については
問題ありませんでしょうか?
ご存知の方がいましたら、教えてください。よろしくお願いします。

投稿日時 - 2010-04-30 09:32:46

QNo.5861347

すぐに回答ほしいです

質問者が選んだベストアンサー

次の For i2= で初期化されるので問題有りません。

投稿日時 - 2010-04-30 10:14:09

お礼

早速の回答、ありがとうございました。
おかげで解決しました。

投稿日時 - 2010-04-30 13:09:13

ANo.1

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問