Работа с Label

[Серёга0629]

Добрый день!
ситуация состоит в следующем: при открытии книги запускается форма, если нажать на кнопку "запустить" то выполняется макрос, но перед строчкой вызывающей макрос есть строка выводящяя сообщение "подождите" в Label

UserForm1.Label1.Caption = "ПОДОЖДИТЕ!"
Module1.Макрос1

Всё работает! НО!!! сначала выполняется макрос, а тлько потом выводится сообзение, а не наоборот, почему? и как это исправить?
этот макрос создан для примера, но есть макросы котые выполняются не секунду а больше, в них это более наглядно.
Спасибо!)

[Серёга0629]

Всё пучком! поставил задержку макроса:

Application.Wait (Now + TimeValue("0:00:03"))

[Serge_Bliznykov]

а ещё можно попробовать перед вызовом макроса написать DoEvents
:

UserForm1.Label1.Caption = "ПОДОЖДИТЕ!"
DoEvents
Module1.Макрос1

p.s. не проверял, но вроде бы должно помочь...

[Серёга0629]

Работает, спасибо)) так даже лучше, время не уходит)

[RAN.]

Решил потестить, как все это выглядит.
Для наглядности вставил в код Макроса1 цикл

t = Timer
Do
If t <= Timer - [D1] Then Exit Do
Loop

Если время работы макроса сделать 5 секунд и более, появляется сообшение, что форма не отвечает, форма с экрана исчезает, код повисает.
С чем это связано, и как с этим бороться?

[Serge_Bliznykov]

RAN
вызывайте обработчик сообщений DoEvents в цикле..

например,

t = Timer
Do
  DoEvents
  If t <= Timer - [D1] Then Exit Do
Loop

p.s. кстати, подобный цикл - ВАРВАРСТВО!!!

[EducatedFool]

После UserForm1.Label1.Caption = "ПОДОЖДИТЕ!"
надо поставить UserForm1.Repaint
для принудительной перерисовки формы

[RAN.]

Сообщение от EducatedFool

После UserForm1.Label1.Caption = "ПОДОЖДИТЕ!"
надо поставить UserForm1.Repaint
для принудительной перерисовки формы

И никаких проблем!

p.s. кстати, а почему подобный цикл - ВАРВАРСТВО!!!