Работаю над оптимизацией кода. Т.к. он получается очень нагромождённым.
И некоторые процессы, я понимаю, что их можно упростить. Но в виду слабого понимания ограничений VBA не могу корректно изложить код.
суть проблемы:
Есть код, например:
По не понятной мне причине, VBA ругается на Typemismatch.
Поиском пользовался. Ответа не нашел.
Благодарю, если поделитесь знаниями.
Тестовый файл приложен.
И некоторые процессы, я понимаю, что их можно упростить. Но в виду слабого понимания ограничений VBA не могу корректно изложить код.
суть проблемы:
Есть код, например:
Код |
---|
sub GetData() UserForm1.Show vbModeless WaitForInput (UserForm1) end sub sub WaitForInput (frm as UserForm) Do Until frm.Visible = False DoEvents Loop end sub |
Поиском пользовался. Ответа не нашел.
Благодарю, если поделитесь знаниями.
Тестовый файл приложен.