Jak používat události OnTime a události stisknutí klávesy v Excelu 2016 VBA

V tomto příkladu je použita metoda OnTime objektu Application. Tato metoda používá dva argumenty: čas (0,625 nebo 15:00) a název procedury Sub, která se má spustit, když dojde k časové události (DisplayAlarm).

Tento postup je docela užitečný, pokud máte tendenci se do práce tak zamotat, že zapomínáte na schůzky a schůzky. Stačí nastavit událost OnTime, která se vám připomene.

Pro většinu lidí je obtížné uvažovat o čase z hlediska systému číslování v Excelu. Proto můžete chtít použít funkci VBA TimeValue k vyjádření času. TimeValue převede řetězec, který vypadá jako čas, na hodnotu, kterou Excel zvládne. Následující prohlášení ukazuje jednodušší způsob, jak naprogramovat událost na 15:00:

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

Pokud chcete naplánovat událost vzhledem k aktuálnímu času (například za 20 minut), můžete použít následující příkaz:

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

Ke spuštění procedury VBA v určitý den můžete také použít metodu OnTime. Musíte se ujistit, že váš počítač stále běží a že sešit s postupem zůstává otevřený. Následující prohlášení spouští proceduru DisplayAlarm v 17:00 dne 31. prosince 2016:

Application.OnTime DateValue(“31. 12. 2016 17:00”), “DisplayAlarm”

Tento konkrétní řádek kódu by se mohl hodit, aby vás upozornil, že musíte jít domů a připravit se na silvestrovské oslavy.

Zde je další příklad, který používá událost OnTime. Provedení procedur UpdateClock zapíše čas do buňky A1 a také naprogramuje další událost o pět sekund později. Tato událost znovu spustí proceduru UpdateClock. Čistým efektem je, že buňka A1 je aktualizována aktuálním časem každých pět sekund. Chcete-li zastavit události, proveďte proceduru StopClock (která zruší událost). Všimněte si, že NextTick je proměnná na úrovni modulu, která ukládá čas pro další událost.

Ztlumit Další Označte jako datum
Sub UpdateClock()
' Aktualizuje buňku A1 aktuálním časem
  ThisWorkbook.Sheets(1).Rozsah(“A1”) = Čas
Nastavte další událost za pět sekund
  NextTick = Now + TimeValue(“00:00:05”)
  Application.OnTime NextTick, „UpdateClock“
End Sub
Sub StopClock()
' Zruší událost OnTime (zastaví hodiny)
  Při chybě pokračovat dále
  Application.OnTime NextTick, “UpdateClock”, , False
End Sub

Zavolejte StopClock

Sub Setup_OnKey()
  Application.OnKey „{PgDn}“, „PgDn_Sub“
  Application.OnKey „{PgUp}“, „PgUp_Sub“
End Sub
Sub PgDn_Sub()
  Při chybě pokračovat dále
  ActiveCell.Offset(1, 0).Aktivovat
End Sub
Sub PgUp_Sub()
  Při chybě pokračovat dále
  ActiveCell.Offset(-1, 0).Aktivovat
End Sub

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

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