Bỏ qua nội dung chính

Lấy và chèn thời gian đã tạo và thời gian sửa đổi lần cuối vào các ô

Bài viết này sẽ nói về các cách lấy thời gian được tạo và thời gian sửa đổi cuối cùng của thông tin sổ làm việc hiện tại, đồng thời chèn thời gian đã tạo và thời gian sửa đổi cuối cùng của thông tin sổ làm việc hiện tại trong các ô trong Excel.

Nhận thời gian đã tạo và thời gian sửa đổi lần cuối trong Excel với lệnh Info

Nhận thời gian đã tạo và thời gian sửa đổi lần cuối trong Excel với chức năng Thuộc tính nâng cao

Chèn thời gian đã tạo và thời gian sửa đổi lần cuối vào các ô trong Excel với mã VBA

Chèn thời gian đã tạo và thời gian sửa đổi lần cuối vào ô / đầu trang / chân trang với Kutools cho Excel ý kiến ​​hay3


mũi tên màu xanh bong bóng bên phải Nhận thời gian đã tạo và thời gian sửa đổi lần cuối trong Excel với lệnh Info

Chúng tôi có thể tìm ra chính xác thời gian được tạo và thời gian sửa đổi cuối cùng của sổ làm việc hiện tại trong chế độ xem hậu trường của Microsoft Excel 2010/2013.

Nhấn vào Tập tin > Thông tinvà ở phía bên phải của chế độ xem hậu trường, nó hiển thị Ngày liên quan thông tin. Phía dưới cái Ngày liên quan tiêu đề, nó liệt kê thời gian sửa đổi lần cuối, thời gian đã tạo và thời gian in lần cuối. Xem ảnh chụp màn hình sau:

-2

 

Lưu ý: Cách này chỉ khả dụng trong Microsoft Excel 2010/2013. Nó không hợp lệ trong Excel 2007.


mũi tên màu xanh bong bóng bên phảiNhận thời gian đã tạo và thời gian sửa đổi lần cuối trong Excel với chức năng Thuộc tính nâng cao

Trên thực tế, chúng ta có thể lấy cả thời gian được tạo và thời gian sửa đổi cuối cùng của sổ làm việc hiện tại trong hộp thoại Thuộc tính Tài liệu.
Bước 1: Mở Thuộc tính nâng cao hộp thoại:

Trong Excel 2007, bấm vào Office nút> Chuẩn bị > Bất động sảnTài sản Tài sản thanh sẽ được hiển thị bên dưới thanh công cụ, nhấp vào Tài sản Tài sản > Thuộc tính nâng cao, xem ảnh chụp màn hình:

doc-insert-mod-time-3-3
-1
doc-insert-mod-time-4-4

 

Trong Excel 2010/2013, bấm vào Tập tin > Thông tin > Bất động sản > Thuộc tính nâng cao.

doc-insert-mod-time-4-4

Bước 2: Bên trong Thuộc tính nâng cao hộp thoại, bạn sẽ thấy thời gian được tạo và thời gian sửa đổi lần cuối trong tab Thống kê. Xem ảnh chụp màn hình sau:

doc-insert-mod-time-4-4


mũi tên màu xanh bong bóng bên phải Chèn thời gian đã tạo và thời gian sửa đổi lần cuối vào các ô trong Excel với mã VBA

Các macro VBA sau đây sẽ giúp bạn chèn trực tiếp thời gian đã tạo và thời gian sửa đổi cuối cùng của thông tin sổ làm việc hiện tại vào các ô.

Chèn cả thời gian đã tạo và thời gian sửa đổi cuối cùng trong Excel

Bước 1: Nhấn giữ ALT + F11 và nó sẽ mở cửa sổ Microsoft Visual Basic for Applications.

Bước 2: Nhấp chuột Chèn >> Mô-đunvà dán macro sau vào Cửa sổ mô-đun.

Mã VBA: Chèn cả thời gian đã tạo và thời gian sửa đổi lần cuối trong Excel

