如何在 Excel 2016 VBA 中使用 OnTime 事件和按鍵事件

在此示例中，使用了 Application 對象的 OnTime 方法。此方法有兩個參數：時間（0.625 或下午 3:00）和時間事件發生時要執行的 Sub 過程的名稱 (DisplayAlarm)。

如果您忙於工作以至於忘記了會議和約會，則此過程非常有用。只需設置一個 OnTime 事件來提醒自己。

大多數人發現很難根據 Excel 編號系統來考慮時間。因此，您可能希望使用 VBA TimeValue 函數來表示時間。TimeValue 將看起來像時間的字符串轉換為 Excel 可以處理的值。以下語句顯示了一種更簡單的方法來為下午 3 點安排事件：

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

如果要相對於當前時間（例如，從現在起 20 分鐘後）安排事件，可以使用如下語句：

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

您還可以使用 OnTime 方法在特定日期運行 VBA 過程。您必須確保您的計算機繼續運行並且包含該過程的工作簿保持打開狀態。以下語句在 2016 年 12 月 31 日下午 5 點運行 DisplayAlarm 程序：

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

這個特殊的代碼行可能會派上用場，警告您需要回家為新年前夜慶祝活動做好準備。

這是使用 OnTime 事件的另一個示例。執行 UpdateClock 過程將時間寫入單元格 A1，並在五秒後編程另一個事件。此事件重新運行 UpdateClock 過程。最終效果是單元格 A1 每五秒更新一次當前時間。要停止事件，請執行 StopClock 過程（取消事件）。請注意，NextTick 是一個模塊級變量，用於存儲下一個事件的時間。

Dim NextTick As Date
子更新時鐘()
' 用當前時間更新單元格 A1
  ThisWorkbook.Sheets(1).Range(“A1”) = 時間
' 從現在起 5 秒後設置下一個事件
  NextTick = Now + TimeValue(“00:00:05”)
  Application.OnTime NextTick, “UpdateClock”
結束子
子停止時鐘()
' 取消 OnTime 事件（停止時鐘）
  出錯時繼續下一步
  Application.OnTime NextTick, “UpdateClock”, , False
結束子

呼叫停止時鐘

子 Setup_OnKey()
  Application.OnKey “{PgDn}”、“PgDn_Sub”
  Application.OnKey “{PgUp}”、“PgUp_Sub”
結束子
子 PgDn_Sub()
  出錯時繼續下一步
  ActiveCell.Offset(1, 0).Activate
結束子
子 PgUp_Sub()
  出錯時繼續下一步
  ActiveCell.Offset(-1, 0).Activate
結束子

子 Cancel_OnKey()
  Application.OnKey “{PgDn}”
  Application.OnKey “{PgUp}”
結束子

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