作者：绿色风
分类：
时间：2022-08-17
浏览：105
楼主
zzmxy |
Q: 我们经常用到SendKeys事件，但还有一个OnKey事件，这个有什么作用呢，听说可以用来自定义快捷键，要怎么用？
A: OnKey事件的语法如下，就是允许我们指定相应的按键，来运行指定的过程，
如下示例，我们可以用Ctrl+M键，代替Ctrl+PageDown，向右循环切换工作表；用Ctrl+N键，代替Ctrl+PageUp，向左循环切换工作表；
主过程放在WorkBook_Open()中，让工作簿打开时，即将指定的快捷键生效，然后在Module中放置两个用于切换的子过程：
如果要解除这一自定义的快捷键方式，可以下语句改为Application.OnKey "^m", "" : Application.OnKey "^n", ""- Private Sub Workbook_Open()
- Application.OnKey "^m", "ActNext"
- Application.OnKey "^n", "ActPre"
- End Sub
- Sub ActNext()
- i = IIf(ActiveSheet.Index <> Sheets.Count, ActiveSheet.Index + 1, 1)
- Sheets(i).Activate
- End Sub
- Sub ActPre()
- i = IIf(ActiveSheet.Index <> 1, ActiveSheet.Index - 1, Sheets.Count)
- Sheets(i).Activate
- End Sub
 OnKey Sample.rar
|
2楼
成就滋味 |
谢谢分享 |
3楼
后知 |
这个还是不太懂 感觉有点复杂 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一