Question

我有以下VBA代码可以按特定间隔刷新所有工作表

Public interval As Double

Sub macro_timer()

interval = Now + TimeValue("00:50:00")

End Sub

Sub my_macro()

 End Sub

 Sub stop_macro()
 Application.OnTime earliesttime:=interval, procedure:="my_macro",schedule:=False

  End Sub

当我尝试运行stop_macro时，会引发运行时错误。

Answer 1

有点VBA怪异，如果以前的计划过程不存在，它将失败。将最后一个参数更改为 True 。

Sub my_macro()

    MsgBox "Hello World"

End Sub

Sub stop_macro()

     interval = Now + TimeValue("00:01:00")

     Application.OnTime interval, "my_macro",, True

End Sub

对象的运行时错误1004方法“ ontime”失败

1 个答案: