在工作簿中
表少的情况
切换的话鼠标点点就好
表要是多了
找起来就有点麻烦了
这个时候就需要一个目录跳转
正好EXCEL中有个超链接函数
=HYPERLINK("#'现金'!A1","现金")
我们学过
再用这个与超链接函数组合起来运用
注：
为什么采用这种方式
而不用事件等方式跳转
因为很多人没有启用宏
直接生成 用完就扔
操作步骤：
1、按<ALT+F11>组合键打开VBE
2、单击【插入】-【模块】
3、双击【模块1】
4、复制代码<CTRL+C>
5、粘贴代码<CTRL+V>
6、运行代码<F5>
代码如下：
'创建目录，为了给不启用宏的人
'参考 =HYPERLINK("#'现金'!A1","现金")
Sub test005()
Dim i As Integer
For i = 2 To Sheets.count
'提取工作表名到A列并创建连接
Sheets(1).Cells(i, "A") = "=hyperlink(""#'" & Sheets(i).Name & "'!A1"",""" & Sheets(i).Name & """)"
'创建返回目录
Sheets(i).Cells(1, "L") = "=hyperlink(""#'" & Sheets(1).Name & "'!A1"",""返回目录"")"
Next
msgbox "完成"
End Sub
铛铛铛铛
我是小怪兽
努力进化中...
V1.1 优化无业务数据时不显示余额
V1.2 目录跳转