Note: The other languages of the website are Google-translated. Back to English
Đăng nhập Đăng ký

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 Văn phòng nút> Chuẩn bị > Bất động sảnVà Tà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. 
Tải xuống miễn phí
miễn phí đầy đủ tính năng trong 30 ngày

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ác công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

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!
officetab dưới cùng
Nhận xét (21)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Syed Nehal
Syed Nehal
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Thông tin hữu ích.... :-)
đáp lại
0
0
Brian
Brian
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Điều này là hoàn hảo. Chính xác những gì tôi đang tìm kiếm. Cám ơn rất nhiều!!
đáp lại
0
0
Khalid
Khalid
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn rất nhiều vì đã giúp đỡ, đây là những gì chúng tôi cần. mã hoạt động bình thường nhưng không có cập nhật, có nghĩa là không cập nhật ngày sửa đổi sau khi tôi lưu. bạn có bất kỳ giải pháp cho điều này? Tôi đã thử nhiều lần, lưu, đóng rồi mở lại, không có bản cập nhật nào cho ngày tháng.
đáp lại
0
0
Alex
Alex     Khalid
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Khalid,

Tôi gặp vấn đề tương tự và tôi đã thêm dòng "Application.Volatile" vào mã và khi tôi nhấn F9, nó sẽ cập nhật thông tin.
Tôi đã thấy nó trong video "Học Excel -" Hàm cho thời gian lưu lần cuối ": Podcast # 1725" của Bill Jelen.
@Bill: Cảm ơn rất nhiều vì video!

https://www.youtube.com/watch?v=KnSA6xdmc2Q

