为几十个表建立目录

闲该书空写字

2021-02-09 08:13

假设你有很多个表格，需要制作一个目录，在第一张表可以点击跳转到相应的表格，以下是一段代码。

Private Sub CommandButton1_Click() Dim I as long Sheets(1).name="目录" For i = 2 To Sheets.Count Cells(i, 1) = Sheets(i).Name Sheets(1).Hyperlinks.Add anchor:=Sheets(1).Cells(i, 1), Address:="", SubAddress:="'" & Sheets(i).Name & "'!a1", TextToDisplay:=Sheets(i).Name Sheets(i).Hyperlinks.Add anchor:=Sheets(i).Cells(1, 1), Address:="", SubAddress:="'目录'!a1", TextToDisplay:="返回" Next End Sub

执行后结果如下：

获取每个表的表名依次放到A2开始的单元格，然后点击还可以跳转。

并且每个表的A1点击可以返回。

代码解释如下

Dim I as long 声明数据类型

Sheets(1).name="目录" 将第一个表的名字改为“目录”

For i = 2 To Sheets.Count 从第二个表到最后一个表循环，sheets.count表的个数。

Cells(i, 1) = Sheets(i).Name A2等于第二个表表名，A3等于第三个表表名，以此类推。

Sheets(1).Hyperlinks.Add anchor:=Sheets(1).Cells(i, 1), Address:="", SubAddress:="'" & Sheets(i).Name & "'!a1", TextToDisplay:=Sheets(i).Name

以上代码在表1添加超链接，指向对应表的A1,同时单元格显示表的名字

Sheets(i).Hyperlinks.Add anchor:=Sheets(i).Cells(1, 1), Address:="", SubAddress:="'目录'!a1", TextToDisplay:="返回"

以上代码设置循环中的每个表A1单元格可以跳转到目录表。