Подождите или задержите в VBA
Есть много случаев, когда таймер может быть полезен в Excel, вот один из способов, который можно попробовать:
| 1234 | Sub MyTimer ()Application.Wait Now + TimeValue ("00:00:05")MsgBox («5 секунд»)Конец подписки |
Пара использований таймер в Excel VBA код приостановки и измерение прошедшего времени. Следующее приведет вас к соответствующему месту, где я разместил пример каждого использования:
1. Приостановите выполнение кода на желаемое время с помощью Application.Wait (имитируя таймер).
ссылка: Скрыть Excel
2. Измерьте прошедшее время с помощью таймера в VBA.
ссылка: Код сравнительного анализа
Ожидание или задержка в доступе VBA
Вы также можете использовать описанные выше методы в Access VBA. Например, вам может быть интересно узнать, сколько времени занимает перемещение по набору записей.
| 123456789101112131415 | Sub LoopThroughRecords ()Тусклый счет до тех пор, покаDim BenchMark как двойнойBenchMark = Таймер'Начало кода для тестированияУстановите dbs = CurrentDbУстановите rst = dbs.OpenRecordset ("tblInvoices", dbOpenDynaset)С первойДо тех пор, пока .EOF = True.MoveNextПетляКонец с'Конец кода для тестированияMsgBox «Потребовалось» и Таймер - BenchMark и «Зацикливание в секундах»Конец подписки |
