vba - 准时不工作

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 日，它不适用于 Apple Mac Mini M1。

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

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

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