excel - 如何用VBA实现秒表？

Question

我正在尝试设置一个基本秒表来跟踪耗时。 Button1 应在 0 处启动时钟，Button2 应停止 watch 并记录自计时器启动以来经过了多少分钟和秒。我将按钮放在工作表上，只需要一种方法来计算耗时。最好的方法是什么？ 这是我一直在使用的代码:

Private Sub CommandButton1_Click()
    startTime = Timer
End Sub

Private Sub CommandButton2_Click()
    Dim finalTime As Single
    finalTime = Timer - startTime
    MsgBox Format(finalTime, "0.00")
End Sub

此代码的问题在于，它仅在我单击 Button2 后才显示耗时。我需要在 Excel 工作表上运行计时器。

Answer 1

Public Started As Boolean
Dim myTime As Date
Sub StartTimer()
    If Not Started Then
        myTime = Time
        Started = True
    Else
        If MsgBox("Do you really want to restart?", vbYesNo) = vbYes Then
            myTime = Time
        End If
    End If
End Sub
Sub StopTimer()
    If Not Started Then
        MsgBox "The timer is stopped."
    Else
        MsgBox Format(Time - myTime, "hh:mm:ss")
        Started = False
    End If
End Sub

youtube

link