|
いつもたいへんお世話になっております。
現在、複数列のリストボックスへの転記で行き詰まっています。
転記元は単一選択のComboBox1と、複数選択可のListBox1で、転記先は複数列
表示のListBox2です。
ComboBox1とListBox1は連動しています。追加ボタン(CmbAdd)を押すことで
、ListBox2の一列目にはComboBox1の項目をListBox2の選択数分を、二列目に
はListBox1の項目(複数選択可)を順次リストアップすることを試みています
。
皆様からお知恵を授けていただけましたら、幸いです。
Private Sub CmbAdd_Click()
Dim i As Integer
Dim j As Integer
i = 0
j = 0
For i = 0 To ComboBox1.ListCount - 1
With ComboBox1
If .Selected(i) = True Then
ListBox2.AddItem .Value(i)
ListBox2.Column(0, i) = ComboBox1.Value(i)
End If
End With
DoEvents
Next i
For jj = 0 To ListBox1.ListCount - 1
With ListBox1
If .Selected(jj) = True Then
ListBox2.AddItem .List(jj)
ListBox2.Column(1, jj) = ComboBox1.List(jj)
End If
End With
DoEvents
Next jj
End Sub
|
|