Xin nhờ anh chị giúp đẩy dữ liệu vào listbox

[huanhb]

em có 1 danh sách điểm danh như hình (Sheet 6A) .
hiện em cần load nó vào listbox (hình 2 ) , em có code như hình 3 nhưng phạm vi biến x không thể chạy quá 11, nếu quá là lỗi như hình 4. em chưa hiểu tại sao lại bị như vậy . mong mọi người giúp đỡ ạ

Bạn cần đăng nhập để thấy hình ảnh

hình 1: file excel của em đang có

Bạn cần đăng nhập để thấy hình ảnh

hình 2 : lítbbox em đang xây dựng nhưng nó chỉ chạy dc dưới 10 column , giờ em cần lên 30 cloum vì điểm danh hs 1 tháng khoảng 30 ngày

Bạn cần đăng nhập để thấy hình ảnh

code đã chạy dc . dưới 10 column

Bạn cần đăng nhập để thấy hình ảnh

code khi quá 10 bị lỗi như hình
link file của em :

Bạn cần đăng nhập để thấy link

 

[Yukino Ichikawa]

Theo mình tìm hiểu thì Listbox cho bạn dùng tối đa 10 cột nếu dùng Additem để thêm dữ liệu vô listbox.
Nguồn:

Bạn cần đăng nhập để thấy link

Tuy nhiên nếu bạn sử dụng RowSource thì bạn có thể hiện thị rất nhiều cột trên listbvox. Ví dụ :

ListBox1.RowSource = "A1:Y1"

 

[huanhb]

dạ em cảm ơn ạ. em cũng vừa học hỏi dc 1 thầy trên fb. sử dụng mảng để đưa bảng vào list như sau

Me.lstSMAS.AddItem
    lr = Sheet4.Range("B" & Rows.Count).End(xlUp).Row
    ArrBang = Sheet4.Range("a7:AL" & lr).Value  'goi sheet vao list
    lstSMAS.List = ArrBang   'goi tu list tren vao listbox

cảm ơn mọi người nhiều ạ

 

[Yukino Ichikawa]

ListBox1.List = Sheets(1).Range("A2:B6").Value

Nguồn:

Bạn cần đăng nhập để thấy link

Mình chưa kiểm tra cách này có bị giới hạn số cột hay không. Bạn thử xem sao.