จะแทรกโคลอนระหว่างตัวเลขเพื่อให้เป็นรูปแบบเวลาโดยอัตโนมัติใน Excel ได้อย่างไร?
เมื่อคุณแทรกรูปแบบเวลาในเซลล์แผ่นงานคุณเคยรำคาญกับการพิมพ์เครื่องหมายทวิภาคทุกครั้งหรือไม่? ในบทความนี้ฉันจะพูดถึงวิธีการแทรกโคลอนเมื่อคุณป้อนตัวเลขเพื่อทำให้เป็นรูปแบบเวลาโดยอัตโนมัติใน Excel
แทรกเครื่องหมายทวิภาคระหว่างตัวเลขเพื่อทำให้เป็นรูปแบบเวลาด้วยสูตร
สร้างตัวเลขเป็นรูปแบบเวลาโดยอัตโนมัติเมื่อคุณป้อนด้วยรหัส VBA
แทรกเครื่องหมายทวิภาคระหว่างตัวเลขเพื่อทำให้เป็นรูปแบบเวลาด้วยสูตร
สมมติว่าคุณมีรายการตัวเลขเพื่อแทรกเครื่องหมายทวิภาคและทำให้เป็นรูปแบบเวลาสูตรต่อไปนี้สามารถช่วยคุณได้
หากตัวเลขเป็น 3 หรือ 4 หลักเสมอคุณสามารถใช้สูตรนี้:
=TIME(LEFT(A1,LEN(A1)-2),RIGHT(A1,2),0)จากนั้นลากที่จับเติมลงไปที่เซลล์ที่คุณต้องการให้มีสูตรนี้และคุณจะได้ผลลัพธ์ต่อไปนี้ตามที่คุณต้องการ:
หากตัวเลขเป็น 5 หรือ 6 หลักโปรดใช้สูตรนี้:
=(INT(A1/10000)&":"&INT(MOD(A1,10000)/100)&":"&MOD(A1,100))+0แล้วลากที่จับเติมลงไปที่เซลล์ที่คุณต้องการมีสูตรนี้และคุณจะได้ลำดับตัวเลขตามภาพหน้าจอต่อไปนี้:
จากนั้นคุณควรจัดรูปแบบตัวเลขเป็นรูปแบบเวลาโดยคลิก เวลา จาก General รายการแบบหล่นลงใต้ หน้าแรก ดูภาพหน้าจอ:
สร้างตัวเลขเป็นรูปแบบเวลาโดยอัตโนมัติเมื่อคุณป้อนด้วยรหัส VBA
รหัส VBA ต่อไปนี้ยังช่วยให้คุณแปลงตัวเลขเป็นรูปแบบเวลาโดยอัตโนมัติเมื่อคุณป้อนรหัสเหล่านี้โปรดทำดังนี้:
1. ไปที่แผ่นงานที่คุณต้องการแทรกเครื่องหมายโคลอนลงในตัวเลขโดยอัตโนมัติ
2. คลิกขวาที่แท็บแผ่นงานแล้วเลือก ดูรหัส จากเมนูบริบทในป๊อปอัป Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคัดลอกและวางรหัสต่อไปนี้ลงในช่องว่าง โมดูล หน้าต่างดูภาพหน้าจอ:
รหัส VBA: สร้างตัวเลขให้เป็นรูปแบบเวลาโดยอัตโนมัติ:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updateby Extendoffice 20160606
Dim xStr As String
Dim xVal As String
On Error GoTo EndMacro
If Application.Intersect(Target, Range("A1:A20")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
Application.EnableEvents = False
With Target
If Not .HasFormula Then
xVal = .Value
Select Case Len(xVal)
Case 1 ' e.g., 1 = 00:01 AM
xStr = "00:0" & xVal
Case 2 ' e.g., 12 = 00:12 AM
xStr = "00:" & xVal
Case 3 ' e.g., 735 = 7:35 AM
xStr = Left(xVal, 1) & ":" & Right(xVal, 2)
Case 4 ' e.g., 1234 = 12:34
xStr = Left(xVal, 2) & ":" & Right(xVal, 2)
Case 5 ' e.g., 12345 = 1:23:45 NOT 12:03:45
xStr = Left(xVal, 1) & ":" & Mid(xVal, 2, 2) & ":" & Right(xVal, 2)
Case 6 ' e.g., 123456 = 12:34:56
xStr = Left(xVal, 2) & ":" & Mid(xVal, 3, 2) & ":" & Right(xVal, 2)
Case Else
Err.Raise 0
End Select
.Value = TimeValue(xStr)
End If
End With
Application.EnableEvents = True
Exit Sub
EndMacro:
MsgBox "You did not enter a valid time"
Application.EnableEvents = True
End Sub
หมายเหตุ ในโค้ดด้านบน A1: A20 คือเซลล์ที่คุณต้องการแทรกในภายหลังและคุณสามารถเปลี่ยนการอ้างอิงเซลล์ตามความต้องการของคุณได้
3. ตอนนี้เมื่อคุณป้อนตัวเลขเช่น 102319 ในช่วงเซลล์ A1: A20 แล้วกด เข้าสู่ คีย์ตัวเลขจะถูกจัดรูปแบบเป็นรูปแบบเวลา 10:23:19 น. โดยอัตโนมัติตามที่คุณต้องการ
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
