Ejecutar comando / subprocedimiento usando el temporizador VBA

Tabla de contenido

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

Va a ayudar al desarrollo del sitio, compartir la página con sus amigos

wave wave wave wave wave