OnTime не работает

Question

OnTime не работает

У меня в настоящее время есть функция 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

Кто-нибудь может объяснить, почему это не работает? Кроме того (вероятно, глупые вопросы), как бы я это сделал, чтобы это работало, если рабочая книга закрыта? Возможно ли запустить его, если компьютер заблокирован, выключен или вышел из системы?

Спасибо!

1

excel vba excel-vba ontime

Источник

user4483889 04 фев '15 в 17:37

1 ответ

Другие вопросы по тегам excel vba excel-vba ontime

user2864943 26 мар '21 в 23:17 2021-03-26 23:17 · Answer 1 · 2021-03-26 23:17

Application.OnTime работает в реализации Windows. По состоянию на 27.03.2021 он не работает на Apple Mac Mini M1.

Я запустил следующий тестовый код, чтобы убедиться, что это ошибка в интерпретаторе Microsoft VBA. Окно сообщения никогда не появляется, если testboo не запущен напрямую. Я снял вызов Ontime из документации Microsoft.

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

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