วิธีใช้ฟังก์ชัน timevalue ใน vba (พร้อมตัวอย่าง)

คุณสามารถใช้ฟังก์ชัน TimeValue ใน VBA เพื่อส่งกลับค่าเวลาของสตริงที่กำหนดได้

นี่เป็นวิธีทั่วไปในการใช้ฟังก์ชันนี้ในทางปฏิบัติ:

 Sub GetTimeValue()
    
Dim i As Integer

For i = 2 To 7
    Range(" B " & i) = TimeValue(Range(" A " & i))
Next i
    
End Sub

มาโครนี้จะแยกค่าเวลาของวันที่และเวลาในช่วง A2:A7 และส่งกลับค่าเวลานั้นในช่วงที่สอดคล้องกันของ B2:B7

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

ตัวอย่าง: วิธีใช้ฟังก์ชัน TimeValue ใน VBA

สมมติว่าเรามีคอลัมน์วันที่/เวลาต่อไปนี้ใน Excel:

สมมติว่าเราต้องการแยกเวลาจากแต่ละวันที่และเวลาในคอลัมน์ A และแสดงในคอลัมน์ B

เราสามารถสร้างมาโครต่อไปนี้เพื่อทำสิ่งนี้:

 Sub GetTimeValue()
    
Dim i As Integer

For i = 2 To 7
    Range(" B " & i) = TimeValue(Range(" A " & i))
Next i
    
End Sub

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

คอลัมน์ B แสดงค่าเวลาสำหรับแต่ละวันที่/เวลาในคอลัมน์ A

ตัวอย่างเช่น:

• ฟังก์ชัน TimeValue ส่งคืน 10:15:34 ณ วันที่ 01/01/2023 10:15:34 น.
• ฟังก์ชัน TimeValue ส่งคืน 12:34:18 PM ณ วันที่ 03/01/2023 12:34:18 PM
• ฟังก์ชัน TimeValue ส่งคืน 8:23:00 ณ วันที่ 01/05/2023 8:23:00 น.

และอื่นๆ

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

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

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

วิธีเปรียบเทียบวันที่ใน VBA
วิธีแทรกการประทับเวลาโดยใช้ VBA
วิธีจัดรูปแบบเวลาใน VBA