|
コンボボックス1と2にdataシートからリストを表示するように下記のコードを作りましたが、何故かコンボ1にしかリスト表示されず、2は空白になってしまいます。
どこがいけないのでしょうか?
ico = 2
'コンボ1セット
With ThisWorkbook.Worksheets("data")
Do While .Cells(ico, 1) <> ""
ITE = .Cells(ico, 1).Value
FLG = 0
For I = 0 To Me.ComboBox1.ListCount - 1
If ITE = Me.ComboBox1.List(I) Then FLG = 1
Next I
If FLG = 0 Then Me.ComboBox1.AddItem ITE
ico = ico + 1
Loop
End With
'コンボ2セット
ico1 = 2
With ThisWorkbook.Worksheets("data")
Do While .Cells(ico1, 2) <> ""
ITE = .Cells(ico1, 2).Value
FLG = 0
For I = 0 To Me.ComboBox2.ListCount - 1
If ITE = Me.ComboBox2.List(I) Then FLG = 1
Next I
If FLG = 0 Then Me.ComboBox2.AddItem ITE
ico1 = ico1 + 1
Loop
End With
|
|