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:

• Nhập ngày hiện tại ở bất kỳ Cell nào bằng Calendar
• Lớp học VBA căn bản tại Hà Nội
• Nhập dữ liệu Sheet B,C,D thì tự động điền vào Sheet tổng hợp A
• Nhập trùng dữ liệu 1 trong 2 cột thì hiện hộp thoại thông báo
• Viết code trong excel
• Theo dõi sinh viên
• xin giúp đỡ của mọi người về code VBA lọc dữ liệu có điều kiện với khối lượng lớn dữ liệu
• Sách lập trình VBA cho Excel
• Lệnh in trong Ecxel - Mong các cao thủ trợ giúp về VBA
• Khắc phục sự cố của chương trình ( chạy chậm và công thức bị thay đổi )

[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