[VBA] таймер выполнения кода макроса на форме

Пользователь

Сообщений: 352 Регистрация: 24.12.2012

09.10.2015 17:18:38

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

Как добавить в форме, н-р на Label1 таймер выполнения макроса. Т.е. открыл форму, нажал на кнопку выполнения макроса, на лейбле1 пошел таймер выполнения формата hh.mm,ss. Макрос закончил работу - таймер остановился. Буду рад ссылки на другие темы, если мой случай поднимался тут ранее :-)

caustic

Апострофф

Пользователь

Сообщений: 806 Регистрация: 06.04.2015

09.10.2015 18:02:21

Например -

Код

'перед запуском макроса
t = Timer

'в макросе (в циклах, отвечающих за его тормоза)
For i = 0 To 999999999
tt = Timer - t
Label1 = Format$((tt) / 86400, "hh:nn:ss,") & Format$((tt - Int(tt)) * 100, "00")
DoEvents
Next

Игорь Пользователь Сообщений: 3695 Регистрация: 23.12.2012	#3 09.10.2015 18:06:24 а тут есть готовое решение http://excelvba.ru/tools/ProgressIndicator которое даже оставшееся время может вывести Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Читают тему