VBAでシートからコンボボックスにデータを設定する方法

VBAにてフォーム起動時にシート内に設定した
値をコンボボックスに取り込みたいのですが・・。
たとえばA列に連続で入力されているデータを
取り込むなど・・。
設定データ数は動的に変化します。

No.2 ベストアンサー 回答者： tinu2000 回答日時： 2003/11/21 08:49

もうほとんど同じですが…

Private Sub UserForm_Initialize()
Dim i As Integer

　ComboBox1.Clear
　For i = 1 To Worksheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row
　　ComboBox1.AddItem Worksheets("sheet1").Cells(i, 1).Value
　Next
End Sub

No.3 回答者： todo36 回答日時： 2003/11/21 11:11

RowSource

No.1 回答者： MovingWalk 回答日時： 2003/11/21 04:35

こんな感じでいかがでしょうか？

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 999
If Len(Cells(i, "A")) = 0 Then Exit For
ComboBox1.AddItem (Cells(i, "A"))
Next
End Sub