Có thể đôi khi bạn muốn đầu trang hoặc chân trang của mình chứa ngày cuối cùng sổ làm việc của bạn được lưu. Thông thường, đây không phải là thông tin bạn có thể đặt trong Excel. Tuy nhiên, bạn có thể sử dụng macro sau để buộc thông tin vào đúng vị trí:

Sub MyFooter()

Dim mh As String On Error Resume Next mh = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")

If Err = 440 Then    Err = 0    mh = ActiveWorkbook.BuiltinDocumentProperties("Creation Date")

If Err = 440 Then       Err = 0       mh = "Not Set"

End If End If mh = Left(mh, 8)

ActiveSheet.PageSetup.LeftFooter = "Saved: " & mh End Sub

Có một số mục cần lưu ý trong macro này. Trước hết, nó cố gắng xác định ngày (và giờ) cuối cùng mà sổ làm việc được lưu. Nếu thông tin đó không thể được xác định, thì nó sẽ trích xuất ngày nó được tạo. Cuối cùng, nếu không thể tìm thấy, thì nó sẽ đặt chân trang thành “Không được lưu”.

Lưu ý rằng có một số xử lý lỗi được thực hiện trong macro này. Lý do là Excel sẽ trả về lỗi nếu thuộc tính tài liệu cụ thể (BuiltinDocumentProperty trong trường hợp này) không được đặt. Lỗi cần được ngăn chặn và xử lý, được thực hiện ở đây.

Bạn nên lưu ý rằng macro này, sau khi chạy, sẽ đặt chân trang bên trái thành thông tin mong muốn. Thông tin đó sẽ không thay đổi lại cho đến khi bạn chạy lại macro. Do đó, nếu bạn luôn muốn cập nhật ngày ở chân trang, thì bạn nên chạy macro theo định kỳ (có lẽ ngay trước khi in) hoặc thiết lập để chạy bất cứ khi nào bạn mở tài liệu của mình.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (2055) áp dụng cho Microsoft Excel 97, 2000, 2002 và 2003.