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