【Office】【VBA宏】实现Excel中计时器以及倒计时功能

提示：文章写完后，目录可以自动生成，如何生成可参考右边的帮助文档

---

需求概述

---

提示：以下是本篇文章正文内容，下面案例可供参考

具体代码

代码如下（示例）：

Public Future As Double
Public start As Double
'Excel计时器
Sub StartTimer()
    If start = 0 Then
        'start = Now
       start = Range("B1")
    End If
    Future = Now + TimeSerial(0, 0, 1)
    Application.OnTime earliestTime:=Future, procedure:="nextTime", _
         schedule:=True
End Sub
'每一秒执行的方法
Sub nextTime()
    '已用时间
    Sheet1.Range("B3").Value = Format(Future - start, "hh:mm:ss")
    '剩余时间
    Sheet1.Range("B4").Value = Format(Range("B2") - Future, "hh:mm:ss")
    StartTimer
End Sub
'重置计时器和倒计时
Sub Reset()
    StopTimer
    Future = 0
    start = 0
    Sheet1.Range("B3").Value = ""
    Sheet1.Range("B4").Value = ""
End Sub
'停止计时器和倒计时
Sub StopTimer()
   On Error Resume Next
   Application.OnTime earliestTime:=Future, _
       procedure:="nextTime", schedule:=False
End Sub

---

效果展示

注意事项

在运行宏之前，请确保备份你的数据，以防万一出现意外情况。

小结

到此，所有分享结束了，希望代码可以帮助你们。还有更多功能和方法值得我和你们去研究，感谢浏览。有其他好的问题和经验可以在评论区留言或私信我。