Xin hỏi về viết lệnh để gán dữ liệu vào hộp combox.... (1 người xem)

[Thay Luu]

Xin chào cả nhà!
Nhờ anh em diễn đàn chỉ giúp mình vấn đề này về lập trình VBA với Excel: Mình tạo một Form, trên Form mình tạo 70 combox được đặt tên lần lượt là cb1, cb2, ...cb70. Mình muốn gán dữ liệu từ 70 ô tính tương ứng vào 70 conbox trên thì viết lệnh như thế nào là gọn nhất... vì hiện tại mình phải viết 70 lệnh, nhiều quá, mỗi lần sửa là đuối luôn... rất mong nhận được sự giứp đỡ của quý anh chị em diễn đàn... Xin cảm ơn rất nhiều!

 

[viehoai]

Xin chào cả nhà!
Nhờ anh em diễn đàn chỉ giúp mình vấn đề này về lập trình VBA với Excel: Mình tạo một Form, trên Form mình tạo 70 combox được đặt tên lần lượt là cb1, cb2, ...cb70. Mình muốn gán dữ liệu từ 70 ô tính tương ứng vào 70 conbox trên thì viết lệnh như thế nào là gọn nhất... vì hiện tại mình phải viết 70 lệnh, nhiều quá, mỗi lần sửa là đuối luôn... rất mong nhận được sự giứp đỡ của quý anh chị em diễn đàn... Xin cảm ơn rất nhiều!

Tốt nhất bạn đưa file lên để mọi người giúp, nói không không như thế này biết gì mà giúp

 

[Thay Luu]

Cảm ơn bạn đã quan tâm! Mình gửi file lên bạn xem giúp nhé... Đây là file thử ...
https://drive.google.com/file/d/0BzfD8cVapiEqSFljMnd5bE1vWEk/edit?usp=sharing

 

[dhn46]

Nếu các Combobox đó được đặt tên theo đúng quy luật Cb & i thì bạn thủ với code sau

 For i = 1 To 70
    Me.Controls("CB" & i).Value = Trim(Cells(1, i))
 Next

 

[Thay Luu]

Đúng ý rồi đó bạn! Thank nhiều nhé!