Input Range cho Combobox ( Form Control ) (1 người xem)

[quocphuoc88]

Em có 1 file lấy trên diễn đàn ( file này của Thầy Ndu tạo ). Em nguyên cứu hoài mà không tìm được 'Input Range' cho combobox thuộc loại Form Control. Em xin hỏi các thầy/anh/chị/bạn làm sao để tạo được cái 'Input Range' như file đính kèm.
Em cám ơn !

 

[ndu96081631]

Em có 1 file lấy trên diễn đàn ( file này của Thầy Ndu tạo ). Em nguyên cứu hoài mà không tìm được 'Input Range' cho combobox thuộc loại Form Control. Em xin hỏi các thầy/anh/chị/bạn làm sao để tạo được cái 'Input Range' như file đính kèm.
Em cám ơn !

Cái đó gọi là "chơi chiêu": Dùng VBA để tạo list, xong xóa dữ liệu nguồn và code nhưng cái list nó vẫn còn nên người ta nhìn thấy rất.. bí hiểm. Ẹc... Ẹc...
Thử làm từ đầu trên ComboBox mới của bạn nhé (nó có tên là Drop Down 4 theo như ta thấy trên NameBox) :
- Gõ chữ Tháng 1 vào cell A1 rồi kéo fill xuống đến cell A12 (ta được list tháng)
- Bấm Alt + F11 để vào cửa sổ VBA
- Bấm tiếp Ctrl + G để mở cửa sổ Immediate rồi gõ: Sheet1.Dropdowns("Drop Down 4").List = Range("A1:A12").Value
- Gõ xong, Enter một phát rồi ra ngoài bảng tính kiểm tra xem ComboBox đã có list chưa
- Nếu thấy OK, giờ ta xoá luôn dữ liệu tại A1:A12 và kiểm tra ComboBox lần nữa
.......
Ngon lành không?

 

[fclinux]

Hi thầy ndu,
nếu các đó mình có thể tạo code dễ dàng để cập nhập cho cái combobox nhưng trong trường hợp dữ liệu ko có thì khi khởi động file lên có lỗi không, ngoài ra em thắc mắc là dữ liệu sau khi chạy code bị xóa đi nhưng combo bõ vẫn có vậy dữ liệu được lưu trữ ở đâu?

 

[quocphuoc88]

Cái đó gọi là "chơi chiêu": Dùng VBA để tạo list, xong xóa dữ liệu nguồn và code nhưng cái list nó vẫn còn nên người ta nhìn thấy rất.. bí hiểm. Ẹc... Ẹc...
Thử làm từ đầu trên ComboBox mới của bạn nhé (nó có tên là Drop Down 4 theo như ta thấy trên NameBox) :
- Gõ chữ Tháng 1 vào cell A1 rồi kéo fill xuống đến cell A12 (ta được list tháng)
- Bấm Alt + F11 để vào cửa sổ VBA
- Bấm tiếp Ctrl + G để mở cửa sổ Immediate rồi gõ: Sheet1.Dropdowns("Drop Down 4").List = Range("A1:A12").Value
- Gõ xong, Enter một phát rồi ra ngoài bảng tính kiểm tra xem ComboBox đã có list chưa
- Nếu thấy OK, giờ ta xoá luôn dữ liệu tại A1:A12 và kiểm tra ComboBox lần nữa
.......
Ngon lành không?

Em cám ơn . Đúng là 'chơi chiêu' này thì quả là bí hiểm thiệt. Lại có trò 'lừa thị giác' nữa rồi ! hehe

 

[ndu96081631]

Em cám ơn . Đúng là 'chơi chiêu' này thì quả là bí hiểm thiệt. Lại có trò 'lừa thị giác' nữa rồi ! hehe

Thật ra mọi thứ đều có trên GPE. Nếu bạn rảnh, cứ ghé chỗ này:
http://www.giaiphapexcel.com/forum/showthread.php?7146-Đố-vui-về-VBA!
Gần như toàn bộ các trò "đánh lừa" đều ở đây cả (kể cả trò "chơi chiêu" này)

 

[giola]

Em cám ơn . Đúng là 'chơi chiêu' này thì quả là bí hiểm thiệt. Lại có trò 'lừa thị giác' nữa rồi ! hehe

Có gì đáng chiêu trò đâu, nếu bạn thấu hiểu cái cơ bản thôi về Thuộc tính List, và bản chất Array của Range.Value

 

[ndu96081631]

Có gì đáng chiêu trò đâu

Vâng! Với người ít học như bọn mình thì mấy trò này cũng hay lắm. Giỏi như bạn thì quan tâm làm gì