VBA中如何取消已调度进程并创建新的定时更新任务？

你的现有代码里取消已调度任务的逻辑有问题：用Application.OnTime Now, ...根本没法正确取消任务，因为OnTime要求必须精确匹配你之前设置的那个调度时间才能取消，而不是用当前时间Now。要实现需求，核心是得把每次调度的时间存下来，下次点击时用这个保存的时间精准取消旧任务，再创建新的。

修改步骤说明 #

• 在模块最顶部加一个模块级变量，用来存上次调度的时间，让所有子程序都能访问到这个值
• 点击按钮时，先检查有没有已调度的任务，有的话就用保存的时间取消它
• 调度新任务后，把新的时间更新到这个变量里
• 保留错误处理，避免没任务的时候取消操作报错

修改后的完整代码 #

' 模块级变量：必须放在所有子程序/函数外面，用来存储上次调度的精确时间
Dim scheduledTime As Variant

Sub UpdateWorksheet()
    ' 获取触发这个子程序的按钮
    Dim btn As Shape
    Set btn = ActiveSheet.Shapes(Application.Caller)
    
    ' 获取按钮上的文本
    Dim buttonText As String
    buttonText = btn.TextFrame.Characters.Text

    ' 立即更新指定单元格区域
    Call UpdateRange(buttonText)
    
    ' 读取preflop单元格里的更新间隔（秒）
    Dim preflopTime As Integer
    preflopTime = Range("preflop").Value
    
    ' 把秒数转换成OnTime能用的时间格式（以天为单位）
    Dim timeValue As Variant
    timeValue = TimeSerial(0, 0, preflopTime)

    ' 取消之前已经调度的任务（如果有的话）
    On Error Resume Next
    If Not IsEmpty(scheduledTime) Then
        Application.OnTime EarliestTime:=scheduledTime, Procedure:="SchedulePreflop", Schedule:=False
    End If
    On Error GoTo 0

    ' 计算新的调度时间，并存到变量里
    scheduledTime = Now + timeValue
    ' 调度新的更新任务
    Application.OnTime EarliestTime:=scheduledTime, Procedure:="SchedulePreflop", Schedule:=True
End Sub

Sub SchedulePreflop()
    ' 执行更新操作
    Call UpdateRange("PREFLOP")
    
    ' 任务完成后清空变量，避免下次点击时尝试取消已经完成的任务
    scheduledTime = Empty
End Sub

Function UpdateRange(buttonText As String)
    ' 更新spot单元格的内容
    Range("spot").Value = buttonText
    
    ' 从Database工作表复制指定区域到Ranger工作表的range位置
    Dim copyRange As Range
    Set copyRange = Worksheets("Database").Range(buttonText)
    copyRange.Copy Destination:=Worksheets("Ranger").Range("range")
End Function

关键改动解释 #

1. 模块级变量scheduledTime：这是核心，每次调度任务时把精确时间存在这里，取消任务时就用这个时间去匹配，确保能精准取消旧任务。
2. 取消任务的逻辑：先判断变量不为空（也就是存在未执行的调度任务），再执行取消操作，避免没任务的时候报错。
3. 任务执行后清空变量：SchedulePreflop运行完后把scheduledTime清空，这样下次点击按钮时不会尝试取消已经完成的任务。

内容的提问来源于stack exchange，提问作者Collaxd