En este artículo, crearemos una macro para llamar a otra macro o ejecutar un comando después de intervalos de tiempo definidos.

Para ejecutar la macro, haga clic en el botón «Iniciar temporizador».

ArrowStartTimer

Al ejecutar la macro, la macro «TimerMsg» mostrará un cuadro de mensaje.

ArrowStartingMessage

Cuando un usuario hace clic en el botón «Aceptar», tres segundos después, se llamará a la macro «MsgProcedure». La macro «MsgProcedure» mostrará un cuadro de mensaje.

Explicación lógica

En este ejemplo, hemos creado dos macros «TimerMsg» y «MsgProcedure». La macro «TimerMsg» ** muestra un mensaje de información y llama a «MsgProcedure» después de esperar tres segundos, como se define en el código.

ArrowAfterRunningMacro

Explicación del código

Método Application.OnTime

El método Application.OnTime se utiliza para programar un procedimiento para que se ejecute en intervalos de tiempo definidos.

Sintaxis

Application .OnTime Time, Procedure_name Time especifica el intervalo de tiempo en el que se debe ejecutar el procedimiento.

Nombre_procedimiento define el nombre del procedimiento.

Hemos utilizado el método Application.onTime para programar la macro «MsgProcedure».

Siga el código a continuación

Option Explicit

Sub TimerMsg()

'Declaring Date variable

Dim AlertTime As Date

'Displaying message box at the start of the timer

MsgBox "The alarm will go off in 3 seconds!"

'Setting timer time for 3 seconds after the activation time

AlertTime = Now + TimeValue("00:00:03")

'Activating the timer and running the MsgProcedure at the end of the timer

Application.OnTime AlertTime, "MsgProcedure"

End Sub

Sub MsgProcedure()

'Sample procedure created for timer example

MsgBox "Three Seconds is up!"

End Sub

Si te gustó este blog, compártelo con tus amigos en Facebook y Facebook.

Nos encantaría saber de usted, háganos saber cómo podemos mejorar nuestro trabajo y hacerlo mejor para usted. Escríbanos a [email protected]