So verwenden Sie OnTime-Ereignisse und Tastendruckereignisse in Excel 2016 VBA

In diesem Beispiel wird die OnTime-Methode des Application-Objekts verwendet. Diese Methode benötigt zwei Argumente: die Uhrzeit (0,625 oder 15:00 Uhr) und den Namen der Sub-Prozedur, die ausgeführt werden soll, wenn das Zeitereignis eintritt (DisplayAlarm).

Dieses Verfahren ist sehr nützlich, wenn Sie dazu neigen, sich so in Ihre Arbeit einzulassen, dass Sie Meetings und Termine vergessen. Legen Sie einfach ein OnTime-Ereignis fest, um sich selbst daran zu erinnern.

Den meisten Menschen fällt es schwer, sich die Zeit in Bezug auf das Excel-Nummerierungssystem vorzustellen. Daher möchten Sie möglicherweise die VBA-Funktion TimeValue verwenden, um die Zeit darzustellen. TimeValue konvertiert eine Zeichenfolge, die wie eine Zeit aussieht, in einen Wert, den Excel verarbeiten kann. Die folgende Anweisung zeigt eine einfachere Möglichkeit, ein Ereignis für 15:00 Uhr zu programmieren:

Application.OnTime TimeValue("15:00:00"), "DisplayAlarm"

Wenn Sie ein Ereignis relativ zur aktuellen Zeit planen möchten (z. B. in 20 Minuten ab jetzt), können Sie eine Anweisung wie diese verwenden:

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

Sie können auch die OnTime-Methode verwenden, um eine VBA-Prozedur an einem bestimmten Tag auszuführen. Sie müssen sicherstellen, dass Ihr Computer weiterläuft und die Arbeitsmappe mit der Prozedur geöffnet bleibt. Die folgende Anweisung führt die DisplayAlarm-Prozedur am 31. Dezember 2016 um 17:00 Uhr aus:

Application.OnTime DateValue("31.12.2016 17:00"), "DisplayAlarm"

Diese spezielle Codezeile könnte sich als nützlich erweisen, um Sie zu warnen, dass Sie nach Hause gehen und sich auf die Silvesterfeierlichkeiten vorbereiten müssen.

Hier ist ein weiteres Beispiel, das das OnTime-Ereignis verwendet. Durch Ausführen der UpdateClock-Prozeduren wird die Uhrzeit in Zelle A1 geschrieben und fünf Sekunden später ein weiteres Ereignis programmiert. Dieses Ereignis führt die UpdateClock-Prozedur erneut aus. Der Nettoeffekt besteht darin, dass Zelle A1 alle fünf Sekunden mit der aktuellen Zeit aktualisiert wird. Um die Ereignisse zu stoppen, führen Sie die StopClock-Prozedur aus (die das Ereignis abbricht). Beachten Sie, dass NextTick eine Variable auf Modulebene ist, die die Zeit für das nächste Ereignis speichert.

Dim NextTick As Date
Unter UpdateClock()
' Aktualisiert Zelle A1 mit der aktuellen Uhrzeit
  ThisWorkbook.Sheets(1).Range(“A1”) = Zeit
' Richte das nächste Event in fünf Sekunden ein
  NextTick = Now + TimeValue(“00:00:05”)
  Application.OnTime NextTick, „UpdateClock“
End Sub
Unter StopClock()
' Bricht das OnTime-Ereignis ab (stoppt die Uhr)
  Bei Fehler Fortsetzen als nächstes
  Application.OnTime NextTick, „UpdateClock“, , False
End Sub

StopClock aufrufen

Unter Setup_OnKey()
  Application.OnKey „{PgDn}“, „PgDn_Sub“
  Application.OnKey „{PgUp}“, „PgUp_Sub“
End Sub
Sub PgDn_Sub()
  Bei Fehler Fortsetzen als nächstes
  ActiveCell.Offset(1, 0).Aktivieren
End Sub
Sub PgUp_Sub()
  Bei Fehler Fortsetzen als nächstes
  ActiveCell.Offset(-1, 0).Aktivieren
End Sub

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

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