Võ Hoàng Ngân
Võ Hoàng Ngân
Thảo luận 3 thảo luận
Vỗ tay 0 vỗ tay
Lượt xem 269 lượt xem

xin phép được hỏi là tôi muốn tạo listview có 20 ̣t nhưng chỉ thể

xin phép được hỏi là tôi muốn tạo listview có 20 cột nhưng chỉ thể hiện được 10 cột, vậy tôi phải làm thế nào?
Thảo luận 3 câu trả lời
Lượt xem 269 lượt xem
Vỗ tay vỗ tay
Võ Hoàng Ngân 09:06 - Jun 29, 2020
Bạn có thể tham khảo đoạn code dưới đây:
1. Đoạn code tải listview vào userform
Private Sub LoadListView()
'Gán các biến
Dim wksSource As Worksheet
Dim rngData As Range
Dim rngCell As Range
Dim LstItem As ListItem
Dim RowCount As Long
Dim ColCount As Long
Dim i As Long
Dim j As Long

'Thiết lập biến workbook (đổi tên sheet khác theo thực tế sử dụng)
Set wksSource = Worksheets("Sheet1")

'Thiết lập biến Range là vùng bảng tính từ ô A1 (đổi vùng khác theo thực tế sử dụng)
Set rngData = wksSource.Range("A1").CurrentRegion

'Thêm header cho bảng, chỉnh lại độ rộng các cột
For Each rngCell In rngData.Rows(1).Cells
Me.ListView1.ColumnHeaders.Add Text:=rngCell.Value, Width:=90
Next rngCell

'Đếm số dòng trong bảng
RowCount = rngData.Rows.Count

'Đếm số cột trong bảng
ColCount = rngData.Columns.Count

'Tải bảng vào Listview theo vòng lặp gồm cả dòng và cột
For i = 2 To RowCount
Set LstItem = Me.ListView1.ListItems.Add(Text:=rngData(i, 1).Value)
For j = 2 To ColCount
LstItem.ListSubItems.Add Text:=rngData(i, j).Value
Next j
Next i

End Sub

2. Đoạn code khi kích hoạt UserForm, sẽ chạy lệnh để cập nhật Listview:
Private Sub UserForm_Activate()

'Set a reference to Microsoft Windows Common Controls by
'using Tools > References in the Visual Basic Editor (Alt+F11)

'Set some of the properties for the ListView
With Me.ListView1
.Gridlines = True
.HideColumnHeaders = False
.View = lvwReport
End With

'Call the sub to fill the ListView
Call LoadListView

End Sub

Bạn đưa cả 2 đoạn code trên vào trong phần viết code của UserForm nhé.
Vỗ tay vỗ tay
Võ Hoàng Ngân 10:04 - Apr 10, 2023

Chào thầy, hiện tại em bị lỗi này không biết xử lý như thế nào. Nhờ thầy giúp

Vỗ tay vỗ tay
Võ Hoàng Ngân 11:04 - Apr 10, 2023

Chào bạn bạn lưu file và thử lại nhé.

Vỗ tay vỗ tay
Câu hỏi liên quan
© 2020 - Bản quyền của Công Ty Cổ Phần Công Nghệ Giáo Dục Gitiho Việt Nam
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông