Como usar eventos OnTime e Keypress Events no Excel 2016 VBA

Neste exemplo, o método OnTime do objeto Aplicativo é usado. Este método leva dois argumentos: a hora (0,625 ou 3:00 pm) e o nome do procedimento Sub a ser executado quando o evento de hora ocorrer (DisplayAlarm).

Este procedimento é bastante útil se você tende a ficar tão envolvido com o trabalho que se esquece das reuniões e dos compromissos. Basta definir um evento OnTime para se lembrar.

A maioria das pessoas acha difícil pensar no tempo em termos do sistema de numeração do Excel. Portanto, você pode querer usar a função VBA TimeValue para representar a hora. TimeValue converte uma string que se parece com uma hora em um valor que o Excel pode manipular. A declaração a seguir mostra uma maneira mais fácil de programar um evento para as 15h:

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

Se quiser agendar um evento em relação ao horário atual (por exemplo, daqui a 20 minutos), você pode usar uma declaração como esta:

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

Você também pode usar o método OnTime para executar um procedimento VBA em um determinado dia. Você deve se certificar de que seu computador continue funcionando e que a pasta de trabalho com o procedimento seja mantida aberta. A seguinte declaração executa o procedimento DisplayAlarm às 17h do dia 31 de dezembro de 2016:

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

Esta linha de código específica pode ser útil para avisá-lo de que você precisa ir para casa e se preparar para as festividades da véspera de Ano Novo.

Aqui está outro exemplo que usa o evento OnTime. Executar os procedimentos UpdateClock grava a hora na célula A1 e também programa outro evento cinco segundos depois. Este evento executa novamente o procedimento UpdateClock. O efeito líquido é que a célula A1 é atualizada com a hora atual a cada cinco segundos. Para interromper os eventos, execute o procedimento StopClock (que cancela o evento). Observe que NextTick é uma variável de nível de módulo que armazena a hora do próximo evento.

Dim NextTick As Date
Sub UpdateClock ()
'Atualiza a célula A1 com a hora atual
  ThisWorkbook.Sheets (1) .Range (“A1”) = Time
'Configure o próximo evento daqui a cinco segundos
  NextTick = Now + TimeValue (“00:00:05”)
  Application.OnTime NextTick, “UpdateClock”
End Sub
Sub StopClock ()
'Cancela o evento OnTime (para o relógio)
  On Error Resume Next
  Application.OnTime NextTick, “UpdateClock”,, False
End Sub

Call StopClock

Sub Setup_OnKey ()
  Application.OnKey “{PgDn}”, “PgDn_Sub”
  Application.OnKey “{PgUp}”, “PgUp_Sub”
End Sub
Sub PgDn_Sub ()
  On Error Resume Next
  ActiveCell.Offset (1, 0) .Activate
End Sub
Sub PgUp_Sub ()
  On Error Resume Next
  ActiveCell.Offset (-1, 0) .Activate
End Sub

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

  Application.OnKey “% {F4}”, ““