VBAG03 (Nâng cao) - Code mẫu và các chuyên đề ứng dụng VBA

để chuyển dữ liệu từ userform xuống sheet ở dạng number thì bạn dùng lệnh sau:

Sheets("tên sheet").Range("vùng ô nhận").Value = CLng(Me.TextBox1.Value)

Trong đó CLng có nghĩa là Convert to Long => chuyển giá trị về dạng số

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

Lỗi này là bạn đang gọi 1 đối tượng chưa được khai báo.

Bạn có thể kiểm tra lại tên của combobox xem đã viết đúng tên chưa nhé.

File mẫu có ở trong chương 1 bạn nhé. Bạn vào đây để tải tài liệu về. Nội dung bài giảng tính từ chương 2.