下面的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发送给你。
有话要说...