Làm sao để ghi lại thời gian lần save cuối

[ducleminh]

Tôi có quản lý một file excel nhưng share cho mọi người trong mạng nội bộ. Ai cũng có thể save lại.
Nhưng giờ tôi muốn nhập công thức vào một ô để ô đó thể hiện thời gian (giờ và ngày) lần save cuối cùng, để tôi biét được thời gian file đó được update lần cuối để tiện theo dõi
excel có hỗ trợ chức năng này khong các bạn ?
Xin hướng dẫn mình với !

 

[dunglev]

bạn thêm đoạn code này vào file

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
         Sheet1.Cells(1, 1) = Format(Now, "dd-mm-yy hh:mm:ss")
End Sub

 

[TrungChinhs]

Bạn dán đoạn code này vào Thisbook và nhấn save thử xem

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
         [A1] = "Cap nhat lan cuoi luc " & Time & " ngay " & Date
End Sub

 

[ducleminh]

Bạn dán đoạn code này vào Thisbook và nhấn save thử xem

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
         [A1] = "Cap nhat lan cuoi luc " & Time & " ngay " & Date
End Sub

Bạn có thể chỉ rõ mình chèn code này vào như thế nào ko? Mình chưa bao giờ sử dụng chức năng chèn code này. Thanks bạn nhiều nhé !

 

[yeudoi]

Bạn có thể chỉ rõ mình chèn code này vào như thế nào ko? Mình chưa bao giờ sử dụng chức năng chèn code này. Thanks bạn nhiều nhé !

Cái này là bạn bấm Alt + F11 sau đó nhìn bên trái có This workbook bấm vào đó và copy code trên dán vào OK

 

[TrungChinhs]

Bạn làm như anh Yeudoi nhưng lưu ý là phải nhấn đúp vào This workbook nhé !

B/s Nếu bạn muốn chữ có dấu thì bạn làm như sau: vd tại ô Z1 bạn ghi các chữ Cập nhật lần cuối cùng lúc và gõ một ký tự trắng ; tại ô Z2 bạn gõ một ký tự trắng ngày một ký tự trắng sau đó bạn sửa lại code thay chữ bằng địa chỉ ô có chữ đó

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
         [A1] = [Z1] & Time & [Z2] & Date
End Sub

 

[phuongc5]

Minh hoạ: Sau khi đã ấn Alt+F11 thì thực hiện như hình ví dụ sau. Sau cùng thì ấn Alt+Q để thoát ra ngoài.

 

[ducleminh]

Cám ơn sự chỉ dẫn của các bạn rất là nhiều
Chúc các bạn luôn thành công trong cộc sống nhé !
Mình chỉ vừa mới biết đến macro của exel thôi, mình muốn học hỏi thêm lắm
Nếu bạn nào có tài liệu để tìm hiểu về nó thì gửi cho mình với nhé
Thanks các bạn nhiều
Email: tnducleminh@gmail.com