OnTime不工作

Question

我目前有一个不工作的OnTime函数(见下图)。

Sub DeleteAllZeros()"   'All of these are defined and work perfectly'
ApagarZerosLCA
ApagarZerosLCAFEC
ApagarZerosLCA_ACC
ApagarZerosLCA_ACC_FEC
ApagarZerosLCI
ApagarZerosLCIFEC
End Sub


Private Sub AutoDeleteZeros()

Application.OnTime TimeValue("15:32:00"), "DeleteAllZeros"

End Sub

有没有人能解释为什么这个不起作用？还有(可能是愚蠢的问题)，如果工作簿关闭，我如何让它运行？如果计算机被锁定、关机或注销，是否可以让它运行？

谢谢!

Answer 1

Application.OnTime在Windows实现中工作。截至2021年3月27日，它不能在苹果Mac Mini M1上运行。

我运行了以下测试代码，以验证这是Microsoft的VBA解释器中的一个错误。除非直接运行testboo，否则消息框永远不会出现。我从微软的文档中删除了Ontime调用。

 Sub testtime()
    Application.OnTime Now + TimeValue("00:00:15"), "testboo"
 End Sub

 Sub testboo()
   MsgBox ("boo")
 End Sub