Визуализация работы макроса при помощи прогресс-бара

Добрый день. Пытаюсь использовать ваш индикатор у себя, но он выдает ошибку в классе class_initialize в строке Set FP.indicator = Me
Ошибка Compile error Method or data member not found. Как поправить?

Огромное спасибо разработчику!!!
Несколько лет применял ваш ProgressIndicator (выдрал из какого-то примера), просто, эффектно. И вот наконец обнаружил автора.

Большое спасибо Автору! Великолепный макрос! Думал что не нужный, пока не пришлось обрабатывать однотипные файлы тысячами! А так сразу понятно, на сколько можно идти пить чай!

Еще раз добрый день!
Заменил строку LogString = LogString & vbNewLine & currtime$ & txt на LogString = LogString & vbLf & currtime$ & txt в вашей процедуре Log, все стало нормально.
Спасибо
С уважением Александр

Доброго дня!
Попробовал Ваш код с поддержкой отображения лога на индикаторе
Очередная строка лога лепится к предыдущей, а не пишется на индикаторе с новой строки
Что посоветуете посмотреть?
Спасибо
С уважением Александр

Добрый день!
Использую прогресс бар для индикации во время объемных вычислений (парсинг большого объема JSON, общее время около 8 - 10 минут). Когда тестировал на меньших объемах (1-2 минуты) все работало отлично, но когда загрузил реальные данные, то прогресс бар стал периодически пропадать на несколько секунд, а потом снова появляться уже с обновленными данными. Причем количество таких появлений и пропаданий прогресс бара плавающее. Подскажите, может кто-то сталкивался с такой же проблемой?

Все параметры обновления перед запуском сбрасываю:
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
Application.DisplayStatusBar = False
Application.DisplayAlerts = False

Спасибо!

Подскажите, если при использовании дочернего индикатора обращаться к нему напрямую (например, если брать Ваш пример, так: pi.AddChildIndicator("ИМЯ_ИНДИКАТОРА").SubAction "Действие $index из $count"), без конструкции With, то на стадии обновления дочернего индикатора (добавления действия) возникает ошибка деления на ноль: почему так происходит?

Добрый день,
я не понял как и где вставлять сам код между моим макросом. Форму и модуль я скопировал.
У меня следующий процесс.
1. Отключаю экранчик.
2. Открываю файл 1 и проверяю его на наличие в указанной папке.
3. Если файл1 есть то в самом файле я снимаю объединения ячеек.
4. Открываю файл2 повторяю пункт 2-3.
5. В файле1 делаю автофильтр и удаляю все не нужное и копирую данные в свой "материнский" файл через который запустил макрос. Закрываю файл 1 без сохранения(поскольку не знаю как макросом вернуть удаленное).
6. опять открываю файл1 п.2-3
7. Тяну ВПР с файла 2, фильтрую не нужные данные в файле1 и удаляю их, копирую в другую таблицу "материнского" файла.
8. закрываю файл 1,2 не сохраняя, и включаю экран.

Прогрес бар тут нужен, поскольку долго обрабатывается, и файлы большие, но это намного быстрей чем все делать ручками. Хотелось бы увидеть общий прогресс бар просто с полосой и время.

Игорь, в настройках парсера: дополнительно-разное, есть галочка "отображать второй прогресс-бар" уже не актуальна) , т.к. первый после апа проги вмещает 6 строк. Было бы очень здорово если бы на следующий ап галочку изменили на "отображать прогресс-бар"))) Спасибо!

Здравствуйте, вопрос в следующем. Как отключить прогресс-бар в парсере? Очень не удобно когда парсер запускается каждую минуту и всплывает поверх окон. Спасибо!

Спасибо!

Подскажите пожалуйста...я обрабатываю ячейки по selection, как мне создать такой прогрессбар которые будет высчитывать проценты и время

Подскажите пожалуйста! Как исключить возможность закрытия прогресс бара, до полного завершения процесса формирования документов? т.е. исключить принудительную остановку процесса формирования документов, путем нажатия на красный крестик.

Вышел из положения так. Сначала запускается маленький легкий макрос, он показывает юзеру чистый лист с предупреждающей надписью и стоящим на 20% прогресс-баром, пока что фальшивым, статичным.
Ведь главное, чтобы юзер спокойно ждал и не дергался!
Далее из этого макроса запускается основной большой макрос и прогресс-бар начинает ехать обычным порядком.
Прогресс-бар использовал свой, простейший, см. ранее, повтором буквы g шрифта Webdings.

У меня сложный макрос долго работал.
Но пока налаживал этот прогресс-бар, выяснилась интересная штука.
Собственно, и необходимость в нем отпала.
Выяснилось, что основное замедление (до 15-20 секунд) происходит еще ДО НАЧАЛА выполнения операций!
Получается, что на этапе выделения памяти под переменные! Больше быть нечему.
У меня там реально много: по 20 переменных типа Long и Single, 8 String, 4 динамических массива Range, 8 массивов String тоже динамических и т.д. Сократить бы можно, но - за счет понятности кода...
За эту гипотезу говорит то, что замедление на компе с 8G памяти практически не чувствуется, а с 2G достигает 15 сек. Та же Win-7 и тот же Office-2010.

Это правда может такое быть?

