運用Excel做個秒表計時器案例圖文教程

有時候我們想知道在Excel中做一件事情需要多長時間，可以用VBA在Excel中做一個秒表計時器，在做之前啟動秒表，做完后停止秒表看用了多長時間，如圖。這個秒表在單元格中顯示時間，可以實現秒表的基本功能：單擊“開始”按鈕開始計時，單擊“停止”按鈕暫停與停止，再次單擊“開始”按鈕繼續，單擊“復位”按鈕歸零。

???

??? 下面我們以Excel 2003為例來說明其制作過程，示例文件在文章結尾處提供下載。

??? 1.在“Sheet1”工作表中打開“Visual Basic 工具欄”。方法是在菜單欄中右擊鼠標，在彈出的快捷菜單中選擇“Visual Basic ”。???單擊“控件工具箱”按鈕，打開“控件工具箱”。

??? ??

??? 選擇“命令按鈕”工具，在工作表中畫3個按鈕，其默認名稱依次為“CommandButton1”、“CommandButton2”、“CommandButton3”。

??? 2.按Alt+F11，打開VBA編輯器，在“工程”窗口中雙擊“Sheet1(Sheet1)”，在右側的代碼窗口中粘貼下面的代碼：

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("b8") = 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("b8").Value = Format(hh, "00") & ":" & Format(MM, "00") & ":" & Format(SS, "00") & "." & Format(HM, "00")
??? If ResetIt = True Then
????? Range("b8") = 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("b8").Value = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
? LastTime = 0
? ResetIt = True
End Sub

??? 說明：上述代碼將在B8單元格中顯示秒表時間，也可以將其改為其他單元格。代碼中使用了Timer函數，Timer函數返回一個Single，代表從午夜開始到現在經過的秒數。本例中未消除跨零點錯誤，因而請勿跨零點使用。

??? 3.關閉VBA編輯器。在工作表中右擊“CommandButton1”按鈕，在彈出的菜單中選擇“屬性”，彈出“屬性”窗口。

???

?? 在“屬性窗口”中，將“CommandButton1”按鈕的“Caption”屬性改名為“開始”。

???

??? 然后分別將“CommandButton2”、“CommandButton2”按鈕的“Caption”屬性改為“停止”和“復位”。

??? 在“Visual Basic”工具欄中單擊“退出設計模式”按鈕退出設計模式。

???

??? 4.設置B8單元格的單元格格式為“文本”，調整單元格大小、字體和背景，并調整3個按鈕到適當的位置。然后依次單擊各個按鈕進行測試。