在表中如何响应键盘事件？（问题已解决）

盐丁

如当在表sheet1中按键A时，弹出一对话框？

[此贴子已经被作者于2007-3-19 17:25:25编辑过]

盐丁

呵呵总算找到了：

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

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

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

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

示例

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

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

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

Application.OnKey "+^{RIGHT}"
  

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

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

[此贴子已经被作者于2006-2-5 10:45:03编辑过]

渔舟怅晚

那这些代码用在什么地方才起作用呢？

man417022791

Private Sub ItemCode_KeyDown(...)

    If KeyCode = vbKeyReturn Then
                 Call Run_Click    '
   
End Sub

添加回车响应按钮,仅供参考

ndragon329

1 在"Workbook_Open"中添加语句：
Application.OnKey "{CAPSLOCK}", "CapsShow"

2 在"Workbook_BeforeClose"中添加语句：
Application.OnKey "{CAPSLOCK}", ""

这样即可实现如下效果：当你在工作簿中按下"Caps Lock"键时，执行函数"CapsShow"。

zslyyy

收藏以备学习

aliCT

收藏了有时间再学习

xvjiex

盐丁 发表于 2006-2-5 10:44
呵呵总算找到了：OnKey 方法参阅应用于示例特性当按特定键或特定的组合键时运行指定的过程。expression.OnK ...

感谢楼主分享键盘事件！