如何在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代码创建带三个按钮的秒表