Я пытался запускать прогресс-бар еще до определения переменных. Однако ничего не меняется.
Да и кстати - по ходу придумал наипростейший прогресс-бар, он работает всегда!
На любой винде есть шрифт Webdings, в нем буква "g" с номером 103 - это просто закрашенный квадратик. Создаем прогресс-бар повтором этих квадратиков функцией String(), на отдельном листе с заранее отформатированной ячейкой. Размер, цвет надо будет подобрать.
Допустим, в ячейку помещается 23 квадратика.
Прогресс-бар в одну строчку:

Sheets("ProgressBar").Range("D7").Value = String(Round(23 * i / n), 103)

где i и n - ваши параметры. Например, выполнено i действий из n.

Добрый день
Почему-то тогда я пытаюсь показать прогресс-бар перед своей формой(окно) она отображается за ней, и я прогресс-бар не вижу, а вижу только свою форму. Также остается проблема, когда я свою форму скрываю на время. При этом чтобы прогресс-бар работал быстрее надо мышкой на него левой кнопкой нажать (а так ждать около 1 мин против 5 сек).

Здравствуйте выдает ошибку pi As New ProgressIndicator

У меня такое же было из-за того, что я скопировал в свой проект классмодуль ProgressIndicator, но забыл скопировать форму F_Progress - нужно копировать и то и другое, как скопировал ошибку перестало вываливать.
П.С. Автору индекатора/сайта уклон до земли, респект, уважуха .....

Игорь, добрый день.
Будет ли компонент работать в MS Access 2007 и выше?

Все получилось!
Огромное спасибо за помощь!

Здравствуйте!
Добавил на прогресс-бар кнопку "Лог", которая появляется в конце работы.
Подскажите, пожалуйста, как привязать к ее нажатию запуск метода класса ShowLog? Т.е. я хочу чтобы при нажатии этой кнопки лог "открывался" в блокноте...
Заранее спасибо!

Здравствуйте! Спасибо Вам за макрос.

Возник один вопрос:
Я добавил на форму свой элемент (Label), который в зависимости от условий должен быть либо виден, либо нет.
Изменение свойств посредством F_Progress.Label3.Visible = True либо F_Progress.Label3.Caption = FileName полностью игнорируется (ничего не происходит)
Подскажите - куда копать? у самого уже фантазия иссякла...
Что мешает изменению свойств объектов?

Спасибо, все замечательно работает !
Обязательно переведу немного денежки.

Спасибо ОГРОМНОЕ разработчику данного макроса!

Как передать объект в подпрограмму?
для того чтобы вызвать pi.subaction?

У меня на строке Dim pi As New ProgressIndicator выводит ошибку User-defined type not defined.

Здравствуйте, Игорь. Все пытаюсь "прикрутить" любой из ваших прогресс-баров к своему макросу, но что-то не выходит, пишет 0%, а на самом деле процесс идет. Немогли бы вы, пожалуйста, помочь "прикрутить" любой из баров? Ниже ссылка на файл с макросом. Спасибо!
_http://files.mail.ru/TBZFOK

я знаю что это не просто, но
не прогрессбар должен запускать все элементы программы, а сам прогресс бар , дб элементом, который можно запустить, если нужен, а можно и не запускать

отличная штука, но нужно локализовывать
чтоб можно было использовать без знания деталей ее работы и чтоб код не разростался и не усложнялся

использование этого прогрессбара заточено под использование во вложенных циклах
в таких случаях подходит обычный, простенький индикатор, либо вообще без него, но с глубокой оптимизацией самой процедуры

случаи, где действительно нужен прогрессбар - это огромные отчеты, которые долго что то где то берут, выгружают, ищут, сводят, ..

в таких случаях нужно вот что..

sub m()
pi.ini 'инициализация бара
''''''''''''код 
''''''''''''код
pi.run
''''''''''''код 
''''''''''''код
pi.run
''''''''''''код 
''''''''''''код
pi.run
''''''''''''код 
''''''''''''код
pi.run
 
pi.done ' завершение его работы
end sub

Нет, нет, ответ исчерпывающий, все понятно, это я привел пример листа по аналогии книги(чайник ведь), спосибо за ответ суть прогрессБара я понял.
Я еще много чего не понимаю, но когда столкнулся изучать все это уж больно все заинтересовало это програмирование и хочется все изучить, большая проблема не в понимании кода а в английском.ВОТ
С Уважением Дмитрий!

Подскожите пожалйсто, нигде я не встречал, макроса который бы выполнял такую функцию, т.е., как можно сделать, что бы прогрессБар показывал визуальную работу загрузку приложения которое открывается, а не с кнопки, к примеру открываю я книгу или лист, а мне показывает прогрессБар процесс загруски открытия!
С Уважением Дмитрий!!!!

1. С завершением индикации - понятно.

2. Запустите Ваш макрос при "Option Base 1".
Забавные показания pi выдаст! :)
Они объяснимы, но не желательны.

Как это в pi устранить?

Вопрос:
В приведенном Вами примере на полоске индикатора цветом не отображается факт завершения "Макроса10".

Где? и Как? "притормозить" pi, чтобы он отобразил цветом(!) завершения процесса "Макроса10" ? :)

C определение переменных разобрался. Должно быть:

Dim ИменаМакросов As Variant
Dim macro As Variant