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

質問

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

回答No.2

tinu 2000（@tinu2000） · ベストアンサー

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

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

RowSource

回答No.1

MovingWalk

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

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