Xin giúp về Listview (1 người xem)

[hoang0569]

Giúp mình load dữ liệu từ sheet1 lên listview, mình gửi file, các bạn giúp mình, cảm ơn nhiều.

 

[giaiphap]

Bạn thêm đoạn code này vào Form thử xem.

Private Sub UserForm_Initialize()
Dim sn(), j as integer
sn = Sheet1.Range("A2:B" & Sheet1.Range("B65000").End(xlUp)).Value
    With ListView1
        For j = 1 To UBound(sn, 1)
            .ListItems.Add , , j
            .ListItems(j).ListSubItems.Add , , sn(j, 1)
            .ListItems(j).ListSubItems.Add , , sn(j, 2)
        Next
    End With
End Sub

 

[hoang0569]

không được bạn ơi,xem lại giúp mình nhé

 

[giaiphap]

không được bạn ơi,xem lại giúp mình nhé

Sao mình thực hiện vẫn chạy ngon lành mà.