Part 1:小技巧介绍
- 创建快捷键主要使用Application.OnKey Key, Procedure
- 其中Key代表具体的快捷键,Procedure代表具体的过程
- Key可以使用组合键
- Shift使用 表示
- Ctrl使用^表示
- Alt使用%表示
Part 2:实例
- 当一个工作簿中存在多个工作表时,我们可以创建目录页使用超链接功能
- 例如=HYPERLINK("[" & $B$1 & "]" & A3 &"!A1",A3)
- 其中$B$1存放工作簿名称
- 第一个A3存放具体工作表名称,第二个A3是实际能够看到的单元格内容
- "!A1"表示的就是A1单元格
![excelvba的使用技巧(VBAExcel小技巧) excelvba的使用技巧(VBAExcel小技巧)1](/uploads3/large/pgc-image/549593aa643643549a30c1d4387de1c3.jpg)
- 那么我们使用完超链接到达所选择的工作表后,如何快速返回目录页,使用上面的快捷键功能即可
- 代码如下,使用工作簿启动事件,这样启动工作簿后就可以使用该快捷键
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中代码截图
![excelvba的使用技巧(VBAExcel小技巧) excelvba的使用技巧(VBAExcel小技巧)2](/uploads3/large/pgc-image/1ea93dd2ccd64a5fae778536b07f78ab.jpg)
模块“主程序”中代码截图
![excelvba的使用技巧(VBAExcel小技巧) excelvba的使用技巧(VBAExcel小技巧)3](/uploads3/large/pgc-image/bbf14cb3f13b42f585e2e9c96cc8d0dd.jpg)
实际操作(忽然切回工作表目录是因为键盘中按了Ctrl m)
![excelvba的使用技巧(VBAExcel小技巧) excelvba的使用技巧(VBAExcel小技巧)4](/uploads3/large/pgc-image/b254632561e146619872c7f557cee1a4.jpg)
Part 3:注释
- 考虑到工作簿文件的名称可能会改变,所以动态设置了工作簿名称
- shtContent.Range("B1") = ThisWorkbook.Name
- 在使用过程中,发现s99_返回工作表目录这个Sub只能单独放在模块中,而不能直接存放在ThisWorkbook中
,