VBA键盘事件Application.OnKey只能操作一次

头发强

大家好，我用以下代码执行键盘操作，为什么只能第一次有效呢，后面再按这些键盘就不起作用了（得用鼠标点击一下其它单元格才能重复执行），请问各各位大师有什么办法能解决这个问题吗？


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.OnKey "^4", "OKK"
    Application.OnKey "+^{I}", "OKKQ"
End Sub

——————————————————————————————

Sub OKK()
    MsgBox "Ctrl+4"
End Sub
——————————————————————————————
Sub OKKQ()
    MsgBox "Shift+Ctrl+I"
End Sub

而且这两个程序中
    Application.OnKey "^4", "OKK"
    Application.OnKey "+^{I}", "OKKQ"

只有第一个被操作的键盘才会被执行，后面操作的不管是本按键程序还是其它按键程序都不会被执行

taller

如果是希望执行代码，那么直接调用过程就可以了
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Call OKK
    Call OKKQ
End Sub

王彦彬

VBA没有键盘事件，你这是活动单元格改变事件，不是键盘事件，vba检测键盘按下了哪个按键要用API函数或者用键盘钩子（HOOK）

头发强

taller 发表于 2023-1-3 01:35
如果是希望执行代码，那么直接调用过程就可以了
Private Sub Worksheet_SelectionChange(ByVal Target As  ...

我是要用键盘事件来执行代码啊？

头发强

王彦彬 发表于 2023-1-3 03:15
VBA没有键盘事件，你这是活动单元格改变事件，不是键盘事件，vba检测键盘按下了哪个按键要用API函数或者用 ...

我这个代码就是键盘事件啊，现在是能执行键盘操作的，我的问题是它为什么只能执行一次就失效了，不能重复执行

taller

头发强 发表于 2023-1-4 21:53
我是要用键盘事件来执行代码啊？

使用快捷键执行代码，那么OnKey代码只需要在工作簿的Open事件中运行一次就可以了

代码本身没有问题，上传你的文件，大家可以测试一下

王彦彬

头发强 发表于 2023-1-4 21:55
我这个代码就是键盘事件啊，现在是能执行键盘操作的，我的问题是它为什么只能执行一次就失效了，不能重复 ...

你应该在工具栏的开发选项页的图标（宏）里面直接为代码直接指定快捷键

王彦彬

头发强 发表于 2023-1-4 21:55
我这个代码就是键盘事件啊，现在是能执行键盘操作的，我的问题是它为什么只能执行一次就失效了，不能重复 ...

你这是为宏指定组合快捷键，快捷键不等于键盘事件，宏的快捷键不能是"CTRL+C"之类的功能性组合键，但是键盘事件可以在按"CTRL+C"复制的时候既不影响复制还调用宏

键盘事件是根据你按下了不同的单一的按键执行不同的宏
比如在"A1"单元格输入 (1+2+3)/4*5 ，按下"ENTER"后调用自定义函数在"B1"单元格显示结果
或者按 "1",切换到Sheet"一月",按 "2"切换到Sheet"二月"，或者按回车键执行指定宏

清风客98

代码没问题啊，
你的Worksheet_SelectionChange设置了2个快捷键，然后在表格中，按下快捷键，是可以运行你的宏的
注意你的OKK()，还有另一个要写到模块中。
另外就是好像只能在表格中按下快捷才有效。