vba实现计时器功能

prevail

想用VBA实现一个计时器功能，如下图，
按下“计时开始”按钮，初始化[A1]单元格为0:00:00并开始一秒一秒的增加；
按下“暂停”按钮，计时暂停，[a1]单元格计时不再增加；
按下“继续”按钮，在暂停计时的基础上，继续计时；

网上查了好多vba代码，要么太复杂看不懂（调用windows time什么的），要么不是我需要的。


有没有这样的vba源代码，或者指点一下如何编写，给个思路，谢谢！

魂断蓝桥

Option Explicit
Dim P As Boolean
Sub 计时器()
Dim NewTime As Double
If P = False Then [a1] = "00:00:00"
Application.OnTime Now + TimeValue("00:00:01"), "计时器"
Cells(1, 1) = [a1] + TimeValue("00:00:01")
P = True
End Sub
Sub 暂停()
Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), Procedure:="计时器", Schedule:=False
End Sub
Sub 继续()
Call 计时器
End Sub
Sub 停止()
Call 暂停
P = False
End Sub

prevail

魂断蓝桥 发表于 2020-9-14 14:35
Option Explicit
Dim P As Boolean
Sub 计时器()

先谢了，好像还是有点问题，比如第二次点击开始按钮不能清零后重新开始计时，可能我的表达不是很清楚。但非常感谢，我先可以学习一下。有问题再请教，谢谢了！