如何在Excel工作表中創建秒表？

如果您需要在Excel工作表中使用秒表，它可以幫助您追蹤完成任務所需的時間。想像一下，有一個「開始」、「停止」和「重置」按鈕來控制秒表，如下方截圖所示。點擊「開始」按鈕啟動計時器，「停止」按鈕暫停計時，而「重置」按鈕則清除時間。本文將逐步向您展示如何使用VBA代碼在Excel中創建一個簡單但功能強大的秒表。

使用VBA代碼創建帶有三個按鈕的秒表

 使用VBA代碼創建帶有三個按鈕的秒表

要創建帶有三個按鈕（開始、停止和重置）的秒表，請按照以下步驟逐一操作。

首先，插入三個命令按鈕。

1. 點擊「開發工具」>「插入」>「命令按鈕」，見截圖：

2. 然後拖動鼠標繪製一個按鈕，在插入按鈕後，您可以更改按鈕的文字，請點擊「開發工具」>「屬性」，在「屬性」對話框中，在「Caption」旁的文本框中輸入新文字「開始」，見截圖：

3. 重複上述兩個步驟，插入另外兩個按鈕並將其文字設為「停止」和「重置」，見截圖：

4. 插入按鈕後，通過點擊「開發工具」>「設計模式」退出設計模式。

其次，創建VBA代碼。

5. 接著，右鍵單擊當前工作表標籤，並選擇「查看代碼」，在彈出的「Microsoft Visual Basic for Applications」窗口中，請將以下代碼複製並粘貼到「Sheet Code」中：

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」是秒表時間將插入的單元格，而「CommandButton1」、「CommandButton2」、「CommandButton3」是按鈕名稱，您可以從「名稱框」中查看確切的按鈕名稱，見截圖：

第三，格式化秒表時間單元格。

6. 然後您應該將時間單元格格式化為「文本」格式，並且您可以根據需要更改單元格大小、字體、字體顏色、背景等，見截圖：

7. 完成上述步驟後，從現在開始，當您點擊「開始」按鈕時，計時將開始；當您點擊「停止」按鈕時，計時將停止。「重置」按鈕將重置時間，見截圖：

演示：使用VBA代碼創建帶有三個按鈕的秒表