Ad xem giúp mình viết câu lệnh nạp dữ liệu vào combobox thì báo lỗi Type Missmatch như thế này thì xử lý ntn?
Chào bạn bạn sử dụng code sau nhé:
Code mẫu
Private Sub UserForm_Initialize() 'Gọi sub Loadcombox để thực hiện
Call loadcombobox
End Sub
Sub loadcombobox()
Dim Arr As Variant, dc As Long 'Tìm dòng cuối chứa dữ liệu
dc = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Row 'Đưa dữ liệu vào mảng
Arr = Sheet1.Range("A3:A" & dc).Value
'Xoá list cũ nếu có
cbb_TenHang.Clear
'Nạp dữ liệu lại list
cbb_TenHang.List = Arr
End Sub
Nhưng tại sao không sử được câu lệnh gọi danh sách như trong bài học hả thầy?
Chào bạn có nhiều phương thức để gọi phần trong bài học thi thoảng bị lỗi với một số máy, nên mình sử dụng list đê truyền vào nhé.
Thank thầy nhé!
Chúc bạn học tốt cùng gitiho