Excel倒计时宏重复调用时终止旧实例的技术问询

原宏的问题在于每次调用StartClock都会创建一个新的Application.OnTime定时器，旧的定时器实例不会自动终止，多个定时器同时修改单元格AM51，导致数值加速递减。要解决这个问题，我们需要记录并取消未执行的旧定时器，确保同一时间只有一个定时器在运行。

解决方案步骤： #

• 新增模块级变量存储下一次定时器的执行时间，用于后续取消旧实例
• 修改StartClock宏，启动新定时器前先取消已存在的旧定时器
• 可选：新增StopClock宏，支持手动终止倒计时

完整代码（需放在标准模块中）： #

' 模块级变量，存储下一次定时器的执行时间
Dim nextRunTime As Date

Sub StartClock()
    ' 先取消已存在的旧定时器
    On Error Resume Next ' 避免首次运行时变量未赋值报错
    Application.OnTime EarliestTime:=nextRunTime, Procedure:="StartClock", Schedule:=False
    On Error GoTo 0
    
    Dim Clock As Date
    Clock = Now + TimeValue("00:00:01")
    nextRunTime = Clock ' 更新变量为新的执行时间
    
    If Range("AM51").Value = 0 Then
        Exit Sub
    End If
    
    If Range("AM51").Value < 7 Then
        Beep
    End If
    
    Range("AM51") = Range("AM51") - 1
    
    ' 启动新的定时器
    Application.OnTime Clock, "StartClock"
End Sub

' 手动终止倒计时的宏
Sub StopClock()
    On Error Resume Next
    Application.OnTime EarliestTime:=nextRunTime, Procedure:="StartClock", Schedule:=False
    On Error GoTo 0
    nextRunTime = Empty ' 清空变量
End Sub

代码说明： #

1. nextRunTime作为模块级变量，会在每次启动定时器时记录下一次的执行时间
2. 每次调用StartClock时，先通过Application.OnTime ... Schedule:=False取消旧的定时器，确保只有当前实例在运行
3. On Error Resume Next用于处理首次运行时nextRunTime未赋值的情况，避免报错
4. StopClock宏可以手动终止所有正在运行的定时器，适合中途需要停止倒计时的场景

内容的提问来源于stack exchange，提问作者D. Robertson