VBA第三十四期 VBA中怎么用OnKey事件

我们在VBA设计中经常需要使用到OnKey方法，特别是在窗口设计中比如我们想用到翻页按键，则就可以来建立一个OnKey事件。Setup_OnKey过程运行以后，就会达到最终效果，按PgDn键会将指针下移一行，按PgUp键会将指针上移一行。使用PgUp和PgDn的按键组合不受影响。所以，诸如Curl+PgDn的组合键仍会激活工作簿中的下一个工作表。该事件重新指定了PgDn和PgUp键。执行

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

在上面的示例中，使用On Error Resume Next语句来忽略生成的所有错误。例如，如果活动单元格位于第一行，那么上移一行会引起错误。同样，如果活动工作表是一个图表工作表，那么也会发生错误，因为在图表工作表中没有活动单元格。当然程序结束前我们还要编写一个过程，将OnKey事件取消，将这些按键恢复到正常的功能。

OnKey事件的按键代码表格如下：

按键	代码
BacAspaceBacAspace	(BACKSPACE)或(BS)
BroakBroak	(BREAK)
Caps LockCaps Lock	(CAPSLOCK)
Delete or DelDelete or Del	(DELETE)或(DEL)
向下請头	(DOWN)
End	(END)
Emter	~(领化符号)
Enter(数字健区中)	(ENTER)
Escape	(ESCAPE)或(ESC)
Home	(HOME)
Ins	(INSERT)
向左薪头	(LEFT)
NumLock	(NUMLOCK)
Page Down	(PGDN)
Page Up	(PGUP)
向右箭头	(RIGHT)
Scroll Lock	(SCROLLLOCK)
Tab	(TAB)
向上箭头	(UP)
F1至F15	(F1)至(F15)

有时候我们为了避免习惯性按键带来误操作，我们还可指定Shift、Ctrl和Alt等组合键。要指定将某个键与其他键组合使用，则使用下列符号：

Shift:加号（＋）Ctrl:脱字符号（＾）Alt:百分号（％）

例如，要给Ctrl+Shift+A组合键指派一个过程，则使用下列代码：

Application. OnKey "^+A", "SubName"

要给Alt+F11组合键指派一个过程（通常用来切换到VBE窗口），则使用下列代码：

Application. OnKey "^ (F11) ", "SubName"