类事件方法

🧪 示例用法

Sub OnTime方法()

  Application.OnTime TimeValue("16:29:00"), "提醒"

  MsgBox "已设置"

End Sub

Sub 提醒()

Beep

MsgBox "该吃饭了"

End Sub

Sub 启动循环提醒()
    Application.OnTime Now + TimeValue("00:01:00"), "提醒"
End Sub

Sub 提醒()
    Beep
    MsgBox "1分钟过去了！"
    启动循环提醒 ' 再次设置下一次提醒
End Sub

方法名	功能说明
Application.OnKey	指定按键时触发某个过程（宏）
Application.OnTime	指定时间触发某个过程
Application.OnUndo	设置“撤销”菜单名称与对应宏
Application.OnRepeat	设置“重复”菜单名称与宏
Application.OnCalculate	设置在工作簿重新计算后执行的宏（较少用）

⌨️ Application.OnKey 常用按键代码

按键说明	代码表示法
A 到 Z	"A" 到 "Z"
0 到 9	"0" 到 "9"
Enter	"~" 或 "{ENTER}"
Esc	"{ESC}"
Tab	"{TAB}"
Backspace	"{BACKSPACE}"
Delete	"{DELETE}"
Insert	"{INSERT}"
Space	" "（空格）
Arrow keys	"{UP}", "{DOWN}", "{LEFT}", "{RIGHT}"
Function keys	"{F1}" 到 "{F12}"
Ctrl	使用 ^ 代表（如：^A = Ctrl+A）
Shift	使用 + 代表（如：+A = Shift+A）
Alt	使用 % 代表（如：%A = Alt+A）
组合键示例	^+\{F8\} 表示 Ctrl+Shift+F8