Las funciones del temporizador de VBA devuelven el número de segundos que han transcurrido desde la medianoche del día actual (devuelto como un tipo de datos único).
Uso de la función de temporizador de VBA
El siguiente código le mostrará cómo usar la función de temporizador de VBA para determinar cuántos segundos han pasado, desde la medianoche, en el momento en que se ejecuta el código:
| 12345678 | Sub UsingTheVBATimerFunction ()Segundos tenues desde como solterosecondsSince = Temporizador ()Debug.Print segundosDesdeEnd Sub |
El resultado es:
Utilice el temporizador de VBA para obtener la hora real
Puede convertir los segundos devueltos por la función Temporizador al formato hh: mm: ss para ver la hora real utilizando el siguiente código:
| 123456789101112131415 | Sub GettingTheActualTime ()Segundos tenues desde como solteroDim cTime como dobleAtenuar elActualTime como variantesecondsSince = Temporizador ()cTime = segundos desde / (86400)theActualTime = Formato (cTime, "hh: mm: ss")MsgBox "El tiempo transcurrido desde la medianoche en segundos es" & "" & secondsSince & vbNewLine & _"La hora real es:" & "" & theActualTimeEnd Sub |
El resultado es:
Hora de una sección del código VBA
Si está buscando comparar código reescrito o debatir métodos "más rápidos" en VBA, puede usar el temporizador incorporado de VBA. Establecer una variable igual al temporizador al comienzo de su código y restar esto del temporizador al final le dará una buen estimado de cuánto tiempo tarda en ejecutarse un fragmento de código.
El rendimiento puede verse afectado por otros programas que se ejecutan o intentan ejecutarse mientras su macro está activa, entre otras cosas.
El siguiente ejemplo se usó para ver cuánto tiempo tomaría escribir la palabra "prueba" en la celda A1 de la Hoja1 medio millón de veces. Tomó 21 segundos en mi máquina.
| 123456789101112131415161718 | Sub BenchMark ()Dim Count As LongDim BenchMark como dobleBenchMark = Temporizador'Inicio del código para probarPara recuento = 1 a 500000Sheet1.Cells (1, 1) = "prueba"Siguiente recuento'Fin del código para probarTemporizador MsgBox - BenchMarkEnd Sub |
Si su código se está ejecutando lentamente, intente acelerarlo desactivando la actualización de la pantalla. Para mantener activa la pantalla de Excel mientras se ejecuta el temporizador, podemos insertar el método DoEvents en el código.
