Trần Văn Soái
Trần Văn Soái
Thảo luận 2 thảo luận
Vỗ tay 0 vỗ tay
Lượt xem 166 lượt xem

Private Sub UserForm_Initialize() Dim dc As Long dc = Sheets("DS_hang")Range("a" & RowsCount)End(xlUp)RowDim

Private Sub UserForm_Initialize()
Dim dc As Long
dc = Sheets("DS_hang").Range("a" & Rows.Count).End(xlUp).Row
Dim ChonTen As Object
For Each ChonTen In Sheet1.Range("a3:a" & dc)
CBB_TenHang.AddItem ChonTen
Next

End Sub

Thảo luận 2 câu trả lời
Lượt xem 166 lượt xem
Vỗ tay vỗ tay
Trần Văn Soái 08:04 - Apr 17, 2021

thầy cho e hỏi e tạo cbb nhưng không dùng hàm offset để tạo list chỉ cần thay thông số của thầy bằng dòng cuối thì n vẫn tự động nạp vào cbb bình thường. vậy cách đó có gì sai k ah

Vỗ tay vỗ tay
Trần Văn Soái 08:04 - Apr 17, 2021

cách tạo list như code của bạn là đúng rồi nhé.

Bạn có thể kết hợp thêm lệnh sắp xếp cho vùng danh sách 

Sheet1.Range("a3:a" & dc)

để đảm bảo ko có dòng trống xen kẽ. Lệnh sắp xếp có thể record macro rồi sửa lại code record là được.

Vỗ tay vỗ tay
Câu hỏi liên quan
© 2020 - Bản quyền của Công Ty Cổ Phần Công Nghệ Giáo Dục Gitiho Việt Nam
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông