リストボックスからリストボックスへ（複数列）

質問

データ読み込み済みのリストボックス１（4列）から空白のリストボックス（4列）へ、コマンドボタンをクリックしたらデータが追加されるコードを作成しました。

Private Sub CommandButton1_Click()
Dim i As Long
For i = 0 To 8
With ListBox1
ListBox2.AddItem .List(.ListIndex, i)
End With
Next i

データは追加されましたが、縦方向にデータが追加され、
横方向に追加されませんでした。

どうすれば複数列のデータをそのまま複数列のリストボックスに追加できるでしょうか。

よろしくお願いします。

End Sub

回答No.1

KenKen_SP

こんにちは^^

> どうすれば複数列のデータをそのまま複数列のリストボックスに
> 追加できるでしょうか。

追加の処理しか書いてませんが...VBA の Listbox は結構面倒ですね。
一応 MultiSelect でも大丈夫だと思います。ご参考までに。

Private Sub CommandButton1_Click()

　　Dim lRow　 As Long, i　　　As Long
　　Dim lCol　 As Long, j　　　As Long

　　lRow = ListBox1.ListCount - 1
　　lCol = ListBox1.ColumnCount - 1

　　For i = 0 To lRow
　　　　If ListBox1.Selected(i) Then
　　　　　 ListBox2.AddItem ListBox1.List(i)
　　　　　 For j = 1 To lCol
　　　　　　　 ListBox2.List(ListBox2.ListCount - 1, j) = _
　　　　　　　 ListBox1.List(i, j)
　　　　　 Next j
　　　　End If
　　Next i

End Sub

お礼

kenken_SPさん

ご回答ありがとうございます。
そのままコピペしたら理想どおりの操作ができました。

ありがとうございました！
本当に助かりました。