ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Пауза в работе макроса
15 сообщений из 15, страница 1 из 1
Пауза в работе макроса
    #37665536
lu0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lu0
Гость
Вопрос:
хочется в процессе выполнения макроса дать возможность пользователю дополнить данные.
т.е.

считаем-считаем

наткнулись на неверные/неполные данные

предупредили пользователя

ждём пока он не даст нам знать что всё нормально

как оформить это ожидание не прерывая работу скрипта?
...
Рейтинг: 0 / 0
16.02.2012, 16:21
| Ответить | Цитировать | Написать  
Пауза в работе макроса
    #37665562
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: vbnet
1.
Dim CanContinue As Boolean 'глобальная



Код: vbnet
1.
2.
3.
4.
5.
6.
'код....
CanContinue = False
Do Until CanContinue
  DoEvents
Loop
'продолжение кода....


Разрешением продолжения работы скрипта является установка CanContinue в True
...
Рейтинг: 0 / 0
16.02.2012, 16:31
| Ответить | Цитировать | Написать  
Пауза в работе макроса
    #37665861
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Shocker.Pro , опасно... а ну как закроет юзер форму ввода, да так, что CanContinue не установится в True?

Если от юзера нужна достаточно простая реакция - лучше использовать MsgBox/InputBox... иначе я бы открывал форму ввода модально и в качестве флага продолжения использовал её IsLoaded.
...
Рейтинг: 0 / 0
16.02.2012, 18:10
| Ответить | Цитировать | Написать  
Пауза в работе макроса
    #37665885
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Akina,

Я бы вообще разделял макрос на два, но вишь, ТС не хочет.
MsgBox ему не подойдет - юзер должен что-то сделать.

Ну а закрытие формы - это на усмотрение ТС - мы же не знаем его алгоритмов и причин, которые повлекут установку CanContinue
...
Рейтинг: 0 / 0
16.02.2012, 18:18
| Ответить | Цитировать | Написать  
Пауза в работе макроса
    #37666541
lu0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lu0
Гость
2: Shocker.Pro
c DoEvent щас попробую...
разделять макрос на 2 куска - не вариант, иначе придется его дробить кусков на 10+ ибо проверок много

2: Akina
нет никакой формы ввода. есть "потоковая" обработка массива Ексель файлов, если в данных косяк. надо остановиться, дать пользователю заролнить/поправить и пустить "поток" дальше.
...
Рейтинг: 0 / 0
17.02.2012, 09:09
| Ответить | Цитировать | Написать  
Пауза в работе макроса
    #37666563
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
lu0нет никакой формы ввода. есть "потоковая" обработка массива Ексель файлов, если в данных косяк. надо остановиться, дать пользователю заролнить/поправить
Заполнить/поправить что и где? или он посередь раобты твоего макроса должен полезть в листы и править там исходные данные?

Если так - я бы посоветовал стереть к чертям собачьим весь код и начать писАть заново. Но уже по принципу - сначала проверяем все данные, убеждаемся, что есть всё необходимое для расчётов, и только потом запускаем расчёт - который заведомо не придётся прерывать.
...
Рейтинг: 0 / 0
17.02.2012, 09:33
| Ответить | Цитировать | Написать  
Пауза в работе макроса
    #37666579
lu0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lu0
Гость
Akinaон посередь раобты твоего макроса должен полезть в листы и править там исходные данные
абсолютно точно

Akinaсначала проверяем все данные, убеждаемся, что есть всё необходимое для расчётов, и только потом запускаем расчёт - который заведомо не придётся прерывать.
даже если предположить, что Вы меня убедите, я не смогу убедить руководство увеличить время операции вдвое.
согласитесь, 4часа вместо 2х - это сильно
...
Рейтинг: 0 / 0
17.02.2012, 09:45
| Ответить | Цитировать | Написать  
Пауза в работе макроса
    #37666587
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Вашему руководству нужны шашечки?.. а то, что они на тракторе - никого не интересует?
...
Рейтинг: 0 / 0
17.02.2012, 09:50
| Ответить | Цитировать | Написать  
Пауза в работе макроса
    #37666599
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
lu04часа вместо 2х - это сильноа может сократить время до 5 минут?
...
Рейтинг: 0 / 0
17.02.2012, 09:59
| Ответить | Цитировать | Написать  
Пауза в работе макроса
    #37666604
lu0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lu0
Гость
AndreTMВашему руководству нужны шашечки?.. а то, что они на тракторе - никого не интересует?
нужен результат. в приемлимое время.

сравните:
1. после запуска процесса оператор 1-2 раза по сигналу подойдёт и исправит букву в названии - это займёт 2 часа
2. запускается проверка на 2 часа оператор вносит те-же 2 исправления, которых, кстати, может и не быть, а ПОТОМ идёт загрузка ещё на 2 часа ...

а теперь пойдите и убедите "своё" руководство, что теперь благодаря более правильному и логичному коду, на переписку которого, кстати, тоже было потрачено время, господин начальнок будет получать отчёт, с которым ему идти выше на 2 часа пожже.
подсказать куда вас отправят ???
...
Рейтинг: 0 / 0
17.02.2012, 10:01
| Ответить | Цитировать | Написать  
Пауза в работе макроса
    #37666606
lu0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lu0
Гость
Shocker.Prolu04часа вместо 2х - это сильноа может сократить время до 5 минут?
основные временные издержки идут на открытии/закрытии файлов, коих несколько раз по 300-400 штук
...
Рейтинг: 0 / 0
17.02.2012, 10:03
| Ответить | Цитировать | Написать  
Пауза в работе макроса
    #37666646
Дмит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмит
Участник
Макрос на 2 часа это что-то!
Я не знаю Ваши задачи, но думаю надо менять принципы обработки данных и может быть и технологии. На крайний случай уйти от макросов к компилируемому коду. Сугубо моё мнение.
...
Рейтинг: 0 / 0
17.02.2012, 10:31
| Ответить | Цитировать | Написать  
Пауза в работе макроса
    #37666687
lu0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lu0
Гость
ДмитМакрос на 2 часа это что-то!
Я не знаю Ваши задачи, но думаю надо менять принципы обработки данных и может быть и технологии. На крайний случай уйти от макросов к компилируемому коду. Сугубо моё мнение.
абсолюно с Вами согласен ... но пока нет свободного времени на переработку...
вот и "подпиливаю надфилем" чо есть
...
Рейтинг: 0 / 0
17.02.2012, 10:50
| Ответить | Цитировать | Написать  
Пауза в работе макроса
    #37667109
lu0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lu0
Гость
lu02: Shocker.Pro
c DoEvent щас попробую...

попробывал ... всё нормально, только вот Application.OnKey не корректно отрабатывает. Видно, что перехват идёт, но в указанную процедуру не попадает.
...
Рейтинг: 0 / 0
17.02.2012, 13:28
| Ответить | Цитировать | Написать  
Пауза в работе макроса
    #37667140
lu0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lu0
Гость
нашол решение.
всем спасибо
закрывайте
...
Рейтинг: 0 / 0
17.02.2012, 13:38
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Пауза в работе макроса
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=108&tid=2175996]:
 0ms
get settings:
 6ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 36ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 250ms
total:  366ms
созд. / загр.: 366ms
x
x
Закрыть


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