如何使用VBA给Excel工作簿中的工作表创建目录并添加超链接

风晓 2024-01-02 07:35:12  54126

分类专栏：资讯

当一个工作簿中有很多工作表的时候，需要创建一个目录来进行管理。如果手动添加比较麻烦，这里可以使用VBA来进行添加，并且加上超链接，直接跳转到对应的工作表中。

如图，现在一个工作簿中有几个工作表，要来创建目录。

现在使用以下代码来实现：

Sub CreateMenu()
Sheets.Add(Before:=Sheets(1)).Name = "目录"  '新建一个目录工作表
Worksheets("目录").Activate
    For i = 1 To Sheets.Count
        Cells(i, 1) = Sheets(i).Name  '将其他工作表名称分别填入单元格中
        If i <> 1 Then
            Cells(i, 1).Select
                ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", TextToDisplay:=Cells(i, 1).Value
                '创建超链接
        End If
    Next i
End Sub

运行以后会新建一个名为“目录”的工作表，位置排在最前面，然后在里面将全部工作表名称列出来。除了新建的目录工作表以外，其他单元格均添加对应的工作表超链接，点击就可以直接跳转到对应工作表的A1单元格了。

以上就是使用VBA来创建带超链接的工作表目录的方法，可以根据实际需要来进行修改使用。

网站声明：如果转载，请联系本站管理员。否则一切后果自行承担。

本文链接：https://www.xckfsq.com/news/show.html?id=34016

赞同 0

评论 0 条

如何使用VBA给Excel工作簿中的工作表创建目录并添加超链接

相关文章

关注我们