Перенести код в форму и выводить на ней. Можно и прогрессбар из двух Label сделать.
Debug.Print "TEXT"
Private Sub TestProgressBar()
Const Max = 1000
Dim stat As AppStatus, z&
Set stat = Application.Status
stat.BeginProgress
Application.Refresh
For z = 1 To Max
stat.Progress = Math.round(z / 10, 0)
stat.UpdateProgress step = 5
Application.Refresh
Next
stat.EndProgress
End SubПробовал в 19й и 21й версии корела. Не отображается вообще. Да и хочется следить за этапами выполнения кода.
а как включить вторую форму но при этом чтобы предыдущий макрос не ждал ее закрытия а продолжал выполнение?
ну если сделать
ЗАчем вам msgbox? Добавляйте инфу прям на форму в поля и обновляйте ее (refresh).
ну инфу то понятно. а код самой задачи.. проверка там файлов или что еще происходит. получается тоже надо в эту форму код выносить?
Ну я ж и говорю, не делайте модальный мессаджбокс, а исполняемый код поставьте в обработчик формы
т.е. вы предлагаете в форму прогрессбара (статусбара) впихивать основной код алгоритма?
так это итак понятно.. интересует меня (и топикастера я думаю тоже) как это сделать из макроса без формы или из основной формы.
Разумеется никак - непонятно, куда информацию о процессе выдавать, ну разве что какие нибудь MessageBoxTimeout
Тогда в основную форму и код пихать и информацию выводить
а если сначала запустить форму-статус. из нее запустить основную форму. тогда по идее форма будет висеть. можно просто ее видимостью управлять. (позицией на экране например) и обновлять инфу на ней уже из основной формы. так прокатит?
Конечно. Но зачем формы плодить?
я предложил в качестве варианта именно использования плавающего статуса. мало ли надо носом тыкнуть пользователю что-то