Part 1：小技巧介绍

1. 创建快捷键主要使用Application.OnKey Key, Procedure
2. 其中Key代表具体的快捷键，Procedure代表具体的过程
3. Key可以使用组合键

• Shift使用 表示
• Ctrl使用^表示
• Alt使用%表示

Part 2：实例

• 当一个工作簿中存在多个工作表时，我们可以创建目录页使用超链接功能

• 例如=HYPERLINK("[" & $B$1 & "]" & A3 &"!A1",A3)
• 其中$B$1存放工作簿名称
• 第一个A3存放具体工作表名称，第二个A3是实际能够看到的单元格内容
• "!A1"表示的就是A1单元格

1. 那么我们使用完超链接到达所选择的工作表后，如何快速返回目录页，使用上面的快捷键功能即可
2. 代码如下，使用工作簿启动事件，这样启动工作簿后就可以使用该快捷键

Private Sub Workbook_Open() Rem>>工作簿名称获取及启用快捷键 Rem>> Dim shtContent Set shtContent = ThisWorkbook.Worksheets("工作表目录") shtContent.Range("B1") = ThisWorkbook.Name '创建快捷键 Application.OnKey "^m", "主程序.s99_返回工作表目录" End Sub Sub s99_返回工作表目录() Rem>>快速返回目录页 Rem>> ThisWorkbook.Worksheets("工作表目录").Select End Sub

ThisWorkbook中代码截图

模块“主程序”中代码截图

实际操作（忽然切回工作表目录是因为键盘中按了Ctrl m）

Part 3：注释

1. 考虑到工作簿文件的名称可能会改变，所以动态设置了工作簿名称

• shtContent.Range("B1") = ThisWorkbook.Name

1. 在使用过程中，发现s99_返回工作表目录这个Sub只能单独放在模块中，而不能直接存放在ThisWorkbook中