Функции таймера VBA возвращают количество секунд, прошедших с полуночи текущего дня (возвращается как тип данных Single).
Использование функции таймера VBA
Следующий код покажет вам, как использовать функцию таймера VBA, чтобы определить, сколько секунд прошло с полуночи на момент выполнения кода:
| 12345678 | Sub UsingTheVBATimerFunction ()Тусклые секунды, начиная с одиночногоsecondsSince = Таймер ()Отладка. Печать секундКонец подписки |
Результат:
Используйте таймер VBA, чтобы узнать фактическое время
Вы можете преобразовать секунды, возвращаемые функцией Timer, в формат чч: мм: сс, чтобы увидеть фактическое время, используя следующий код:
| 123456789101112131415 | Sub GettingTheActualTime ()Тусклые секунды, начиная с одиночногоDim cTime As DoubleУменьшить фактическое время как вариантsecondsSince = Таймер ()cTime = secondsSince / (86400)theActualTime = Format (cTime, «чч: мм: сс»)MsgBox "Время, прошедшее с полуночи в секундах:" & "" & секундыSince & vbNewLine & _"Фактическое время:" & "" & theActualTimeКонец подписки |
Результат:
Время для раздела кода VBA
Если вы хотите протестировать переписанный код или обсудить «более быстрые» методы в VBA, вы можете использовать встроенный таймер VBA. Установка переменной, равной таймеру в начале вашего кода, и вычитание ее из таймера в конце даст вам хорошая оценка сколько времени требуется для выполнения фрагмента кода.
На производительность, помимо прочего, могут влиять другие программы, запущенные или пытающиеся запустить, пока ваш макрос активен.
В следующем примере было показано, сколько времени потребуется, чтобы записать слово «тест» в ячейку A1 на Листе 1 полмиллиона раз. На моей машине это заняло 21 секунду.
| 123456789101112131415161718 | Sub BenchMark ()Тусклый счет до тех пор, покаDim BenchMark как двойнойBenchMark = Таймер'Начало кода для тестированияДля Count = от 1 до 500000Sheet1.Cells (1, 1) = "тест"Следующий счет'Конец кода для тестированияТаймер MsgBox - BenchMarkКонец подписки |
Если ваш код работает медленно, попробуйте ускорить его, отключив обновление экрана. Чтобы экран Excel оставался активным во время работы таймера, мы можем вставить в код метод DoEvents.