Sub Workbook_Open()
Range("A1").Value = Format(ThisWorkbook.BuiltinDocumentProperties("Creation Date"), "short date")
Range("A2").Value = Format(ThisWorkbook.BuiltinDocumentProperties("Last Save Time"), "short date")
End Sub

Bước 3: Nhấn F5 phím để chạy macro này. Và sau đó ngày đã tạo và ngày sửa đổi cuối cùng sẽ được chèn vào ô A1 và ô A2 riêng biệt.

Chú thích: bạn có thể sửa đổi ô đích trong VB tùy theo nhu cầu của bạn.

Chèn thời gian sửa đổi cuối cùng của sổ làm việc trong Excel

Bước 1: Nhấn giữ ALT + F11 và nó sẽ mở cửa sổ Microsoft Visual Basic for Applications.

Bước 2: Nhấp chuột Chèn >> Mô-đunvà dán macro sau vào Cửa sổ mô-đun.

Public Function ModDate()
ModDate = Format(FileDateTime(ThisWorkbook.FullName), "m/d/yy h:n ampm")
End Function

Bước 3: Sau đó lưu và đóng mã này, rồi quay lại trang tính, trong một ô trống, hãy nhập công thức của = ModDate ()và nhấn đăng ký hạng mục thi Chìa khóa. Sau đó, nó sẽ chèn thời gian sửa đổi cuối cùng vào ô.

-2

Chèn thời gian đã tạo của sổ làm việc trong Excel

Bước 1: Nhấn giữ ALT + F11 và nó sẽ mở cửa sổ Microsoft Visual Basic for Applications.

Bước 2: Nhấp chuột Chèn >> Mô-đunvà dán macro sau vào Cửa sổ mô-đun.

Function CreateDate() As Date
CreateDate = ActiveWorkbook.BuiltinDocumentProperties("Creation Date")
End Function

Bước 3: Lưu và đóng mã này, quay lại trang tính, trong một ô trống, nhập công thức của = CreateDate ()và nhấn đăng ký hạng mục thi key. và ngày đã tạo sẽ được chèn vào ô như ảnh chụp màn hình sau:

-2

Lưu ý: Nếu ô của bạn không phải là định dạng ngày, nó có thể hiển thị một số lạ. Chỉ cần định dạng ô này là Ngày định dạng, nó sẽ hiển thị như một ngày bình thường.


mũi tên màu xanh bong bóng bên phải Chèn thời gian đã tạo và thời gian sửa đổi lần cuối vào ô / đầu trang / chân trang với Kutools cho Excel

Tôi có thể giới thiệu cho bạn một công cụ hữu ích--Kutools cho Excel bao gồm hơn 300 chức năng hữu ích có thể nâng cao hiệu quả làm việc của bạn? Với nó Chèn thông tin sổ làm việc chức năng, bạn có thể nhanh chóng chèn đường dẫn sổ làm việc, tên sổ làm việc / bảng tính, tên người dùng hoặc thời gian được tạo và thời gian sửa đổi lần cuối vào các ô hoặc đầu trang hoặc chân trang.

Kutools cho Excel, với hơn 300 chức năng tiện dụng, giúp công việc của bạn dễ dàng hơn. 

Sau cài đặt miễn phí Kutools cho Excel, vui lòng làm như sau:

1. nhấp chuột Kutools Plus > Bảng tính > Chèn thông tin sổ làm việc. Xem ảnh chụp màn hình:
doc sửa đổi tên cuối cùng2

2. Sau đó trong Chèn thông tin sổ làm việc hộp thoại, kiểm tra thông tin bạn muốn chèn từ phần Thông tin, sau đó đi đến chỉ định vị trí bạn muốn chèn vào, bạn có thể chọn ô, chân trang (chân trang trái, chân trang giữa, chân trang phải) hoặc tiêu đề (đầu trang trái, tiêu đề giữa, tiêu đề bên phải). Xem ảnh chụp màn hình:
doc insert được tạo đã sửa đổi lần 1

