Khi bạn đang phát triển một trang tính, bạn có thể cần theo dõi một số thông tin nhất định về sổ làm việc của mình. Ví dụ: bạn có thể muốn đặt ngày tạo sổ làm việc vào một ô. Mặc dù Excel cung cấp một số hàm trang tính cho ngày tháng (chẳng hạn như NGAY BÂY GIỜ hoặc HÔM NAY), nó không cung cấp hàm trang tính để truy cập ngày tạo sổ làm việc.

Điều này có nghĩa là câu trả lời nằm ở việc sử dụng macro. Ví dụ: bạn có thể tạo một macro xác định ngày hiện tại và nhập nó (dưới dạng văn bản) vào một ô cụ thể. Sau đó, macro này có thể được chạy bất cứ khi nào bạn tạo một sổ làm việc mới bằng cách đặt tên cho macro là Auto_Open. Sau đây là một ví dụ về macro như vậy:

Sub Auto_Open()

If Worksheets.Application.Range("A1") = "" Then         Worksheets.Application.Range("A1") = Format(Date, "long Date")

End If End Sub

Macro sẽ kiểm tra xem có gì trong ô A1. Nếu không có gì ở đó, thì nó sẽ đưa phiên bản văn bản của ngày hôm nay vào đó. Nếu đã có thứ gì đó ở đó (sẽ có mỗi khi bạn mở sổ làm việc sau đó), thì thông tin sẽ được giữ nguyên vẹn và không bị che khuất.

Tuy nhiên, có lẽ cách tiếp cận thỏa đáng nhất là truy cập thực sự vào hệ điều hành và kéo ngày tạo tệp cho sổ làm việc hiện tại. Điều này có thể được thực hiện với hàm macro sau:

Function CreateDate() As String     Dim Temp As String     On Error GoTo NoFile     Temp = CreateObject("scripting.filesystemobject"). _       GetFile(ActiveWorkbook.Name).dateCreated

CreateDate = Left(Temp, InStr(Temp, " ") - 1)

GoTo Done NoFile:

CreateDate = "Not Saved"

Done:

End Function

Lưu ý rằng phương pháp này không gắn với một ô cụ thể trong trang tính của bạn. Để sử dụng macro, chỉ cần đặt thông tin sau vào bất kỳ ô nào trong trang tính của bạn:

=CreateDate()

Hàm trả về “Chưa được Lưu” (nếu sổ làm việc là thương hiệu mới và chưa được lưu trước đó) hoặc trả về giá trị văn bản đại diện cho ngày sổ làm việc được tạo.

_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 (2367) áp dụng cho Microsoft Excel 97, 2000, 2002 và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Excel (Excel 2007 trở lên) tại đây: