Cómo usar eventos en tiempo y eventos de pulsación de teclas en Excel 2016 VBA

En este ejemplo, se utiliza el método OnTime del objeto Application. Este método toma dos argumentos: la hora (0,625 o 3:00 pm) y el nombre del procedimiento Sub que se ejecutará cuando se produzca el evento de hora (DisplayAlarm).

Este procedimiento es bastante útil si tiende a estar tan absorto en su trabajo que se olvida de las reuniones y citas. Simplemente configure un evento OnTime para recordarlo.

A la mayoría de las personas les resulta difícil pensar en el tiempo en términos del sistema de numeración de Excel. Por lo tanto, es posible que desee utilizar la función VBA TimeValue para representar la hora. TimeValue convierte una cadena que parece una hora en un valor que Excel puede manejar. La siguiente declaración muestra una manera más fácil de programar un evento para las 3 pm:

Application.OnTime TimeValue ("3:00:00 pm"), "DisplayAlarm"

Si desea programar un evento en relación con la hora actual (por ejemplo, dentro de 20 minutos), puede usar una declaración como esta:

Application.OnTime Now + TimeValue ("00:20:00"), "DisplayAlarm"

También puede usar el método OnTime para ejecutar un procedimiento VBA en un día en particular. Debe asegurarse de que su computadora siga funcionando y de que el libro de trabajo con el procedimiento se mantenga abierto. La siguiente declaración ejecuta el procedimiento DisplayAlarm a las 5 pm del 31 de diciembre de 2016:

Application.OnTime DateValue ("31/12/2016 5:00 pm"), "DisplayAlarm"

Esta línea de código en particular podría ser útil para advertirle que debe irse a casa y prepararse para las festividades de Año Nuevo.

Aquí hay otro ejemplo que usa el evento OnTime. La ejecución de los procedimientos UpdateClock escribe la hora en la celda A1 y también programa otro evento cinco segundos después. Este evento vuelve a ejecutar el procedimiento UpdateClock. El efecto neto es que la celda A1 se actualiza con la hora actual cada cinco segundos. Para detener los eventos, ejecute el procedimiento StopClock (que cancela el evento). Tenga en cuenta que NextTick es una variable de nivel de módulo que almacena la hora del próximo evento.

Atenuar NextTick como fecha
Sub UpdateClock ()
'Actualiza la celda A1 con la hora actual
  ThisWorkbook.Sheets (1) .Range ("A1") = Hora
'Configure el próximo evento dentro de cinco segundos
  NextTick = Now + TimeValue ("00:00:05")
  Application.OnTime NextTick, "UpdateClock"
End Sub
Sub StopClock ()
'Cancela el evento OnTime (detiene el reloj)
  En caso de error, reanudar siguiente
  Application.OnTime NextTick, "UpdateClock",, False
End Sub

Llamar StopClock

Configuración secundaria_OnKey ()
  Application.OnKey "{PgDn}", "PgDn_Sub"
  Application.OnKey "{PgUp}", "PgUp_Sub"
End Sub
Sub PgDn_Sub ()
  En caso de error, reanudar siguiente
  ActiveCell.Offset (1, 0) .Activate
End Sub
Sub PgUp_Sub ()
  En caso de error, reanudar siguiente
  ActiveCell.Offset (-1, 0) .Activate
End Sub

Sub Cancel_OnKey ()
  Application.OnKey "{PgDn}"
  Application.OnKey "{PgUp}"
End Sub

  Application.OnKey "% {F4}", ""