ฟังก์ชันเวลา Excel VBA
ฟังก์ชันเวลา VBAส่งคืนเวลาปัจจุบันสิ่งสำคัญที่ควรทราบก็คือฟังก์ชันนี้ไม่มีข้อโต้แย้งใด ๆ อีกปัจจัยสำคัญที่ต้องจำไว้คือฟังก์ชันนี้จะส่งคืนเวลาของระบบปัจจุบัน การใช้ฟังก์ชั่นนี้เราสามารถค้นหาเวลาจริงที่ใช้โดยบรรทัดของรหัสเพื่อดำเนินการให้เสร็จสิ้น
TIME เป็นฟังก์ชันระเหยชนิดหนึ่งไม่มีไวยากรณ์ใด ๆ
นอกจากนี้เรายังมีฟังก์ชันที่คล้ายกันในฟังก์ชัน excel - NOW () ซึ่งแทรกทั้งเวลาปัจจุบันและวันที่ปัจจุบันในสเปรดชีต
เวลา ()
เราเพียงแค่ต้องใส่ฟังก์ชันในความเป็นจริงไม่จำเป็นต้องวงเล็บเพื่อใส่เพียง TIME ก็เพียงพอที่จะแทรกเวลาปัจจุบัน ผลลัพธ์ที่กำหนดโดยฟังก์ชัน TIME อยู่ในสตริง
วิธีใช้ฟังก์ชัน TIME ใน VBA
ให้ฉันแสดงตัวอย่างของฟังก์ชัน TIME แบบง่ายใน excel ทำตามขั้นตอนด้านล่างเพื่อสร้างโค้ดเพื่อใช้ฟังก์ชัน TIME
คุณสามารถดาวน์โหลด VBA Time Function Template ได้ที่นี่ - VBA Time Function Templateขั้นตอนที่ 1:สร้างมาโคร
รหัส:
Sub Time_Example1 () End Sub
ขั้นตอนที่ 2:ประกาศตัวแปรเป็น String
รหัส:
Sub Time_Example1 () Dim CurrentTime เป็น String End Sub
ขั้นตอนที่ 3:กำหนดค่าให้กับตัวแปรนี้ผ่านฟังก์ชัน TIME
รหัส:
Sub Time_Example1 () Dim CurrentTime เป็น String CurrentTime = Time End Sub
ขั้นตอนที่ 4:แสดงผลลัพธ์ในกล่องข้อความ
รหัส:
Sub Time_Example1 () Dim CurrentTime เป็น String CurrentTime = เวลา MsgBox CurrentTime End Sub
เรียกใช้รหัสนี้โดยใช้ปุ่ม F5 หรือด้วยตนเองเราจะได้รับเวลาปัจจุบัน
ดังนั้นเมื่อฉันเรียกใช้รหัสนี้เวลาคือ 11.51.54 น.
ทางเลือกของฟังก์ชัน Now ()
การรวมวันที่และเวลาเป็นทางเลือกสำหรับฟังก์ชัน NOW
อย่างที่บอกไปตอนต้นบทความ NOW สามารถแทรกวันที่ & เวลาปัจจุบันได้ อย่างไรก็ตามเราสามารถใช้ฟังก์ชันอื่นอีกสองฟังก์ชันเป็นฟังก์ชันทางเลือกสำหรับฟังก์ชัน NOW ได้ซึ่งทั้งสองฟังก์ชันคือฟังก์ชัน VBA DATE และ VBA TIME
VBA Date จะส่งกลับวันที่และเวลาปัจจุบันจะคืนเวลาปัจจุบันดังนั้นจึงทำให้ฟังก์ชัน NOW ด้านล่างนี้คือชุดรหัสที่จะแทรกวันที่และเวลาปัจจุบันในเซลล์ A1
รหัส:
Sub Time_Example2 () Range ("A1"). Value = Date & "" & Time End Sub
รหัสนี้จะแทรกวันที่และเวลาปัจจุบันในเซลล์ A1
เรายังสามารถใช้รูปแบบกับค่าเหล่านี้โดยใช้ฟังก์ชัน FORMAT รหัสด้านล่างจะจัดรูปแบบวันที่และเวลา
รหัส:
Sub Time_Example2 () ช่วง ("A1") ค่า = วันที่ & "" & ช่วงเวลา ("A1") NumberFormat = "dd-mmm-yyyy hh: mm: ss AM / PM" End Sub
ตอนนี้ผลลัพธ์ของรหัสนี้เป็นดังนี้
ติดตามสมุดงานของคุณเปิดบันทึกโดยใช้ฟังก์ชันเวลาใน VBA
บ่อยครั้งที่เราจำเป็นต้องทราบความถี่ในการเปิดสมุดงานของเรา มีสถานการณ์ที่เราเปิดสมุดงานค่อนข้างบ่อยและเราทำการเปลี่ยนแปลงบางอย่าง ด้วยการติดตามเวลาและวันที่เปิดสมุดงานเราสามารถติดตามเวลาเปิดสมุดงานได้
สร้างแผ่นงานใหม่และเปลี่ยนชื่อเป็น "แผ่นงาน"
ขั้นตอนที่ 1:ดับเบิลคลิกที่สมุดงานนี้จาก VBE Editor
Step 2: Select the workbook from the object drop-down list.
Step 3: As soon as you select this option you can see new macro automatically created by itself in the name “Workbook_Open()”.
Step 4: Inside this macro, we will need to write a code to track the workbook opening date & time.
I have already written code and below is the code for you.
Code:
Private Sub Workbook_Open() Dim LR As Long LR = Sheets("Track Sheet").Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheets("Track Sheet").Cells(LR, 1).Value = Date & " " & Time() Sheets("Track Sheet").Cells(LR, 1).NumberFormat = "dd-mmm-yyyy hh:mm:ss AM/PM" End Sub
This will record your workbook opening times like the below one.