Excel VBA教程:OnKey方法

当按特定键或特定的组合键时运行指定的过程。

expression.OnKey(Key, Procedure)

expression   必需。该表达式返回一个 Application对象。

Key   String 类型,必需。用于表示要按的键的字符串。

Procedure   Variant 类型,可选。表示要运行的过程名称的字符串。如果 Procedure参数为空文本 (""),则按 Key 时不发生任何操作。OnKey方式将更改击键在 Microsoft Excel 中产生的正常结果。如果省略 Procedure参数,则 Key 产生 Microsoft Excel 中的正常结果,同时清除先前使用 OnKey方法所做的特殊击键设置。

说明

Key参数可指定任何与 Alt、Ctrl 或 Shift 组合使用的键,还可以指定这些键的任何组合。每一个键可由一个或多个字符表示,比如"a" 表示字符 a,或者"{ENTER}" 表示 Enter。

若要指定按对应的键(例如 Enter 或 Tab)时的非显示字符,请使用下表所列出的代码。表中的每一代码代表键盘上的一个对应键。

代码
{BACKSPACE} or{BS} Backspace
{BREAK} Break
Caps Lock {CAPSLOCK}
{CLEAR} Clear
Delete 或 Del {DELETE} 或 {DEL}
End {END}
~(波形符) Enter
Enter(数字小键盘) {ENTER}
{ESCAPE} 或 {ESC} Esc
{F1} 到 {F15} F1 到 F15
{HELP} Help
Home {HOME}
{INSERT} Ins
Num Lock {NUMLOCK}
Page Down {PGDN}
{PGUP} Page Up
{RETURN} Return
{SCROLLLOCK} Scroll Lock
Tab {TAB}
向上键 {UP}
{DOWN} 向下键
{RIGHT} 向右键
向左键 {LEFT}

还可指定与 Shift 和/或 Ctrl 和/或 Alt 组合使用的键。若要指定与其他键组合使用的键,可使用下表。

要组合的键 在键代码之前添加
Shift +(加号)
Ctrl ^(插入符号)
Alt %(百分号)

若为特定字符指定处理过程(如 +、^、% 等等),可将此字符用圆括号括起。有关详细信息,请参阅示例。

Excel VBA教程:OnKey方法·示例

本示例为 Ctrl+ 加号分配“InsertProc”过程,并为 Shift+Ctrl+ 向右键分配“SpecialPrintProc”过程。


Application.OnKey "^{+}", "InsertProc"
Application.OnKey "+^{RIGHT}", "SpecialPrintProc"

本示例将 Shift+Ctrl+ 向右键重新设为正常的含义。


Application.OnKey "+^{RIGHT}"

本示例将 Shift+Ctrl+ 向右键设为不发生任何操作。


Application.OnKey "+^{RIGHT}", ""

上页:Excel VBA教程:OneColorGradient方法 下页:Excel VBA教程:OnRepeat方法

Excel VBA教程:OnKey方法

Excel VBA教程:OnRepeat方法 Excel VBA教程:OnTime方法
Excel VBA教程:OnUndo方法 Excel VBA教程:Open方法
Excel VBA教程:OpenDatabase方法 Excel VBA教程:OpenLinks方法
Excel VBA教程:OpenText方法 Excel VBA教程:OpenXML方法
Excel VBA教程:Parse方法 Excel VBA教程:Paste方法
Excel VBA教程:PasteSpecial方法 Excel VBA教程:Patterned方法
Excel VBA教程:PickUp方法 Excel VBA教程:PieGroups方法
Excel VBA教程:PivotCache方法 Excel VBA教程:PivotCaches方法
Excel VBA教程:PivotFields方法 Excel VBA教程:PivotItems方法
Excel VBA教程:PivotSelect方法 Excel VBA教程:PivotTables方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号