如何在 Excel 中创建包含所有电子表格标签名称的目录(包含超链接)

ms excelmicrosoft technologiescomputers更新于 2024/8/19 22:04:17

如果您正在处理包含大量工作表的大型工作簿，并且希望以有序的方式浏览它们，目录可能是一个有用的工具。每个标签名称都可以设置为超链接，以便您只需单击即可轻松导航到特定工作表。本教程将逐步向您展示如何创建 Excel 目录，该目录会在您添加或删除工作表时自动更新。我们还将演示如何添加超链接，以便您直接跳转到相应的工作表。

无论您是 Excel 初学者还是有一定使用经验，本教程都将为您提供高效管理电子表格所需的知识和技能。那么，让我们深入学习如何在 Excel 中创建包含所有电子表格选项卡名称超链接的目录!

创建包含所有电子表格选项卡名称超链接的目录

在这里，我们将首先创建一个 VBA 模块，然后运行它来完成任务。让我们通过一个简单的过程来学习如何在 Excel 中创建包含所有电子表格选项卡名称超链接的目录。

步骤 1

假设您有一个包含多个工作表的 Excel 工作簿。

首先使用 Alt + F11 打开 VBA 应用程序。

步骤 2

然后点击"插入"，选择"模块"，然后将以下代码复制到文本框中。

插入 > 模块 > 复制。

示例

Sub CreateTableofcontents()
   Dim xAlerts As Boolean
   Dim I  As Long
   Dim xShtIndex As Worksheet
   Dim xSht As Variant
   xAlerts = Application.DisplayAlerts
   Application.DisplayAlerts = False
   On Error Resume Next
   Sheets("Table of contents").Delete
   On Error GoTo 0
   Set xShtIndex = Sheets.Add(Sheets(1))
   xShtIndex.Name = "Table of contents"
   I = 1
   Cells(1, 1).Value = "Table of contents"
   For Each xSht In ThisWorkbook.Sheets
      If xSht.Name <> "Table of contents" Then
         I = I + 1
         xShtIndex.Hyperlinks.Add Cells(I, 1), "", "'" & xSht.Name & "'!A1", , xSht.Name
      End If
   Next
   Application.DisplayAlerts = xAlerts
End Sub