Мяв!
Началось все с Application.OnTime, но выяснилось, что и Application.Run ведет себя так-же, с той небольшой разницей, что OnTime молчит, а Run ругается на отсутствие макроса. Судя по тому, что код не работает только в модуле формы (в книге и на листе все в порядке), проблема в определении места расположения макроса. В чем причина, и можно-ли как-то прописать запуск?
Через доп. код в стандартном модуле работает, вариант не интересен
Началось все с Application.OnTime, но выяснилось, что и Application.Run ведет себя так-же, с той небольшой разницей, что OnTime молчит, а Run ругается на отсутствие макроса. Судя по тому, что код не работает только в модуле формы (в книге и на листе все в порядке), проблема в определении места расположения макроса. В чем причина, и можно-ли как-то прописать запуск?
Через доп. код в стандартном модуле работает, вариант не интересен
| Код |
|---|
Const TimePause = 20 * (1 / 86400 / 10) Private Sub qq() MsgBox "QQ" End Sub Private Sub TextBox1_Change() Application.Run "UserForm1.qq" ' Application.OnTime Now + TimePause, "UserForm1.qq" End Sub |
Изменено: - 15.04.2017 11:44:42
