วิธีสร้างนาฬิกาจับเวลาในแผ่นงาน Excel

หากคุณต้องการนาฬิกาจับเวลาในเวิร์กชีต Excel นาฬิกาจับเวลาจะช่วยให้คุณติดตามเวลาที่ใช้ในการทำงานให้เสร็จสิ้นได้ ลองนึกภาพว่ามีปุ่ม Start, Stop และ Reset เพื่อควบคุมนาฬิกาจับเวลาดังที่แสดงในภาพหน้าจอด้านล่าง การคลิกปุ่ม Start จะทำให้นาฬิกาจับเวลาเริ่ม ปุ่ม Stop จะหยุดชั่วคราว และปุ่ม Reset จะล้างเวลา ในบทความนี้ เราจะแสดงวิธีสร้างนาฬิกาจับเวลาที่เรียบง่ายแต่ใช้งานได้ใน Excel โดยใช้โค้ด VBA ทีละขั้นตอน

สร้างนาฬิกาจับเวลาด้วยปุ่มสามปุ่มโดยใช้รหัส VBA

สร้างนาฬิกาจับเวลาด้วยปุ่มสามปุ่มโดยใช้รหัส VBA

ในการสร้างนาฬิกาจับเวลาที่มีปุ่มสามปุ่มเริ่มหยุดและรีเซ็ตโปรดทำตามขั้นตอนต่อไปนี้ทีละปุ่ม

ประการแรกใส่ปุ่มคำสั่งสามปุ่ม

1. คลิก ผู้พัฒนา > สิ่งที่ใส่เข้าไป > ปุ่มคำสั่งดูภาพหน้าจอ:

2. จากนั้นลากเมาส์เพื่อวาดปุ่มหลังจากใส่ปุ่มแล้วคุณสามารถเปลี่ยนคำอธิบายปุ่มได้โปรดคลิก ผู้พัฒนา > อสังหาริมทรัพย์ ใน อสังหาริมทรัพย์ ให้ป้อนคำอธิบายภาพใหม่“เริ่มต้น” สำหรับปุ่มนี้ในกล่องข้อความข้าง คำบรรยายภาพดูภาพหน้าจอ:

3. ทำซ้ำสองขั้นตอนข้างต้นเพื่อใส่ปุ่มอีกสองปุ่มและใส่คำบรรยายภาพเป็น“หยุด"และ"รีเซ็ต” ดูภาพหน้าจอ:

4. หลังจากใส่ปุ่มแล้วให้ออกจากโหมดการออกแบบโดยคลิก ผู้พัฒนา > โหมดการออกแบบ.

ประการที่สองสร้างรหัส VBA

5. จากนั้นคลิกขวาที่แท็บแผ่นงานปัจจุบันแล้วเลือก ดูรหัสในโผล่ออกมา Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคัดลอกและวางรหัสต่อไปนี้ลงในไฟล์ รหัสแผ่นงาน:

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