Đưa dữ liệu từ listbox vào mảng (multi select) (1 người xem)

[Hamedanger]

Câu hỏi như tiêu đề ạ. Mong được giúp đỡ

 

[sealand]

Bạn sửa lại code của nút như sau là ổn

Private Sub CommandButton1_Click()
Dim i, Tm()
Sheet1.[H2:J100].ClearContents
Tm = Dic.Items
For i = 0 To Dic.Count - 1
[B][COLOR=#ff0000]Sheet1.Cells(i + 2, "H").Resize(, 2) = Split(Tm(i), ";")
Sheet1.Cells(i + 2, "H").Offset(, 2) = Split(Tm(i), ";")(2) [/COLOR][/B]
Next
Unload Me
End Sub

 

[Hamedanger]

Ổn rồi , cảm ơn các anh nhiều