T
thanhphuongvip
Guest
Xin chào các bạn, mình đang học VBA cơ bản và đang tập thực hành để viết một ứng dụng để quản lý nhập xuất hàng hóa để nâng cao trình độ.
Vì là mới học nên trong lúc viết có những cái thắc mắc nên mình lập topic này để mình hỏi những vấn đề chưa biết, mong bạn nào biết giải đáp cho mình.
Có những cái rất cơ bản nhưng mình chưa biết nên cũng hỏi, mấy bạn đừng chê mình ngu nha
Câu hỏi đầu tiên:
Mình muốn đưa dữ liệu từ sheet3 sang listbox ListSanPham như sau, ko biết sai chỗ nào:
Không biết sai chỗ nào mà nó báo lỗi Type Miss Match!
Đa tạ mọi người!
Vì là mới học nên trong lúc viết có những cái thắc mắc nên mình lập topic này để mình hỏi những vấn đề chưa biết, mong bạn nào biết giải đáp cho mình.
Có những cái rất cơ bản nhưng mình chưa biết nên cũng hỏi, mấy bạn đừng chê mình ngu nha
Câu hỏi đầu tiên:
Mình muốn đưa dữ liệu từ sheet3 sang listbox ListSanPham như sau, ko biết sai chỗ nào:
Mã:
Private Sub UserForm_Initialize()
Dim ArrMaHang() 'Khai báo mảng
Dim lr As Long
lr = Sheet3.Range("B" & Rows.Count).End(xlUp).Row
ArrMaHang = Sheet3.Range("B10:D" & lr).Value 'đưa dữ liệu vào mảng
ListSanPham.RowSource = ArrMaHang 'gán mảng cho listbox
End Sub
Đa tạ mọi người!