Tabla de contenido
Descripción del temporizador
Devuelve un valor único que representa el número de segundos que han transcurrido desde la medianoche.
Ejemplos de temporizadores simples
Aquí hay un ejemplo simple de temporizador:
123 | Sub Timer_Example ()Temporizador MsgBoxEnd Sub |
Sintaxis del temporizador
En el Editor de VBA, la sintaxis de la función Timer.
1 | Temporizador |
La función Timer no contiene argumentos:
Ejemplos de función de temporizador de Excel VBA
Con el siguiente ejemplo de código, intente comparar sec1 y sec2.
Entonces, podemos conocer fácilmente el significado de la función de temporizador.
123456789101112131415161718192021222324252627 | Sub Timer_Example1 ()Dim sec1 como sencilloDim sec2 tan largosec1 = Temporizadorsec2 = GetSecondsFromMidnightMsgBox "sec1 =" & sec1 & vbCrLf & _"sec2 =" & sec2End SubFunción GetSecondsFromMidnight () As LongDim dt como fechaDim h como enteroDim m como enteroDim s como enterodt = Ahorah = Hora (dt)m = Minuto (dt)s = Segundo (dt)minutos = h * 60 + msegundos = minutos * 60 + sGetSecondsFromMidnight = segundosFunción final |
Usando la función de temporizador, podemos medir cuánto tiempo tomaría ejecutar una sección de código VBA.
1234567891011121314151617 | Sub Timer_Example2 ()Dim startSec como singleDim endSec como sencilloDim i tan largostartSec = Temporizador'Inicio del código VBA para probarPara i = 1 a 500000DoEventsSiguiente yo'Fin del código VBA para probarendSec = TemporizadorMsgBox "Tomó" & CStr (endSec - startSec) & "s".End Sub |