如何停止Application.ontime

Question

我正在尝试运行一个宏后1分钟的按钮单击。当我再次按下按钮时，第一个计时器应该重置并从头开始(如果我在1 minute.it内再次单击按钮，宏应该不会运行，应该只在我最后一次单击1分钟后运行)

我试过application.ontime dtime,"expire", false，但它不工作。当我尝试application.ontime dtime,"expire", , false时(它导致错误1004)

public dtime as double

private sub commandbutton1_click()
application.ontime dtime,"expire", false
dtime = Now+timevalue("00:01:00")
application.ontime dtime,"expire"
commandbutton2.visible= true

end sub

现在，在单击commandbutton1 1分钟后，宏expire正在运行(这将使commandbutton2不可见)。但当我在1分钟内再次按下命令按钮时(假设在第一次点击30秒后)，计时器继续运行，并在30秒内使命令按钮2不可见。我需要计时器重置时，第二次点击。或者请建议任何替代方法。希望我说得很清楚。

Answer 1

如下所示：

public dtime as double

private sub commandbutton1.click()
    'If there's an existing run, cancel it
    If dtime <> 0 then 
        on error resume next 'might already have run, so ignore any error
        application.ontime dtime, "expire", ,false
        on error goto 0      'stop ignoring errors
        dtime=0
    End If

    'schedule next run
    dtime = Now + timevalue("00:01:00")
    application.ontime dtime, "expire"
    commandbutton2.visible = true

end sub