lamthaiql87
Tổng số bài gửi : 201
Điểm tích lũy : 4977
Thích : 0
Tham gia : 10/02/2012
 |  Tiêu đề: Dùng nhiều List cho 1 Combobox  Mon Feb 27, 2012 11:50 am | |
|
Excel
cung cấp cho bạn những cách để chọn 1 thứ trong 1 danh sách để nhập
liệu vào 1 ô. Trong đó có công cụ combobox, từ danh sách xổ xuống của
combobox, bạn có thể chọn 1 ngày trong tuần, 1 tháng trong năm, hoặc 1
sản phẩm trong danh sách. Nếu bạn cần chọn lựa trong 3 danh sách khác
nhau, bạn sẽ nghĩ rằng bạn cần 3 cái combobox.
Thay vì vậy, bạn dùng chiêu sau đây, kết hợp 1 combobox với 3 option
button. Trong thí dụ sau, bạn hãy tạo 1 bảng tính, điền số từ 1 đến 7
vào vùng A1:A7, điền từ chủ nhật đến thứ hai vào vùng B1:B7, và điền
tháng từ tháng 1 đến tháng 7 vào vùng C1:C7.
Một cách nhanh nhất để điền 21 ô này là hãy gõ 1 vào A1. Trong khi nhấn
giữ Ctrl, nắm cái fill handle của ô A1 và kéo xuống A7. Tiếp theo, gõ
Sunday vào B2, doubled-click vào fill handle của B1. Cuối cùng gõ Jan
vào ô C1, doubled-click vào fill handle của C1. Xong.
Bây giờ bạn vào Developer ➝ Controls ➝ Insert ➝ Form Controls (với
Excel 2003, View ➝ Toolbars ➝ Forms) và nhấn icon Option Button. Vẽ 3
cái lên sheet. Vẽ thêm 1 cái Groupbox bao quanh 3 cái Option cho đẹp.
Bây giờ vẽ 1 cái Combobox ở 1 chỗ thích hợp.
Nhấn chuột phải vào các Option, chọn Edit Text, sửa các từ Option1, Option 2, Option 3, Groupbox1 như hình:
Nhấn chuột phải vào 1 Option bất kỳ, chọn Format Control, trong tab Control, gõ $F$1 vào ô Cell Link.
Ở ô D6 gõ công thức =ADDRESS(1;$F$1)&":"&ADDRESS(7;$F$1)
Vào Define Name, đặt mới 1 name MyRange, công thức là =INDIRECT($D$6)
Nhấn chuột phải vào cái combobox, vào Format control, trong Cell link gõ MyRange, Cell link là $G$1.
Bây giờ khi bạn chọn 1 trong các option, ô F1 thay đổi các giá trị từ 1
đến 3, ô D6 thay đổi với các giá trị $A$1:$A$7, $B$1:$B$7, $C$1:$S$7. Và
list trong combobox cũng đổi theo.
Bổ sung:
Có 1 vấn đề là 3 list không phải lúc nào cũng dài bằng nhau (bằng 7
trong thí dụ trên), thí dụ số từ 1 đến 10, thứ trong tuần từ Chủ nhật
đến thứ bảy, tháng từ 1 đến 12. Vậy ta sẽ phải làm gì?
Ta hãy làm từ từ nhé, trước tiên là cách dùng ô phụ (tác giả cũng dùng 2 ô phụ).
Gõ công thức sau vào ô G1:
=COUNTA(INDIRECT(ADDRESS(1;$F$1)&":"&ADDRESS(100;$ F$1)))
Với công thức trên, G1 sẽ có các giá trị là 10, 7, 12 tương ứng với F1 là 1, 2, 3.
Sửa tiếp số 7 chết trong công thức ô D6 thành $G$1 cho động:
=ADDRESS(1;$F$1)&":"&ADDRESS($G$1;$F$1)
Kết quả hoàn toàn mỹ mãn. Ô D6 sẽ lần lượt là $A$1:$A$10, $B$1:$B$7, $C$1:$C$12
Bây giờ là cách GPE: dấu (bỏ) các ô phụ.
Hiện Name MyRange của ta là =INDIRECT($D$6),
Sửa bước thứ nhất là thay $D$6 bằng công thức của D6:
=INDIRECT(ADDRESS(1;$F$1)&":"&ADDRESS($G$1;$F$1))
Kế đó thay $G$1 bằng công thức của G1:
=INDIRECT(ADDRESS(1;$F$1)&":"&ADDRESS(COUNTA(INDIR ECT(ADDRESS(1;$F$1)&":"&ADDRESS(100;$F$1)));$F$1))
Ta có thể đàng hoàng xoá ô D6 và ô G1. Chỉ còn 1 ô F1 là link cell của 3 options, ta format nó thành chữ trắng là OK.
Trong file đính kèm dưới đây, tôi chưa xoá ô D6 và ô G1, để lại cho các bạn xem chơi, rồi từ từ xoá sau.
MỤC LỤC Những tuyệt chiêu trong Excel  Tập tin đính kèm
Multiple Lists in a ComboBox.xls
(28.5 KB, 3230 lần tải)
| |
|
