วิธีแทรกการประทับเวลาโดยใช้ vba (พร้อมตัวอย่าง)

คุณสามารถใช้ไวยากรณ์พื้นฐานต่อไปนี้ใน VBA เพื่อแทรกการประทับเวลาลงในเซลล์ใดเซลล์หนึ่งใน Excel:

 SubInsertTimestamp ()

Range("A1").Value = Format(Now, "mm/dd/yyyy hh:mm:ss")
    
End Sub

มาโครเฉพาะนี้จะแทรกเวลาปัจจุบันใน รูปแบบ mm/dd/yyyy hh:mm:ss ลงในเซลล์ A1

หมายเหตุ : ฟังก์ชัน Now ของ VBA จะส่งกลับวันที่และเวลาปัจจุบันตามวันที่และเวลาของระบบคอมพิวเตอร์ของคุณ

ตัวอย่างต่อไปนี้แสดงวิธีใช้ไวยากรณ์นี้ในทางปฏิบัติ

ตัวอย่าง: วิธีแทรกการประทับเวลาโดยใช้ VBA

สมมติว่าเราสร้างมาโครต่อไปนี้เพื่อแทรกวันที่และเวลาปัจจุบันเป็นการประทับเวลาลงในเซลล์ A1 ของแผ่นงานปัจจุบันของเราใน Excel:

 SubInsertTimestamp ()

Range("A1").Value = Format(Now, "mm/dd/yyyy hh:mm:ss")
    
End Sub

เมื่อเราเรียกใช้แมโครนี้ เราได้รับผลลัพธ์ต่อไปนี้:

ตอนนี้เซลล์ A1 จะแสดงวันที่และเวลาปัจจุบันที่แมโครนี้ทำงาน

สำหรับตัวอย่างนี้ วันที่และเวลาจะอยู่ในรูปแบบ mm/dd/yyyy hh:mm:ss

โปรดทราบว่าเราสามารถระบุรูปแบบอื่นที่จะใช้ได้เช่นกัน

ตัวอย่างเช่น เราสามารถสร้างแมโครต่อไปนี้เพื่อแสดงเวลาปัจจุบันใน รูปแบบ dd-mm-yyyy hh:mm:ss ในเซลล์ B1 :

 SubInsertTimestamp ()

Range("A1").Value = Format(Now, "mm/dd/yyyy hh:mm:ss")
Range("B1").Value = Format(Now, "dd-mm-yyyy hh:mm:ss")

End Sub

เมื่อเราเรียกใช้แมโครนี้ เราได้รับผลลัพธ์ต่อไปนี้:

ตอนนี้เซลล์ A1 และ B1 จะแสดงวันที่และเวลาปัจจุบันในรูปแบบที่แตกต่างกัน

หมายเหตุ : คุณสามารถดูเอกสารประกอบทั้งหมดของฟังก์ชัน Format ใน VBA ได้ที่นี่

แหล่งข้อมูลเพิ่มเติม

บทช่วยสอนต่อไปนี้จะอธิบายวิธีการทำงานทั่วไปอื่นๆ ใน VBA:

วิธีเปรียบเทียบวันที่ใน VBA
วิธีจัดรูปแบบเวลาใน VBA
วิธีคำนวณความแตกต่างของเวลาใน VBA