Nhờ mọi người giúp em về phần tiêu đề của listbox trong ActiveX Control (1 người xem)

[khanhhero]

Em có viết code để add dữ liệu vào listbox, để khi e có thay đổi dòng hay cột ở vùng dữ liệu thì ko ảnh hưởng tới listbox, tuy nhiên nếu viết additem thì e ko biết cách nào để hiển thị dòng header cho listbox. Mọi người có cách nào khắc phục được vấn đề này ko ạ?

Sub refresh_listbox()       
         Sheet8.Activate
         Sheet8.ListBox1.Clear
           Dim arr
           Dim i, j
            j = 0
           arr = Sheet7.Range(Sheet7.Range("A4"), Sheet7.Range("C4").End(xlDown)).Value
                  For i = LBound(arr) To UBound(arr)
                      Sheet8.ListBox1.AddItem arr(i, 1)
                      Sheet8.ListBox1.List(j, 1) = arr(i, 2)
                      Sheet8.ListBox1.List(j, 2) = arr(i, 3)
                         j = j + 1
                  Next i
       End Sub

 

[khanhhero]

Không có ai cứu giùm em ca này ah, hic hic