如何阻止Application.OnTime自身重叠？

Application.OnTime是Excel VBA中的一个方法，用于在指定的时间间隔后执行指定的过程。当多次调用Application.OnTime方法时，可能会出现自身重叠的情况，即前一个过程尚未完成，下一个过程已经开始执行。

为了阻止Application.OnTime自身重叠，可以采取以下方法：

1. 使用一个全局变量来跟踪上一个过程的执行状态。在每次调用Application.OnTime之前，先检查该变量的值，如果上一个过程尚未完成，则不执行当前的调用。
2. 在每次调用Application.OnTime之前，先取消之前已经设置的定时器。可以使用Application.OnTime方法的第二个参数来指定取消之前定时器的过程。

下面是一个示例代码，演示了如何阻止Application.OnTime自身重叠：

Option Explicit

Dim isRunning As Boolean

Sub RunScheduledProcess()
    ' 检查上一个过程是否正在运行
    If isRunning Then Exit Sub
    
    ' 设置全局变量为True，表示当前过程正在运行
    isRunning = True
    
    ' 执行当前过程的代码
    
    ' 设置下一个过程的定时器
    Application.OnTime Now + TimeValue("00:01:00"), "RunScheduledProcess"
    
    ' 设置全局变量为False，表示当前过程已完成
    isRunning = False
End Sub

Sub CancelScheduledProcess()
    ' 取消之前设置的定时器
    On Error Resume Next
    Application.OnTime EarliestTime:=Now + TimeValue("00:01:00"), Procedure:="RunScheduledProcess", Schedule:=False
    On Error GoTo 0
    
    ' 设置全局变量为False，表示当前过程已完成
    isRunning = False
End Sub

在上述示例代码中，全局变量isRunning用于跟踪上一个过程的执行状态。在RunScheduledProcess过程中，首先检查isRunning的值，如果为True，则退出当前过程，不执行后续代码。然后执行当前过程的代码，并设置下一个过程的定时器。在CancelScheduledProcess过程中，通过调用Application.OnTime方法并将Schedule参数设置为False，来取消之前设置的定时器。

这样，通过合理地控制全局变量和取消定时器，可以阻止Application.OnTime自身重叠的问题。

请注意，以上代码仅为示例，实际应用中可能需要根据具体情况进行适当的修改和调整。

参考链接：

• Application.OnTime 方法 (Excel)