Progress bar или индикация выполнения макроса в Microsoft Office Excel

Posted by obzor under VBA

Столкнулся с необычной проблемой. У меня есть макрос в котором есть 6 циклов и каждый цикл разной длины и размерности. Суть моего макроса это сравнение двух разных книг и копирование всей информации из одной книги в другую при этом учитывает чтобы кол-во строк было равным, и поэтому в макросе много циклов. Сам макрос выполняется около 40 сек. Так вот возник вопрос как отобразить процесс выполнения макроса. Читал много разных идей но так и не нашёл нужный вариант. Т.е. мне не нужно создавать форму и делать в ней прогресбар для меня лучший вариант отображение в статус бар что упрощает вывод индикации. Ниже код который я использую для того чтобы видеть прогресс, но он работает если его вставить в один цикл, тогда понятно как связать его с макросом но у меня много разных циклов.

Так вот вопрос: как привязать данный код к макросу с множеством циклов? И можно ли запустить индикацию так чтобы параллельно выполнялся макрос? Ну и получится что я буду видеть ход выполнения макроса.

EducatedFool

Внутри вашего большого цикла, раз в 1000 итераций, проверяем, прошли ли 0,2 секунды с момента предыдущего обновления прогрессбара, и обновляем прогрессбар
Типа такого:

' ваш макрос
for i = 1 to 10000000

   if i mod 1000=0 then ' чтобы не очень часто проверка была
       if timer - lastTime>0.2 then lastTime=timer : Call ОбновитьПрогрессбар
   end if

' тут исходное содержимое вашего цикла

next i

Ну а процент выполнения сложно посчитать.

тема на форуме

Похожие статьи

• Ping из VBA
• Запретить ввод пробелов в ячейки Excel
• Массовое переименование label на форме
• Вынести часть текста из многострочной ячейки по условию (Excel)
• Копирование данных в Excel «отталкиваясь» от последней заполненой строки
• Вставка данных в Excel после последней заполненной ячейки
• Как в Excel посчитать количество дней, прошедших с заданного числа
• Копирование данных «отталкиваясь» от последней заполненной строки Excel
• Как вытащить URL адрес из формулы с гиперссылкой в Excel
• При открытии файла Excel запрашивается восстановление