วิธีสร้างนาฬิกาจับเวลาในแผ่นงาน Excel
หากมีนาฬิกาจับเวลาอยู่ในแผ่นงานของคุณคุณจะรู้เวลาในการทำงานให้เสร็จ คุณจะสร้างนาฬิกาจับเวลาในแผ่นงานโดยใช้ปุ่มเริ่มหยุดและรีเซ็ตได้อย่างไรตามภาพหน้าจอต่อไปนี้ หากคุณคลิกปุ่มเริ่มเวลาเริ่มต้นจะเป็นเวลาเริ่มต้นหากคุณคลิกปุ่มหยุดจะเป็นการหยุดเวลาและปุ่มรีเซ็ตสามารถช่วยคุณในการรีเซ็ตเวลาได้ บทความนี้ฉันจะพูดถึงวิธีสร้างนาฬิกาจับเวลาที่ง่ายและสะดวกใน Excel
สร้างนาฬิกาจับเวลาด้วยปุ่มสามปุ่มโดยใช้รหัส VBA
สร้างนาฬิกาจับเวลาด้วยปุ่มสามปุ่มโดยใช้รหัส VBA
ในการสร้างนาฬิกาจับเวลาที่มีปุ่มสามปุ่มเริ่มหยุดและรีเซ็ตโปรดทำตามขั้นตอนต่อไปนี้ทีละปุ่ม
ประการแรกใส่ปุ่มคำสั่งสามปุ่ม
1. คลิก ผู้พัฒนา > สิ่งที่ใส่เข้าไป > ปุ่มคำสั่งดูภาพหน้าจอ:
2. จากนั้นลากเมาส์เพื่อวาดปุ่มหลังจากใส่ปุ่มแล้วคุณสามารถเปลี่ยนคำอธิบายปุ่มได้โปรดคลิก ผู้พัฒนา > อสังหาริมทรัพย์ ใน อสังหาริมทรัพย์ ให้ป้อนคำอธิบายภาพใหม่“เริ่มต้น” สำหรับปุ่มนี้ในกล่องข้อความข้าง คำบรรยายภาพดูภาพหน้าจอ:
 |
 |
 |
3. ทำซ้ำสองขั้นตอนข้างต้นเพื่อใส่ปุ่มอีกสองปุ่มและใส่คำบรรยายภาพเป็น“หยุด"และ"รีเซ็ต” ดูภาพหน้าจอ:
4. หลังจากใส่ปุ่มแล้วคุณควรออกจากโหมดออกแบบโดยคลิก ผู้พัฒนา > โหมดการออกแบบ.
ประการที่สองสร้างรหัส VBA
5. จากนั้นคลิกขวาที่แท็บแผ่นงานปัจจุบันแล้วเลือก ดูรหัสในโผล่ออกมา Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคัดลอกและวางรหัสต่อไปนี้ลงในไฟล์ รหัสแผ่นงาน:
รหัส VBA: สร้างนาฬิกาจับเวลา:
Public StopIt As Boolean
Public ResetIt As Boolean
Public LastTime
Private Sub CommandButton1_Click()
Dim StartTime, FinishTime, TotalTime, PauseTime
StopIt = False
ResetIt = False
If Range("C2") = 0 Then
StartTime = Timer
PauseTime = 0
LastTime = 0
Else
StartTime = 0
PauseTime = Timer
End If
StartIt:
DoEvents
If StopIt = True Then
LastTime = TotalTime
Exit Sub
Else
FinishTime = Timer
TotalTime = FinishTime - StartTime + LastTime - PauseTime
TTime = TotalTime * 100
HM = TTime Mod 100
TTime = TTime \ 100
hh = TTime \ 3600
TTime = TTime Mod 3600
MM = TTime \ 60
SS = TTime Mod 60
Range("C2").Value = Format(hh, "00") & ":" & Format(MM, "00") & ":" & Format(SS, "00") & "." & Format(HM, "00")
If ResetIt = True Then
Range("C2") = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
LastTime = 0
PauseTime = 0
End
End If
GoTo StartIt
End If
End Sub
Private Sub CommandButton2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
StopIt = True
End Sub
Private Sub CommandButton3_Click()
Range("C2").Value = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
LastTime = 0
ResetIt = True
End Sub
หมายเหตุ: ในโค้ดด้านบน C2 คือเซลล์ที่จะใส่เวลาของนาฬิกาจับเวลาและ ปุ่มคำสั่ง1, ปุ่มคำสั่ง2, ปุ่มคำสั่ง3 คือชื่อปุ่มคุณสามารถดูชื่อปุ่มที่แน่นอนได้จากไฟล์ ชื่อ: กล่องดูภาพหน้าจอ:
ประการที่สามจัดรูปแบบเซลล์เวลาของนาฬิกาจับเวลา
6. จากนั้นคุณควรจัดรูปแบบเซลล์เวลาเป็น ข้อความ รูปแบบและคุณสามารถเปลี่ยนขนาดเซลล์แบบอักษรสีแบบอักษรพื้นหลัง ฯลฯ ได้ตามที่คุณต้องการดูภาพหน้าจอ:
7. หลังจากเสร็จสิ้นขั้นตอนข้างต้นแล้วจากนี้เมื่อคุณคลิก เริ่มต้น ปุ่มเวลาจะเริ่มในขณะนี้และคลิก หยุด ปุ่มมันจะหยุดเวลา รีเซ็ต ปุ่มจะรีเซ็ตเวลาดูภาพหน้าจอ:
การสาธิต: สร้างนาฬิกาจับเวลาด้วยปุ่มสามปุ่มโดยใช้รหัส VBA
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เสริมทักษะ Excel ของคุณด้วย Kutools for Excelและสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools for Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
Office Tab นำอินเทอร์เฟซแบบแท็บมาสู่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
