大家好，我最近在Excel里做了一个简单的倒计时计时器，代码如下：

Public interval As Date
Sub timer()
    interval = Now + TimeValue("00:00:01")
    If Range("I3").Value = 0 Then Exit Sub    
    Range("I3") = Range("I3") - TimeValue("00:00:01")  
    Application.OnTime interval, "timer"    
End Sub

Sub stop_timer()
    Application.OnTime EarliestTime:=interval, Procedure:="timer", Schedule:=False
End Sub

（附计时器界面截图：显示倒计时单元格I3，以及控制计时器的操作按钮）

我运行计时器后它能正常开始倒计时，但只要切换到Excel里的其他工作表，计时器就会自动停止，每次都得重新运行才行。我用的是最新版的Excel，有没有大佬能教教我怎么让计时器在切换工作表后依然正常运行呀？

解决方法：指定具体工作表的单元格引用 #

你遇到这个问题的核心原因是代码里的Range("I3")没有指定具体的工作表，当你切换到其他工作表时，代码会默认引用当前激活工作表的I3单元格。如果这个单元格的值是0，就会触发Exit Sub，导致计时器停止；就算不是0，更新的也是错误单元格的值，看起来就像计时器停了。

只需要修改代码，把所有Range("I3")替换成明确指定工作表的引用就行，步骤如下：

1. 先确定你的倒计时单元格I3所在的工作表名称（比如叫"计时表"）；
2. 修改timer子程序里的单元格引用：

Public interval As Date
Sub timer()
    Dim timerSheet As Worksheet
    ' 指定倒计时所在的工作表
    Set timerSheet = ThisWorkbook.Worksheets("计时表")
    
    interval = Now + TimeValue("00:00:01")
    ' 引用指定工作表的I3单元格
    If timerSheet.Range("I3").Value = 0 Then Exit Sub    
    timerSheet.Range("I3") = timerSheet.Range("I3") - TimeValue("00:00:01")  
    Application.OnTime interval, "timer"    
End Sub

Sub stop_timer()
    Application.OnTime EarliestTime:=interval, Procedure:="timer", Schedule:=False
End Sub

这样修改后，不管你切换到哪个工作表，代码都会始终操作你指定的那个工作表的I3单元格，计时器就能持续正常运行了。

另外补充一点：最好把interval变量放在标准模块里（不要放在工作表模块），确保它的作用域正确，避免因为工作表切换导致变量失效。

备注：内容来源于stack exchange，提问作者Tech Learner