ไปยังเนื้อหาหลัก

รับและแทรกเวลาที่สร้างขึ้นและเวลาที่แก้ไขล่าสุดในเซลล์

บทความนี้จะพูดถึงวิธีการรับเวลาที่สร้างขึ้นและเวลาที่แก้ไขล่าสุดของข้อมูลสมุดงานปัจจุบันและแทรกเวลาที่สร้างขึ้นและเวลาที่แก้ไขล่าสุดของข้อมูลสมุดงานปัจจุบันในเซลล์ใน Excel

รับเวลาที่สร้างและเวลาที่แก้ไขล่าสุดใน Excel ด้วยคำสั่ง Info

รับเวลาที่สร้างขึ้นและเวลาที่แก้ไขล่าสุดใน Excel ด้วยฟังก์ชันคุณสมบัติขั้นสูง

แทรกเวลาที่สร้างขึ้นและเวลาที่แก้ไขล่าสุดในเซลล์ใน Excel ด้วยรหัส VBA

แทรกเวลาที่สร้างขึ้นและเวลาที่แก้ไขล่าสุดในเซลล์ / ส่วนหัว / ส่วนท้ายด้วย Kutools for Excel ความคิดที่ดี 3


ลูกศรสีฟ้าฟองขวา รับเวลาที่สร้างและเวลาที่แก้ไขล่าสุดใน Excel ด้วยคำสั่ง Info

เราสามารถค้นหาเวลาที่สร้างที่แน่นอนและเวลาที่แก้ไขล่าสุดของสมุดงานปัจจุบันในมุมมองด้านหลังของ Microsoft Excel 2010/2013

คลิก เนื้อไม่มีมัน > ข้อมูลและที่ด้านขวาของมุมมองหลังเวทีจะแสดงไฟล์ วันที่เกี่ยวข้อง ข้อมูล. ภายใต้ วันที่เกี่ยวข้อง ชื่อเรื่องจะแสดงเวลาที่แก้ไขล่าสุดเวลาที่สร้างและเวลาที่พิมพ์ล่าสุด ดูภาพหน้าจอต่อไปนี้:

-2

 

หมายเหตุ วิธีนี้ใช้ได้เฉพาะใน Microsoft Excel 2010/2013 ไม่ถูกต้องใน Excel 2007


ลูกศรสีฟ้าฟองขวารับเวลาที่สร้างขึ้นและเวลาที่แก้ไขล่าสุดใน Excel ด้วยฟังก์ชันคุณสมบัติขั้นสูง

จริงๆแล้วเราสามารถรับทั้งเวลาที่สร้างและเวลาที่แก้ไขล่าสุดของสมุดงานปัจจุบันในกล่องโต้ตอบคุณสมบัติเอกสาร
ขั้นตอนที่ 1: เปิด คุณสมบัติขั้นสูง กล่องโต้ตอบ:

ใน Excel 2007 คลิกไฟล์ Office ปุ่ม> เตรียมการ > อสังหาริมทรัพย์ และใน คุณสมบัติเอกสาร จะแสดงแถบด้านล่างของแถบเครื่องมือคลิก คุณสมบัติเอกสาร > คุณสมบัติขั้นสูงดูภาพหน้าจอ:

doc-insert-modified-time-3-3
-1
doc-insert-modified-time-4-4

 

ใน Excel 2010/2013 คลิกไฟล์ เนื้อไม่มีมัน > ข้อมูล > อสังหาริมทรัพย์ > คุณสมบัติขั้นสูง.

doc-insert-modified-time-4-4

ขั้นตอนที่ 2: ใน คุณสมบัติขั้นสูง คุณจะเห็นเวลาที่สร้างและเวลาที่แก้ไขล่าสุดในแท็บสถิติ ดูภาพหน้าจอต่อไปนี้:

doc-insert-modified-time-4-4


ลูกศรสีฟ้าฟองขวา แทรกเวลาที่สร้างขึ้นและเวลาที่แก้ไขล่าสุดในเซลล์ใน Excel ด้วยรหัส VBA

มาโคร VBA ต่อไปนี้จะช่วยให้คุณแทรกเวลาที่สร้างขึ้นและเวลาที่แก้ไขล่าสุดของข้อมูลสมุดงานปัจจุบันในเซลล์ได้โดยตรง

แทรกทั้งเวลาที่สร้างและเวลาที่แก้ไขล่าสุดใน Excel

ขั้นตอนที่ 1: กดปุ่ม ALT + F11 คีย์และจะเปิดหน้าต่าง Microsoft Visual Basic for Applications

ขั้นตอนที่ 2คลิกที่นี่ สิ่งที่ใส่เข้าไป >> โมดูลและวางมาโครต่อไปนี้ในหน้าต่างโมดูล

รหัส VBA: แทรกทั้งเวลาที่สร้างและเวลาที่แก้ไขล่าสุดใน 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

