如何在Excel中建立包含所有電子表格選項卡名稱和超連結的目錄

如果您正在處理一個包含許多工作表的龐大工作簿，並且希望採用一種井然有序的方法來瀏覽這些工作表，那麼目錄可能是一個有用的工具。每個選項卡名稱都可以製作成超連結，以便您可以輕鬆地單擊一下即可導航到特定工作表。本教程將逐步向您展示如何建立一個 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

步驟 3

然後單擊 F5 以完成任務。然後您將看到目錄已建立。

這就是如何在 Excel 中為所有電子表格選項卡名稱建立包含超連結的目錄的方法。

結論

在本教程中，我們使用了一個簡單的示例來演示如何在 Excel 中為所有電子表格選項卡名稱建立包含超連結的目錄，以突出顯示特定資料集。

更新於：2023年7月12日

109 次瀏覽

啟動您的 職業生涯

完成課程獲得認證

開始
廣告