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

OnTime不工作

1 个答案: