利用VBA制作带有超链接的工作目录表

1、由于需要用到VBA，所以必须要将开发工具调取到工具栏。在EXCEL选项中勾选即可。

2、打开需要制作超链接的工作簿，并在其中插入一个工作表，用于存放目录。

4、Set wt = Worksheets("目录") 烂瘀佐栾这段代码意思是为工作簿中所有工作表创建目录wt.Rows("2:65536").ClearContents这段代码意思是清除工作表中原有数据

6、这是完整的代码：Su水瑞侮瑜b mulu() Dim wt As Worksheet Set wt = Worksheets("目录") wt.Rows("2:65536").ClearContents Dim sht As Worksheet, irow As Integer irow = 2 For Each sht In Worksheets wt.Cells(irow, "A").Value = irow - 1 wt.Hyperlinks.Add anchor:=wt.Cells(irow, "B"), Address:="", _ SubAddress:="'" & sht.Name & "'!A1", TextToDisplay:=sht.Name irow = irow + 1 NextEnd Sub将代码保存。并将此工作簿另存为xslm格式。

7、返回主页面，绘制一个窗体控件。可以根据需要决定是否修改控件名称。

8、点击“目录”控件运行，可以看到很快就生成了带有超链接的目录。点击任一目录名都可以迅速跳转到对应工作表。