powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / % выполнения
7 сообщений из 7, страница 1 из 1
% выполнения
    #35660378
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
есть цикл For Next
Как мне при во время выполнения вывести на экран Excel индикатор, показывающий % выполнения процедуры?
у меня Application.ScreenUpdating=False до For стоит, если это важно...
Спасибо!
...
Рейтинг: 0 / 0
% выполнения
    #35660637
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Автор: PlanB
> есть цикл For Next
> Как мне при во время выполнения вывести на экран Excel индикатор, показывающий % выполнения процедуры?
> у меня Application.ScreenUpdating=False до For стоит, если это важно...
> Спасибо!


Как вариант, заводишь форму с прогресбаром, перед началом цикла показываешь её, а в цикле ставишь:
UserForm1.ProgressBar1.Value = UserForm1.ProgressBar1.Value + 1
UserForm1.ProgressBar1.Refresh()
DoEvents

По окончании цикла прячешь её

--
С уважением Горбонос Игорь Леонидович

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
% выполнения
    #35660653
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо!!!!


Прогу доделал, запустил :) На совещание сходить успел, пока выгружала данные, зато всё чётко :)
Под это дело решил вывести % выполнения, чтобы люди не пугались...

сейчас 30 мин, до этого руками, слышал, 4 дня народ ковырял... Вот она, сила автоматизации
...
Рейтинг: 0 / 0
% выполнения
    #35660729
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Автор: PlanB
> сейчас 30 мин, до этого руками, слышал, 4 дня народ ковырял... Вот она, сила автоматизации


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

Так что у тебя есть куда расти

--
С уважением Горбонос Игорь Леонидович

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
% выполнения
    #35660750
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
C учётом того, что я не могу добавить на форму прогрессбар, т.к. не имею понятия, где мне галочку в References поставить, то расти есть куда
...
Рейтинг: 0 / 0
% выполнения
    #35660867
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А это не в Referens'ах, а на ToolBox'е, который показывается когда переходишь на форму, где можно выбрать Label, Text и другие, на нём правой кнопкой мышки, пункт "Additional Controls"
...
Рейтинг: 0 / 0
% выполнения
    #35661222
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ещё чуток подрос
Спасибо!
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / % выполнения
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]