ขั้นตอนที่ 3:กด F5 กุญแจสำคัญในการเรียกใช้แมโครนี้ จากนั้นวันที่สร้างและวันที่แก้ไขล่าสุดจะถูกแทรกลงในเซลล์ A1 และเซลล์ A2 แยกกัน

หมายเหตุ: คุณสามารถปรับเปลี่ยนเซลล์ปลายทางใน VB ได้ตามความต้องการของคุณ

แทรกเวลาที่แก้ไขล่าสุดของสมุดงานใน Excel

ขั้นตอนที่ 1: กดปุ่ม ALT + F11 คีย์และจะเปิดหน้าต่าง Microsoft Visual Basic for Applications

ขั้นตอนที่ 2คลิกที่นี่ สิ่งที่ใส่เข้าไป >> โมดูลและวางมาโครต่อไปนี้ในหน้าต่างโมดูล

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

ขั้นตอนที่ 3: จากนั้นบันทึกและปิดรหัสนี้และกลับไปที่แผ่นงานในเซลล์ว่างให้ป้อนสูตรของ = ModDate ()และกดปุ. ม เข้าสู่ สำคัญ. จากนั้นจะแทรกเวลาที่แก้ไขล่าสุดในเซลล์

-2

แทรกเวลาที่สร้างขึ้นของสมุดงานใน Excel

ขั้นตอนที่ 1: กดปุ่ม ALT + F11 คีย์และจะเปิดหน้าต่าง Microsoft Visual Basic for Applications

ขั้นตอนที่ 2คลิกที่นี่ สิ่งที่ใส่เข้าไป >> โมดูลและวางมาโครต่อไปนี้ในหน้าต่างโมดูล

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

ขั้นตอนที่ 3: บันทึกและปิดรหัสนี้กลับไปที่แผ่นงานในเซลล์ว่างป้อนสูตรของ = CreateDate ()และกดปุ. ม เข้าสู่ คีย์และวันที่สร้างจะถูกแทรกลงในเซลล์ดังภาพหน้าจอต่อไปนี้ที่แสดง:

-2

หมายเหตุ หากเซลล์ของคุณไม่ใช่รูปแบบวันที่อาจแสดงตัวเลขแปลก ๆ เพียงจัดรูปแบบเซลล์นี้เป็น วันที่ จะแสดงเป็นวันที่ปกติ


ลูกศรสีฟ้าฟองขวา แทรกเวลาที่สร้างขึ้นและเวลาที่แก้ไขล่าสุดในเซลล์ / ส่วนหัว / ส่วนท้ายด้วย Kutools for Excel

ฉันขอแนะนำเครื่องมือที่มีประโยชน์ -Kutools สำหรับ Excel ซึ่งรวมถึงฟังก์ชั่นที่มีประโยชน์มากกว่า 300 รายการที่ช่วยเพิ่มประสิทธิภาพการทำงานของคุณ ด้วย แทรกข้อมูลสมุดงาน คุณสามารถแทรกเส้นทางสมุดงานชื่อสมุดงาน / แผ่นงานชื่อผู้ใช้หรือเวลาที่สร้างขึ้นและเวลาที่แก้ไขล่าสุดลงในเซลล์หรือส่วนหัวหรือส่วนท้ายได้อย่างรวดเร็ว

Kutools สำหรับ Excel, ที่มีมากกว่า 300 ฟังก์ชั่นที่มีประโยชน์ทำให้งานของคุณง่ายขึ้น 

หลังจาก ติดตั้งฟรี Kutools สำหรับ Excel โปรดทำดังนี้:

1 คลิก Kutools พลัส > สมุดงาน > แทรกข้อมูลสมุดงาน. ดูภาพหน้าจอ:
doc แก้ไขชื่อล่าสุด 2

2. จากนั้นใน แทรกข้อมูลสมุดงาน โต้ตอบตรวจสอบข้อมูลที่คุณต้องการแทรกจากส่วนข้อมูลจากนั้นไปที่ระบุตำแหน่งที่คุณต้องการแทรกคุณสามารถเลือกเซลล์ส่วนท้าย (ส่วนท้ายซ้าย, ส่วนท้ายตรงกลาง, ส่วนท้ายด้านขวา) หรือส่วนหัว (ส่วนหัวด้านซ้าย, ส่วนหัวตรงกลาง, ส่วนหัวด้านขวา) ดูภาพหน้าจอ:
doc insert สร้างเวลาแก้ไข 1

3 คลิก Okและข้อมูลที่คุณตรวจสอบได้ถูกแทรกลงในตำแหน่งที่คุณระบุ

เคล็ดลับ หากคุณต้องการทดลองใช้ฟังก์ชันแทรกข้อมูลสมุดงานฟรี โปรดไปดาวน์โหลด Kutools for Excel ฟรี ก่อนแล้วไปใช้การดำเนินการตามขั้นตอนข้างต้น

ลูกศรสีฟ้าฟองขวา แทรกข้อมูลสมุดงาน


สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด


แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
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