VBA小技巧之自动生成工作表目录并设置超链接

在excel有时候我们有很多工作表，我们希望建立一个目录来关联这些工作表，能快速在工作表之间进行切换。如果一个个操作比较繁琐，我们可以通过编写vba代码来一步到位，快速制作工作表目录。

操作步骤：

1、新建六个工作表，分别为1月、2月、3月、4月、5月、6月，我们以sheet1为工作表目录存放页，工作表目录从第二个表格即1月开始关联。

2、选中sheet1工作表，右击——查看代码，复制如下代码：

Sub getAllWorkSheets()

' 得到所有的工作表名称，并加上超连接

totalNum = Worksheets.Count

Sheet1.Activate

Range("B:B").Select

Selection.NumberFormatLocal = "@"

' 从工作表2开始建立工作表目录，目录存放在sheet1中。

For index_i = 2 To totalNum

sheetName = Worksheets(index_i).Name

Cells(index_i, 2) = sheetName

tar_sheet = "'" & sheetName & "'"

Cells(index_i, 2).Select

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _

tar_sheet & "!A1", TextToDisplay:=sheetName

Next index_i

End Sub

3、在VBA窗口中，单击菜单栏：运行——运行子过程。如此就建好工作表目录并设置好超链接。

Gif动图如下：