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".
Al ejecutar la macro, la macro "TimerMsg" mostrará un cuadro de mensaje.
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". "TimerMsg" La macro muestra un mensaje de información y llama a "MsgProcedure" después de esperar tres segundos, como se define en el código.
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
Aplicación .OnTime Time, nombre_procedimiento
El tiempo 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 a continuación para obtener el código
Opción Explícita Sub TimerMsg () 'Declarando variable de fecha Dim AlertTime As Date' Visualización del cuadro de mensaje al inicio del temporizador MsgBox "¡La alarma sonará en 3 segundos!" 'Configuración del tiempo del temporizador para 3 segundos después de la hora de activación AlertTime = Now + TimeValue ("00:00:03")' Activación del temporizador y ejecución del MsgProcedure al final de la aplicación del temporizador. OnTime AlertTime, "MsgProcedure" End Sub Sub MsgProcedure () 'Procedimiento de muestra creado para el ejemplo del temporizador MsgBox "Three Seconds is up!" End Sub
Si te gustó este blog, compártelo con tus amigos en Facebook. Además, puede seguirnos en Twitter y Facebook.
Nos encantaría saber de usted, háganos saber cómo podemos mejorar nuestro trabajo y hacerlo mejor para usted. Escríbanos al sitio de correo electrónico