聚热点 juredian

Excel教程:30秒做好Excel超链接目录

下面的Excel文件,包含多个工作表,如下所示:

我们通过一段VBA代码,一键提取所有工作表表名,放在一张新的工作表。随着工作表的减少或者增加,点击按钮,还可以自动重新提取目录。

制作好的Excel超链接目录效果如下:

操作步骤如下:

第一步:在“案例1”工作表前面插入一张空白工作表Sheet。

第二步:在“Sheet1”工作表标签,点击右键,选择“查看代码”

第三步:查看代码会激活VBE编辑器界面,点击插入——模块,并且复制以下代码到右边编辑区。

Sub 提取表名() Dim sht As Worksheet, myRange As Range, mycol%, myrow% On Error GoTo 100 Set myRange = Application.InputBox("只选一个!!!", "选择目录起始单元格", , , , , , 8) If myRange.Count <> 1 Then Exit Sub myrow = myRange.Row mycol = myRange.Column With myRange.Resize(500, 1) .ClearContents .NumberFormat = "@" End With myRange = " 目录" For Each sht In Sheets If sht.Name <> ActiveSheet.Name Then myrow = myrow + 1 Set Rng = Cells(myrow, mycol) Rng.Value = sht.Name ActiveSheet.Hyperlinks.Add anchor:=Rng, _ Address:="", SubAddress:=""" & sht.Name & ""!a1", TextToDisplay:=sht.Name End If Next 100: End Sub

第四步:点击“保存”按钮,Excel提示我们是否VB项目,点击“否”。

第五步:弹出的“另存为”对话框,选择文件保存类型为:Excel启用宏的工作薄,保存即可。

第六步:关闭VBE编辑器,回到Excel界面。

第七步:插入一个任意形状,输入一些提示文字,截图如下:

第八步:点击形状,右键选择“指定宏”。

第九步:选择我们上面在模块1录入的“提取表名”的代码,确定。

第十步:点击按钮,弹出的“选择目录起始单元格”,我们点击A1单元格,点击确定,程序即可为我们自动添加所有工作表名称。

需要本篇Excel教程的源文件,请加微信:blwjymx发送给你。

搜索建议: