Chào mọi người,
Hôm nay mình muốn chia sẻ một tiện ích nhỏ mà mình tự phát triển để giúp tự động cập nhật giá trị theo ngày trong file Excel. Cái này rất hữu ích cho các bạn làm báo cáo, theo dõi tiến độ dự án, hoặc quản lý các khoản thu chi theo thời gian.
Vấn đề: Thường thì chúng ta phải tự tay nhập hoặc copy-paste giá trị cho từng ngày, rất mất thời gian và dễ sai sót, đặc biệt khi cần theo dõi dữ liệu trong một khoảng thời gian dài.
Giải pháp: Mình đã viết một đoạn VBA nhỏ để tự động điền giá trị (hoặc công thức tính toán) vào các ô dựa trên ngày tháng. Ví dụ, bạn có thể thiết lập để một ô tự động nhận giá trị 'Đã hoàn thành' nếu ngày hiện tại đã qua hạn chót, hoặc tự động tính toán doanh thu dựa trên ngày.
Cách hoạt động cơ bản:
- Sử dụng hàm
Today()hoặcNow()để lấy ngày hiện tại. - Kết hợp với các hàm điều kiện như
IF,VLOOKUP,INDEX-MATCHđể tra cứu và cập nhật giá trị tương ứng. - Đối với các cập nhật phức tạp hơn, có thể dùng VBA để lặp qua các ngày và thực hiện hành động.
Ví dụ đơn giản với hàm IF:
Giả sử bạn có cột A là ngày, cột B là hạn chót, và cột C là trạng thái. Bạn muốn cột D hiển thị 'OK' nếu hôm nay là ngày hoặc sau hạn chót, ngược lại là 'Chưa đến hạn'.
Tại ô D2, bạn có thể nhập công thức:
=IF(TODAY()>=B2, "OK", "Chưa đến hạn")Sau đó kéo công thức xuống cho các hàng còn lại.
Nếu có ai cần một giải pháp chi tiết hơn hoặc có ý tưởng để cải tiến, cùng thảo luận nhé!