Визуализация работы макроса

[Gawwws]

Кто-то может полсказать как сделать так, что-бы во время выполнения макоса выскакивала форма с бегущей строкой выполнения макроса или хотя-бы просто сообщение "Подождите"

[EducatedFool]

Один из вариантов реализации прогресс-бара с использованием стандартных элементов управления:


Новая версия индикатора: (щелкните на изображении для загрузки файла)





Cтарая версия - во вложении:

[GES]

Можно без формы: Application.StatusBar = i & "%"

[SIV84]

Вполне устраивает. Спасибо

[EducatedFool]

В ходе обсуждения темы прогресс-бара на соседнем форуме возникли новые идеи по реализации прогресс-бара (с использованием строки состояния Excel)

Код очень простой:

Sub test1()
    For i = 1 To 10000
        p = i \ 100: s = "": For j = 10102 To 10102 + p \ 10: s = s & ChrW(j): Next
        Application.StatusBar = "Выполнено: " & p & "% " & s: DoEvents: DoEvents
    Next
    Application.StatusBar = False
End Sub


Sub test2()
    For i = 1 To 10000
        p = i \ 100: s = String(p \ 10, ChrW(10152)) & String(10 - p \ 10, ChrW(8700))
        Application.StatusBar = "Выполнено: " & p & "% " & s: DoEvents
    Next
    Application.StatusBar = False
End Sub

См. пример файла:

[EducatedFool]

Опубликовал последнюю версию своего прогресс-бара на сайте: http://excelvba.ru/tools/ProgressIndicator

Дополнительно реализована поддержка дочерних прогресс-баров.

[alvazor]

AducatedFool - красивые варианты, слов нет!
Подскажите пожалуйста, если не трудно (для меня DoEvents и генератор случайных чисел - пока туманные понятия, увы)
Интересует простенький прогресс-бар, индицирующий процесс пуска программы и выхода из нее (достаточно длительные), а длительность этих процессов - неопределенная, и зависит от версии.
Видел варианты (в InnoSetup, в частности) прогресс-бара, который заведомо медленно начинает закрашивать этикетку, а по завершению процесса - быстро завершает закраску и исчезает. Нет ли у Вас подобного варианта? Как модифицировать опубликованное - не соображу...
С уважением

[EducatedFool]

Так уберите из кода всё лишнее...

Оставьте, например, такой код:

Sub ПримерИспользованияПрогрессБара()
    Dim pi As New ProgressIndicator ' создаём новый прогресс-бар
    pi.Show "Внимание - работает программа": pi.ShowPercents = False: pi.ShowTime = False
    pi.StartNewAction 0, 0, "Ничего не нажимайте - просто подождите"

    ' ваш макрос здесь
    For i = 1 To 20000: Cells(i) = i: Next

    pi.Hide    ' закрываем основной индикатор
End Sub

Вот пример в виде файла: http://excelvba.ru/XL_Files/Sample__...__13-39-38.zip

Ну или просто отображайте форму:

Sub ПримерИспользованияФормы()
    F_Progress.Show

    ' ваш макрос здесь
    For i = 1 To 20000: Cells(i) = i: DoEvents: Next

    F_Progress.Hide
End Sub

Пример в файле: http://excelvba.ru/XL_Files/Sample__...__13-44-02.zip

[IgorGO]

Очень простенький вариант с демострацией работы без визуализации, а потом с ней.
на мой взгляд если что-то выполняется больше 2 секунд - надо человека занять чем-то, чтобы отвлечь его от тягостных дум типа "а что происходит?, а когда это закончится?". оператор из категории "полной непонятки" переходит в категорию "контролирующего процесс" - это добавляет ему уверенности и уважения к себе от понимания собственной важности в происходящем.

[alvazor]

Спасибо большущее, EducatedFool и IgorGo - не ожидал таких быстрых ответов, разбираюсь.
Для сведения:
- в файле ...13-44-02.zip имя п/п ПримерИспользованияФормы, а ссылка - ПримерИспользованияПрогрессВара (мелочи жизни)
- а вот файл ...13-39-38.zip при включенных макросах запускается с сообщением Excel "Ошибка файла! Данные м.б. утеряны" - а далее вроде бы запускается. Но первый пуск (при открытии книги) и пуск по кнопке отличаются. В первом успевает мелькнуть зеленая полоса этикетки...
Со строкой состояния вроде понятно
Еще раз спасибо!