Содержание
Описание таймера
Возвращает значение Single, представляющее количество секунд, прошедших с полуночи.
Примеры простых таймеров
Вот простой пример таймера:
| 123 | Sub Timer_Example ()Таймер MsgBoxКонец подписки |
Синтаксис таймера
В редакторе VBA - синтаксис функции таймера.
| 1 | Таймер |
Функция Timer не содержит аргументов:
Примеры функции таймера Excel VBA
Используя следующий пример кода, попробуйте сравнить sec1 и sec2.
Тогда мы можем легко узнать значение функции таймера.
| 123456789101112131415161718192021222324252627 | Sub Timer_Example1 ()Dim sec1 как одиночныйDim sec2 как долгоsec1 = Таймерsec2 = GetSecondsFromMidnightMsgBox "sec1 =" & sec1 & vbCrLf & _"sec2 =" & sec2Конец подпискиФункция GetSecondsFromMidnight () As LongDim dt As DateDim h как целое числоDim m As IntegerDim s как целое числоdt = Сейчасh = час (dt)m = Минута (dt)s = секунда (dt)мин = ч * 60 + мсек = мин * 60 + секGetSecondsFromMidnight = секундыКонечная функция |
Используя функцию таймера, мы можем измерить, сколько времени потребуется для запуска раздела кода VBA.
| 1234567891011121314151617 | Sub Timer_Example2 ()Тусклый startSec как одиночныйDim endSec как одиночныйТусклый я до тех пор, покаstartSec = Таймер'Начало кода VBA для тестированияДля i = от 1 до 500000DoEventsДалее я'Конец кода VBA для тестированияendSec = ТаймерMsgBox "Потребовалось" & CStr (endSec - startSec) & "s."Конец подписки |
