当数字达到零时，多个倒计时定时器错误

我试图学习倒计时macros，我从杰里Beaucaire的网站下载这个文件。 谢谢杰里！ 我调整了一下。 我没有把从0到无限数的数值计算在内，而是从列C中input的数字开始倒计数。但是当数字达到零时发生错误。 我该如何解决这个错误？ 如何让A列中的button在数字达到零时切换回“DOWN”？

Dim CountDown As Date Sub Timer() DisableTimer CountDown = Now + TimeValue("00:00:01") Application.OnTime CountDown, "Reset" End Sub Sub Reset() Dim Counter As Range Application.ScreenUpdating = False Application.EnableEvents = False If Evaluate("COUNT(B2:B5)") = 0 Then Call DisableTimer Else For Each Counter In ThisWorkbook.Sheets("Sheet1").Range("B2:B5") If Not IsEmpty(Counter) Then Counter = Counter - TimeValue("00:00:01") Next Counter Call Timer End If Application.ScreenUpdating = True Application.EnableEvents = True End Sub Sub DisableTimer() On Error Resume Next Application.OnTime EarliestTime:=CountDown, Procedure:="Reset", Schedule:=False End Sub 

源文件

Answer 1

replace这个：

 If Not IsEmpty(Counter) Then Counter = Counter - TimeValue("00:00:01") 

有了这个：

 If Counter > TimeValue("00:00:01") Then Counter = Counter - TimeValue("00:00:01") Else Counter = "" End If