Процент выполнения макроса (динамический) ?

[Snekich]

Есть макрос, который выполняется очень долго (около двух часов обрабатывает инфу с инета).

Как вывести окошко на время выполнения макроса в котором бы динамически отображалось значение переменной ( это значение и будет являться процентом выполнения всего макроса в данный момент).

Т.е. надо:
- вывод сообщения на время выполнения макроса
- в сообщении динамически отображается значение переменной

Как это реализовать? Ни разу не задавался такой целью и не знаю как...

[IgorGO]

в теле цикла

application.statusbar = Переменная

смотрите в начале строки статуса. полезная штука пользователь понимает, что процесс идет, а не терзается мыслями "а не зависло-ли все?".

по окончании вычислений верните в строку состояния надпись Готово

application.statusbar = false

[Hugo121]

Можно так:

Sub test()
    For i = 1 To 100000
        p = i \ 1000
        s = String(p \ 10, ChrW(9632)) & String(10 - p \ 10, ChrW(9633))
        Application.StatusBar = "Выполнено: " & p & "% " & s
        DoEvents
    Next
    Application.StatusBar = False
End Sub

[EducatedFool]

Более сложное в плане кода, но более наглядное, и простое в использовании, решение по отображению хода выполнения макроса:
http://excelvba.ru/tools/ProgressIndicator

Один раз попробуете, разберетесь, - потом во всех макросах применять будете.

[Snekich]

Огромное спасибо.
Жаль что не получается "плюсануть" т.к. уже...