Trân trọng,
Alex
đáp lại
0
0
Larry S. Peteet
Larry S. Peteet
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào: Tôi đã làm điều này theo một cách khác nhưng cũng bằng cách viết mã. Vì tôi đã thêm mã, nó khiến tôi lưu sổ làm việc bằng Macro và do đó dưới dạng * .XLSM. Điều đó là tốt nhưng nhiều nơi sẽ không cho phép Macro như thế này. Có cách nào để có được điều này (hoặc lưu sổ làm việc với sự thay đổi) thành .XLS bình thường không? Tôi cũng giả sử rằng nó sẽ yêu cầu ai đó "Bật Macro" nếu họ đã bật cài đặt đó (Tôi là nhà tư vấn và hầu hết những nơi tôi làm việc, điều đó khiến tôi bật Macro khi có thể áp dụng sau khi mở sổ làm việc). FYI: Đây là cách tôi đã làm điều đó trong Macro (không tốt hơn; chỉ khác). Private Sub Workbook_BeforeSave (ByVal SaveAsUI As Boolean, _ Cancel As Boolean) Cancel = False With ActiveSheet.PageSetup '.LeftHeader = ""' .CenterHeader = "" '.RightHeader = "Last Update" & Format (Now (), "mm / dd / yyyy ") .RightHeader =" ".RightFooter =" Cập nhật lần cuối "& Định dạng (Now ()," mm / dd / yyyy ") Kết thúc với End Sub
đáp lại
0
0
UMAIR
UMAIR
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Thông tin này rất hữu ích cho tôi. cảm ơn quan tâm
đáp lại
0
0
UMAIR
UMAIR
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
nhờ thông tin này
đáp lại
0
0
Swaran
Swaran
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
[quote] Xin chào: Tôi đã làm điều này theo một cách khác nhưng cũng bằng cách viết mã. Vì tôi đã thêm mã, nó khiến tôi lưu sổ làm việc bằng Macro và do đó dưới dạng * .XLSM. Điều đó là tốt nhưng nhiều nơi sẽ không cho phép Macro như thế này. Có cách nào để có được điều này (hoặc lưu sổ làm việc với sự thay đổi) thành .XLS bình thường không? Tôi cũng giả sử rằng nó sẽ yêu cầu ai đó "Bật Macro" nếu họ đã bật cài đặt đó (Tôi là nhà tư vấn và hầu hết những nơi tôi làm việc, điều đó khiến tôi bật Macro khi có thể áp dụng sau khi mở sổ làm việc). FYI: Đây là cách tôi đã làm điều đó trong Macro (không tốt hơn; chỉ khác). Private Sub Workbook_BeforeSave (ByVal SaveAsUI As Boolean, _ Cancel As Boolean) Cancel = False With ActiveSheet.PageSetup '.LeftHeader = ""' .CenterHeader = "" '.RightHeader = "Last Update" & Format (Now (), "mm / dd / yyyy ") .RightHeader =" ".RightFooter =" Cập nhật lần cuối "& Định dạng (Now ()," mm / dd / yyyy ") Kết thúc với End SubBởi Larry S. Peteet[/ quote] Xin chào, Tôi đã chèn thành công Ngày và giờ được sửa đổi lần cuối, nhưng nó không cập nhật khi bạn lưu và mở lại sổ làm việc. Vui lòng giúp đỡ ở đây ...... tôi không biết về mã hóa vì vậy về cơ bản tôi sao chép bất kỳ thông tin nào được đưa ra trên các diễn đàn như vậy Cảm ơn Swaran
đáp lại
0
0
BillG
BillG     Swaran
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có, tôi cũng gặp phải vấn đề tương tự - nó hoạt động hoàn hảo vào ngày hôm qua nhưng hôm nay nó sẽ không thay đổi khi được lưu.
đáp lại
0
0
Ashraf
Ashraf
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hãy giúp tôi!!! cần trả lại ngày và giờ sửa đổi cuối cùng của một tệp đã đóng và trả lại thông tin này trong một ô trong tệp đang mở
đáp lại
0
0
DavidC
DavidC
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Này, điều này thật tuyệt vời. Có thể chèn ngày đã tạo và ngày sửa đổi cuối cùng của một sổ làm việc khác không? Tôi đang tìm cách tạo một tệp chỉ mục cho tôi biết khi nào các tài liệu khác được cập nhật lần cuối. Thanks!!
đáp lại
0
0
JulieHughes
JulieHughes
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hiya Love love love này nhưng đáng buồn là ngày chỉ xuất hiện ở Mỹ và ở Úc chúng tôi có dd / mm / yy Tôi đã mệt mỏi khi thay đổi nó sang định dạng này bằng cách sử dụng phần "Ngày" nhưng không có may mắn. Có ý kiến ​​gì không?
đáp lại
0
0
MurrayMiễn phí
MurrayMiễn phí     JulieHughes
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Julie - trong mã VBA sử dụng "dd / mm / yy hh: n" để thay thế. Điều đó sẽ đặt ngày theo thứ tự "đúng"! :cười lớn:
đáp lại
0
0
Mokhtar
Mokhtar
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
rất rất rất rất rất rất rất rất rất rất hữu ích cảm ơn
đáp lại
0
0
Bruce
Bruce
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Điều này có thể được sửa đổi để hiển thị Ngày tạo của khác các tập tin đã đóng? Tôi muốn so sánh Ngày tạo của tệp trên Máy tính để bàn của mình với tệp trên máy chủ web công cộng. Tôi có thể tạo công thức để sử dụng các chức năng của bạn ... CreateDate () của tệp cục bộ thành CreateDate () của tệp web ... và thông báo cho tôi về sự thay đổi. Tôi đánh giá cao sự giúp đỡ của bạn. Bruce
đáp lại
0
0
Christopher Huergo
Christopher Huergo
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn sự giúp đỡ, nhưng tôi cũng gặp sự cố với ô không cập nhật sau khi lưu mà không cần phải đóng và mở lại sổ làm việc trước. Tôi đã thêm mã sau vào sổ làm việc sẽ làm mới sau sự kiện lưu: Private Sub Workbook_AfterSave (ByVal Success As Boolean) If Success Then ActiveSheet.Calculate End If End Sub Điều đó đã thực hiện thủ thuật cho tôi. Hy vọng nó giúp.
đáp lại
0
0
Wayne Erfling
Wayne Erfling
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi thấy rằng "Lần lưu cuối cùng" chỉ được tham chiếu MỘT LẦN trong mã. Tôi đang sử dụng Excel 2010. Khi tôi đặt "Last Save Time" vào một hàm, ngay cả với Application.Volatile (true), giá trị sẽ không bao giờ cập nhật. Sau đó, tôi nhận thấy rằng giá trị được trả về bởi "Last Save Time" không xuất hiện trong trang "Thuộc tính" của Excel 2010 NOR bất kỳ tab nào trong hộp thoại "Thuộc tính nâng cao". "Last Save Time" có thể là một di tích nào đó không?
đáp lại
0
0
Wayne Erfling
Wayne Erfling
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã biết lý do tại sao "Last Save Time" không hoạt động với tôi. Tôi đặt hàm của mình trong tệp .XLA và "ThisWorkbook" đang đề cập đến chính tệp .XLA. Do đó, tôi cần lấy Application.ActiveWorkbook (có lẽ là vị trí của lệnh gọi hàm), kết thúc bằng: Function DocumentProperty (PropertyName As String) '' Bạn có thể tham khảo các thuộc tính tài liệu theo giá trị chỉ mục hoặc theo tên. Danh sách sau đây hiển thị các tên thuộc tính tài liệu tích hợp sẵn có sẵn: 'Tiêu đề Chủ đề Tác giả' Từ khóa Nhận xét Mẫu 'Tác giả cuối cùng Số sửa đổi Tên ứng dụng' Ngày in lần cuối Ngày tạo Thời gian lưu cuối cùng 'Tổng thời gian chỉnh sửa Số trang Số từ' Số lượng Ký tự Bảo mật Danh mục 'Công ty quản lý định dạng' Số byte Số dòng Số đoạn 'Số trang trình bày Số ghi chú Số trang trình bày ẩn' Số đoạn đa phương tiện Siêu liên kết Số ký tự (có khoảng trắng) Ứng dụng cuộc gọi. Đa dạng (Đúng) Dim ActiveUserWorkbook Khi Lỗi Tiếp tục Đặt ActiveUserWorkbook = Application.ActiveWorkbook Nếu Err.Number 0 Sau đó DocumentProperty = "!!! Lỗi khi lấy Application.ActiveWorkbook:" & Err.Description Thoát Chức năng Kết thúc Nếu DocumentProperty = ActiveUserWorkbook.BuiltinDocumentProperties (Tên thuộc tính) Nếu Err.Number 0 Sau đó DocumentProperty = "!!! Tên thuộc tính không xác định !!!" Chức năng Thoát Kết thúc Nếu Kết thúc Chức năng
đáp lại
0
0
Sujin Raj
Sujin Raj
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Nhóm, tôi cần sự giúp đỡ của bạn. Tôi đang có một tệp excel, ở đó tôi muốn tìm ngày sửa đổi của một ô cụ thể. Vui lòng giúp tôi viết mã ở đây, nếu có thể. Cảm ơn trước.
đáp lại
0
0
jack
jack
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi muốn tự động tạo khoảng cách giữa mỗi khách hàng trong excel làm cách nào để thực hiện điều này ??
đáp lại
0
0
Gabriel
Gabriel
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
TÔI YÊU BẠN !!!! TKSSSSSSS
đáp lại
0
0
Không có bình luận nào được đăng ở đây

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL