Excel/VBA/Application.OnTime

Question

我没有任何编程经验(任何一种，所以请说慢一点，如果你能帮助我:-))，但已经设法(在这些论坛的帮助下)拼凑在一起以下(我相信你会所有ROFL如果你看到其他一些)。

Sub StartTimer()
RunWhen = Now + TimeSerial(0, 1, 0)
Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat, schedule:=True
End Sub

和

Private Sub Workbook_Open()
Application.OnTime TimeValue("12:59:03"), "StartTimer"
Application.OnTime TimeValue("13:40:00"), "Macro1"
Application.OnTime TimeValue("13:45:00"), "Macro2"
Application.OnTime TimeValue("15:11:00"), "StopTimer"
End Sub

与"StartTimer“(cRunWhat)关联的宏按其应有的方式运行。Macro1和Macro2不能运行(虽然手动启动都能运行-- Macro1和Macro2单独运行没有问题)。

我猜是因为当"TimeValue“到达13:40和13:45时，"timer”已经在运行了。

我是否必须在13:40之前停止计时器以允许这些宏运行(然后重新启动它)，或者是否有其他方法可以在不暂停"StartTimer“宏的情况下这样做？

Remember....please说得很慢:-)

期待中的感谢

Hendrix

Answer 1

Excel堆叠计划的ontime宏，并按时间顺序或(如果时间相等)按计划的顺序执行它们。据我所知，你可以调度的ontime宏的数量没有明显的限制。所以我猜测还有另一个原因导致Macro1和Macro2没有被调用。也许您的VBA工程包含多个"Macro1“子例程？