创建一个目录列表进行每张sheet表的链接

最新推荐文章于 2025-12-05 19:01:45 发布

原创最新推荐文章于 2025-12-05 19:01:45 发布 · 851 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#integer #list #工作 #string

本文介绍了一个使用VBA为Excel工作簿中的多个工作表创建目录链接的方法。通过编写简单的VBA宏，可以快速地在指定的工作表中生成指向其他工作表的超链接，方便用户在多个工作表间导航。

Sub CreateList() '===================================== '创建一个目录列表进行每张sheet表的链接 '作者：WH '===================================== On Error GoTo Tuichu Dim i As Integer Dim ShtCount As Integer Dim SelectionCell As Range Dim links(100) As String '最多100个 ShtCount = Worksheets.Count If ShtCount = 0 Or ShtCount = 1 Then Exit Sub Application.ScreenUpdating = False For i = 1 To ShtCount links(i - 1) = Sheets(i).Name Next i If Sheets(1).Name <> "List" Then ShtCount = ShtCount + 1 Worksheets.Add BEFORE:=Sheets(1) activesheet.Name = "List" End If Application.StatusBar = "正在生成目录…………请等待！" With Worksheets("List") For i = 0 To UBound(links) If links(i) <> "" Then .Hyperlinks.Add Anchor:=Cells(i + 2, 2), Address:="", SubAddress:= _ "'" & links(i) & "'" & "!A1", TextToDisplay:=links(i) Else Exit For End If Next End With Sheets("List").Cells(1, 2) = "List" Application.StatusBar = False Application.ScreenUpdating = True Tuichu: End Sub

同事抱怨一个工作簿里工作表太多，查找不太方便，我就随手给她写了个模块，建立一个目录链接。