Tạo một danh sách xác thực thay đổi theo sự lựa chọn từ một danh sách khác nhờ VBA

[bigsale001]

Để các bạn hiểu rõ hơn đề tài, mình xin sơ lược như sau:

Giả dụ chung ta có 1 CSDL (cơ sở dữ liệu) về mua/bán hàng trong năm;
Gồm có nhiều trường, trong đó có trường ngày tháng năm thực hiện việc mua/bán hàng;
Trường này cở khoảng 300 dòng hay không ít hơn.
Tiếp theo, ở ô nào đó trên trang tính, như [C1] ta có danh sách lựa chọn 1 trong 4 quí
Ta muốn rằng khi chọn 1 quý nào đó, như quí II; thì ô [E1] sẽ có danh sách đổ xuống của tất cả các ngày trong quí này có trong CSDL;

Chuyện này có thể làm bằng công thức (hàm) của excel, nhưng khá vất vã!

Thêm nữa, nếu ổ [E1] ta chọn 1 ngày cụ thể nào đó trong quí, coi như ngày bắt đầu để khảo sát dữ liệu, thì ô [E3] dưới nó sẽ cho ta 1 danh sách chọn từ ngày bắt đầu (ở [E1] ta đã chọn) đến ngày cuối quí

Các bạn có thể thắc mác: Làm chi vậy?
Xin thưa, ta cần khảo sát dữ liệu trong kỳ (như tuần, mươi ngày, tháng) để tổng hợp bào cáo cho Sếp

Chuyện này trong tầm tay với vài dòng lệnh tương đối đơn giản trong 1 macro sự kiện

Xin các bạn xem trong file đính kèm sẽ rõ hơn.

View more random threads:

• Giúp mình gở pass trong VBA
• Theo dõi thu học phí sinh viên
• PHẦN MỀM KẾ TOÁN EXCEL
• cách sổ danh sách trong combobox
• Tạo mã danh sách khách hàng trong Excel
• Đưa bài lên dùm 1 bạn
• [help] xin code chuyển sheet
• Phát hành sách Lập trình VBA trong Excel
• Viết code trong excel
• Học VBA??

[hoanghuy87]

Ðề: Tạo một danh sách xác thực thay đổi theo sự lựa chọn từ một danh sách khác nhờ VBA

Chuyện này có thể làm bằng công thức (hàm) của excel, nhưng khá vất vã!

Thêm nữa, nếu ổ [E1] ta chọn 1 ngày cụ thể nào đó trong quí, coi như ngày bắt đầu để khảo sát dữ liệu, thì ô [E3] dưới nó sẽ cho ta 1 danh sách chọn từ ngày bắt đầu (ở [E1] ta đã chọn) đến ngày cuối quí

Tại sao vất vả . Paste cái công thức này và cột B2 rồi drag nó xuống

="Q"&INT((MONTH(A2)-1)/3+1)&" - "&YEAR(A2)

Làm table list range hoặc dynamic range để pull down từng Qúy .

VBA cũng viết đơn giản vậy thôi . Muốn sạch mà ko mess up data thì sang Sheet2 mà đọc ngược lại data trong Sheet1