|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.02.2009, 22:48 | #1 |
Форумчанин
Регистрация: 24.01.2009
Сообщений: 113
|
Визуализация работы макроса
Есть такой код
Sub WatchOverFile() StartingCheking = True Do While StartingCheking = True 'бесконечный цикл 'Do While NewFileSizeSignal = FileSizeSignal NewFileSizeSignal = CreateObject("scripting.filesystemo bject").GetFile(Signal).Size If NewFileSizeSignal > FileSizeSignal Then DoFile: FileSizeSignal = NewFileSizeSignal 'If NewFileSizeSignal > FileSizeSignal Then Call Sheets("Лист1").ChekMyQuantity t = Timer: While t + ChekTimeFrame > Timer: DoEvents: Wend Loop End Sub Можно как то органзовать индикацию работы макроса (gif картинка или еще что то) Что бы видно было что макрос пашет и что он остановлен? |
14.02.2009, 23:00 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
А ты не пытался воспользоваться поиском?
В теме с точно таким же названием приведён пример. Можно просто выводить информацию в строку состояния. (добавлено) У себя на сайте выложил последнюю версию прогресс-бара: http://excelvba.ru/tools/ProgressIndicator
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 17.08.2011 в 20:11. |
15.02.2009, 00:20 | #3 |
Форумчанин
Регистрация: 04.02.2009
Сообщений: 156
|
Что именно ты хочешь видеть что программа работает или макрос?
Все мы отчасти гении!Но на сколько мы умны настолько же мы и глупы!
|
15.02.2009, 00:21 | #4 |
Форумчанин
Регистрация: 24.01.2009
Сообщений: 113
|
Не сказал, что поиск смотрел, просто у меня чуть другой момент, там юзер форма и разовый процесс. А у меня цикл беспрерывный и может так работать целый день. Важно кинуть взгляд на экран и видеть что процесс не прерван. Думал может просто какую то картинку можно выводить на лист, или лучше мигающая ячейка ....
|
15.02.2009, 00:35 | #5 |
Форумчанин
Регистрация: 04.02.2009
Сообщений: 156
|
Так сделай на листе кнопку с картинкой которая при нажатии меняется на другую. Или в макросе пропиши строчку что при запуске отображается такая картинка(на форме) и напиши процедуру которая через какое-то время будет менять ее и это повторяется пока цикл незакончится.
Все мы отчасти гении!Но на сколько мы умны настолько же мы и глупы!
|
15.02.2009, 00:57 | #6 |
Форумчанин
Регистрация: 24.01.2009
Сообщений: 113
|
То что макрос находится в состоянии вызванном кодом
StartingCheking = True Do While StartingCheking = True 'бесконечный цикл ну и понимат когда процесс останвлен |
15.02.2009, 00:58 | #7 |
Форумчанин
Регистрация: 24.01.2009
Сообщений: 113
|
|
15.02.2009, 01:09 | #8 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Всё можно сделать гораздо проще:
Код:
При остановке макроса в строке состояния Excel будет зафиксировано время останова макроса.
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 17.08.2011 в 20:11. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Визуализация работы макроса | Gawwws | Microsoft Office Excel | 24 | 01.09.2010 18:16 |
Визуализация сигнала с аудио выхода | AXiUS | Мультимедиа в Delphi | 4 | 29.01.2009 12:37 |
Запуск макроса с параметрами из другого макроса | Saladin | Microsoft Office Excel | 2 | 19.01.2009 09:43 |
BASS Визуализация | Garacio_cain | Мультимедиа в Delphi | 2 | 14.08.2008 00:19 |
визуализация алгоритма | Alar | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 30.10.2006 14:10 |