Почему OnTime не выполняется, когда пользовательская форма открыта?

Question

Я пытаюсь использовать самоактивирующийся сабвуфер OnTime для редактирования текста в элементе управления UF.Тем не менее, я обнаружил, что событие Application.OnTime не начнет работать до тех пор, пока пользовательская форма не будет закрыта.

В соответствии с этим потоком SO я поместил self-активация подпрограммы в публичной подпрограмме в обычном модуле.Однако это безрезультатно.

UF sub

Private Sub UserForm_Initialize
    TEST.loadingdots
End Sub

Regular sub

Public Sub loadingdots
    Debug.Print 4
    Application.OnTime Now + TimeValue("00:00:02"), "loadingdots"
End Sub

Первый«4» печатается, тогда ничего.Когда я закрываю UF, процедура выполняется как положено.

Как я могу обойти это?

Answer 1

Отвечая на мой вопрос для дальнейшего использования

Когда UF содержит элемент управления RefEdit, событие OnTime не будет выполнено.

Я создал новую пустую UF, которая не вызывала никаких проблем.

Похоже, к RefEdits нужно подходить с осторожностью, подобно тому, как использование элемента управления RefEdit в немодальной форме пользователя заставляет пользователя закрывать приложение Excel через диспетчер задач .