3. nhấp chuột Okvà thông tin bạn kiểm tra đã được chèn vào vị trí bạn chỉ định.

Tiền boa. Nếu bạn muốn dùng thử miễn phí chức năng Chèn thông tin sổ làm việc, vui lòng truy cập tải xuống miễn phí Kutools cho Excel đầu tiên, và sau đó đi đến áp dụng hoạt động theo các bước trên.

mũi tên màu xanh bong bóng bên phải Chèn thông tin sổ làm việc


Công cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup    VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn    Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô    Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian.  Bấm vào đây để có được tính năng bạn cần nhất...

Mô tả


Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
Comments (21)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I LOOOOOOOOVE YOU!!!! TKSSSSSSS
This comment was minimized by the moderator on the site
I want to automatically create a space between each customer in excel how do i do this??
This comment was minimized by the moderator on the site
Hi Team, I need your help. I am having an excel file, there i want to find the modified date of a particular cell. Please help me with the coding here, if possible. Thanks in advance.
This comment was minimized by the moderator on the site
I learned why "Last Save Time" was not working for me. I put my function in my .XLA file, and "ThisWorkbook" was referring to the .XLA file itself. Therefore I needed to get Application.ActiveWorkbook (presumably the location of the function call), ending up with: Function DocumentProperty(PropertyName As String) ' 'You can refer to document properties either by index value or by name. The following list shows the available built-in document property names: 'Title Subject Author 'Keywords Comments Template 'Last Author Revision Number Application Name 'Last Print Date Creation Date Last Save Time 'Total Editing Time Number of Pages Number of Words 'Number of Characters Security Category 'Format Manager Company 'Number of Bytes Number of Lines Number of Paragraphs 'Number of Slides Number of Notes Number of Hidden Slides 'Number of Multimedia Clips Hyperlink Base Number of Characters (with spaces) Call Application.Volatile(True) Dim ActiveUserWorkbook On Error Resume Next Set ActiveUserWorkbook = Application.ActiveWorkbook If Err.Number 0 Then DocumentProperty = "!!! Error getting Application.ActiveWorkbook: " & Err.Description Exit Function End If DocumentProperty = ActiveUserWorkbook.BuiltinDocumentProperties(PropertyName) If Err.Number 0 Then DocumentProperty = "!!! Unknown Property Name !!!" Exit Function End If End Function
This comment was minimized by the moderator on the site
I see that "Last Save Time" is only referenced ONCE in the code. I'm using Excel 2010.When I put "Last Save Time" into a function, even with Application.Volatile(true), the value never updates. Then I noticed that the value returned by "Last Save Time" does not appear in the Excel 2010 "Properties" page NOR any of the tabs in the "Advanced Properties" dialog. Could "Last Save Time" be some relic?
This comment was minimized by the moderator on the site
Thanks for the help, but I also had a problem with the cell not updating after a save without having to first close and reopen the workbook. I added the following code to the workbook which refreshes after a save event: Private Sub Workbook_AfterSave(ByVal Success As Boolean) If Success Then ActiveSheet.Calculate End If End Sub That did the trick for me. Hope it helps.
This comment was minimized by the moderator on the site
Could this be modified to display the Created Date of other closed files? I'd like to compare the Created Date of a file on my Desktop to a file on a public web server. I could create the formula to use your functions...CreateDate() of local file to CreateDate() of web file...and alert me to a change. I appreciate your help. Bruce
This comment was minimized by the moderator on the site
very very very very very very very very helpful thanks
This comment was minimized by the moderator on the site
Hiya Love love love this but sadly the date only is appearing in USA and in Australia we have dd/mm/yy I've tired changing it to this format using the "Date" section but have not had any luck. Any ideas?
This comment was minimized by the moderator on the site
Julie - in the VBA code use "dd/mm/yy hh:n" instead. That'll put the date in the "right" order! :lol:
This comment was minimized by the moderator on the site
Hey this was awesome. Is it possible to insert the created date and last modified date of a different workbook? I'm looking to create an index file that tells me when other documents were last updated. Thanks!!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations