Red de conocimiento informático - Material del sitio web - Cómo usar el temporizador en Excel

Cómo usar el temporizador en Excel

Existe un método en Office llamado application.ontime. La función específica es la siguiente:

expresión.OnTime(EarliestTime, Procedimiento, LatestTime, Schedule)

Si desea obtener más información, consulte la Ayuda de Excel.

Esta función se utiliza para programar un proceso para que se ejecute en un momento específico en el futuro (puede ser un momento específico en una fecha determinada o después de un período de tiempo específico). A través de esta función, podemos escribir nuestro propio programa de cronometraje en Excel. Aquí hay dos ejemplos para ilustrarlo.

1. Mostrar un cuadro de diálogo a las 17:00:00 horas.

Sub Run_it()

Application.OnTime TimeValue("17:00:00"), "Show_my_msg"

'Configura el temporizador a las 17:00 :00 Activar, ejecutar Show_my_msg después de la activación.

End Sub

Sub Show_my_msg()

msg = MsgBox("¡Son las 17:00:00!", vbInformation, "Información personalizada")

End Sub

2. Imita la "macro de guardado automático" en Excel 97 y aparece aquí cada 5 segundos

Sub auto_open()

<. p>MsgBox "¡Bienvenido, en este documento, aparecerá un mensaje para guardar cada 5 segundos!", vbInformation, "¡Preste atención!"

Llamar al runtimer 'Se ejecuta automáticamente al abrir el documento

End Sub

Sub runtimer()

Application.OnTime Now TimeValue("00:00:05"), "saveit"

'Now TimeValue ("00:15:00") especifica que el proceso Saveit comienza a ejecutarse 5 segundos después de la hora actual.

End Sub

Sub SaveIt()

msg = MsgBox("Amigo, has estado trabajando durante mucho tiempo, ¿quieres guardarlo ahora? ?" amp; Chr( 13) _

amp; "Seleccione Sí: Guardar inmediatamente" amp; Chr(13) _

amp; "Seleccione No: No guardar temporalmente" amp; Chr(13) _

amp; "Seleccione Cancelar: este mensaje no volverá a aparecer", vbYesNoCancel 64, "¡Descanse!")

'Solicita el usuario para guardar el documento actualmente activo.

Si msg = vbYes Entonces ActiveWorkbook. Guardar De lo contrario Si msg = vbCancel Entonces Salga de Sub

Llamar al runtimer 'Si el usuario no elige cancelar, llame al Runtimer nuevamente

End Sub

Los anteriores son solo dos ejemplos simples. Si está interesado, puede usar la función Application.Ontime para escribir programas de cronometraje más útiles.