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)
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.