Как сделать перерыв с помощью макроса
Иногда вам нужно, чтобы макрос ждал определенное время. Пример отображения текста в строке состояния в этом выводе также содержит такую очередь.
В случае циклов ожидания, которые состоят из пустых циклов For-Next, существует проблема, заключающаяся в том, что эти циклы занимают разное время в зависимости от скорости вычислений в разных системах. Цикл выполняется быстро на быстром ПК; в медленной системе на это требуется больше времени.
Чтобы улучшить очереди во всех системах, вы можете Ждать- Используйте команду. Это предназначено для приостановки выполнения макроса до определенного момента времени.
Используя параметры таким образом, чтобы текущее время сочеталось с желаемым периодом ожидания, вы можете использовать команду ожидания для включения пауз любой длины. Следующий макрос показывает, как это сделать:
Sub WaitAb ()
Application.Wait (Now + TimeValue ("00:00:10"))
Конец подписки
Введите желаемое время ожидания в качестве параметра для команды TimeValue. В примере используется время ожидания 10 секунд.
Чтобы подождать определенное количество часов, измените число в первой позиции; для минут измените число после первого двоеточия. Вы управляете секундами, используя последнее число.