Giúp mình đưa dữ liệu từ sheet lên listview (1 người xem)

[hoang0569]

Mình gửi File nhờ các bạn xem giúp, dữ liệu từ sheet lên listview không đúng cột, cảm ơn các bạn nhiều

 

[giaiphap]

Mình gửi File nhờ các bạn xem giúp, dữ liệu từ sheet lên listview không đúng cột, cảm ơn các bạn nhiều

Sửa lại code thế này.

Private Sub HelloListView()
  Dim iRow As Long, iCol As Long, lsvItem As ListItem, Arr()
  With ListView1
    .ColumnHeaders.Clear: .ListItems.Clear
    For iCol = 0 To 10
      .ColumnHeaders.Add , , Sheet1.Range("A1").Offset(, iCol), 90
    Next
    Arr = Sheet1.Range("A2:K" & Sheet1.Range("A65000").End(xlUp).Row).Value
    For iRow = 1 To UBound(Arr, 1)
      Set lsvItem = .ListItems.Add(, , Arr(iRow, 1))
      For iCol = 1 To 10
        lsvItem.SubItems(iCol) = Arr(iRow, iCol + 1)
      Next
    Next
  End With
End Sub

 

[hoang0569]

Cảm ơn bạn nhiều.