lỗi application

Dạ vâng Gitiho xin giải đáp thắc mắc của anh/chị đoạn mã như sau ạ:

Private Sub UserForm_Initialize()
   ' Phạm vi danh sách
   Dim DongDau_DS_HangHoa As Long
   Dim DongCuoi_DS_HangHoa As Long
   DongDau_DS_HangHoa = 5
   DongCuoi_DS_HangHoa = Sheets("ThietLap_DanhSach").Range("C" & Rows.Count).End(xlUp).Row
   Me.cb_nhomhang.List = Sheets("ThietLap_DanhSach").Range("C" & DongDau_DS_HangHoa & ":C" & DongCuoi_DS_HangHoa).Value
End Sub

Chú ý là cần có ".List" ở Me.cb_nhomhang.List ạ!

Khi ta thêm ".List" vào cuối của câu lệnh "Me.cb_nhomhang" để gán dữ liệu vào combobox. Điều này cho phép anh/chị gán một mảng dữ liệu (Sheets("ThietLap_DanhSach").Range("C" & DongDau_DS_HangHoa & ":C" & DongCuoi_DS_HangHoa).Value) vào combobox "cb_nhomhang".

Với sửa đổi này, hàm UserForm_Initialize sẽ hoạt động đúng và gán dữ liệu từ phạm vi "C" từ hàng "DongDau_DS_HangHoa" đến hàng "DongCuoi_DS_HangHoa" vào combobox