Đưa dữ liệu vào List View

[tuyettrang186]

Em có ví dụ này nhờ anh chị hướng dẫn cách đưa vùng dữ liệu này và ListView nhé!

 

[sealand]

Bạn tham khảo code nha (Lưu ý Listview kèm theo VBA không hỗ trợ Font Unicode):

Private Sub UserForm_Initialize()
Dim i, Rg(), Al(), Cls As Range, It As ListItem
Rg = Array(60, 130, 50, 70, 70, 70)
Al = Array(0, 0, 2, 1, 1, 1)
With Me.ListView1
.View = lvwReport
.Gridlines = True
For i = 1 To 6
.ColumnHeaders.Add , , Sheet1.Cells(1, i), Rg(i - 1), Al(i - 1)
Next
Set Cls = Sheet1.[A2]
Do While Not IsEmpty(Cls)
Set It = .ListItems.Add(, , Cls)
For i = 1 To 5
It.SubItems(i) = IIf(IsNumeric(Cls.Offset(, i)), Format(Cls.Offset(, i), "#,##0"), Cls.Offset(, i))
Next
Set Cls = Cls.Offset(1)
Loop
End With
End Sub