1、打开excel文档,创建若干个sheet页,例如sheet1,a1,a2,a3等
2、点击菜单中的开发工具菜单,点击查看代码按钮(如果找不到开发工具菜单,请点击文件->选项->自定义功能区->主选项卡中,选中开发工具复选框)
3、录入以下下代码。目的是用来在sheet1页中的第一列生成sheet名字列
Sub createmulu()
For i = 1 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
Next
End Sub
4.在代码编辑窗口中点击绿色运行按钮,或者按F5键
5.在sheet1中B2单元格中定义超链接函数,录入=HYPERLINK("#"&A2&"!A1",A2)
6.鼠标选中B1单元格中,将鼠标放在单元中右下侧,当鼠标变为十字时,向下拖动鼠标
7.此时点击B列的sheet名称超链接,即可打开相应的sheet页
8.按shift键,选中所有非目录页,在适当位置输入:
=HYPERLINK("#sheet1!A1","返回目录"),然后回车。所有选中sheet页中便成功添加“返回目录”超链接
本文介绍了如何使用Excel的VBA宏来创建一个包含所有Sheet名字的列表,并在Sheet1中生成超链接。用户可以通过运行宏在第一列生成Sheet名字,然后在B列设置超链接跳转到相应Sheet。此外,还教授了如何添加‘返回目录’的超链接到其他非目录页。
3664

被折叠的 条评论
为什么被折叠?



