Chia sẻ tiện ích nhỏ tự động cập nhật ngày làm việc khi mở file Excel

Chào các anh em trong diễn đàn,

Dạo này công việc nhiều, mình hay quên cập nhật ngày tháng vào file báo cáo Excel. Mỗi lần mở file lên là lại phải ngồi sửa tay từng ô. Bực mình quá nên mình tìm tòi và làm được một cái tiện ích nhỏ, tự động cập nhật ngày làm việc hiện tại vào một ô nhất định mỗi khi mình mở file lên. Nay chia sẻ lại cho anh em nào cũng hay gặp tình huống tương tự.

Cách làm khá đơn giản, chỉ cần thêm đoạn code VBA sau vào module của file Excel:

Private Sub Workbook_Open()
    ' Thay đổi 'Sheet1' thành tên sheet bạn muốn
    ' Thay đổi 'A1' thành ô bạn muốn cập nhật ngày
    Sheets('Sheet1').Range('A1').Value = Date
End Sub

Lưu ý:

Bạn cần thay 'Sheet1' bằng tên sheet thực tế bạn muốn cập nhật.
Bạn cần thay 'A1' bằng địa chỉ ô mà bạn muốn tiện ích này ghi đè ngày tháng vào.
Sau khi thêm code, bạn lưu file dưới dạng .xlsm (Excel Macro-Enabled Workbook) để code có thể chạy được.

Từ giờ mỗi lần mở file lên, ô đó sẽ tự động cập nhật ngày hiện tại. Khá tiện lợi cho việc theo dõi tiến độ hoặc ghi nhận ngày làm việc phải không ạ?

Anh em nào có cách nào hay hơn hoặc muốn tùy chỉnh thêm thì cùng thảo luận nhé!

Menu

Chia sẻ tiện ích nhỏ tự động cập nhật ngày làm việc khi mở file Excel