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:

• Load hình vào UserForm
• Khắc phục sự cố của chương trình ( chạy chậm và công thức bị thay đổi )
• Xin hỏi cách copy thông tin trong 1 sheet để khi thay đổi ở sheet gốc thì sheet con cũng thay đổi
• Làm sao để past link từ word (nhiều trang liên tiếp) qua Excel
• Giúp em viết code VBA để copy nhiều sheet vào sheet tổng cộng
• CÁch tính tổng các số trong một số!
• Theo dõi Văn bản, sử dụng PivotTable để tổng hợp báo cáo và xuất danh sách theo nhu cầu.
• Tạo 1 sheet như Form để nhập liệu
• Các anh chị pro ơi!!!!!!!!!!!! help me!!!!!!!!
• Cần hỗ trợ code 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