如何在工作簿中建立超連結工作表索引


在工作簿中生成工作表索引的能力是 Excel 的重要功能之一。Excel 是一個強大的資料管理和組織工具。透過使用此索引作為便捷的導航工具,您可以輕鬆地一鍵在多個工作表之間切換。在本教程中,我們將逐步引導您完成建立超連結 Excel 索引的過程。在本教程結束時,您將瞭解如何組織工作簿的索引,以便輕鬆瀏覽多個工作表。

無論您對 Excel 的熟練程度如何,本文都將為您提供必要的知識,以提高您在處理多個工作表時的工作效率。為了在 Excel 中建立工作表的超連結索引,讓我們開始吧。

工作簿中工作表的超連結索引

在這裡,我們將首先插入一個 VBA 模組,然後執行它以完成任務。因此,讓我們看看一個簡單的過程,瞭解如何在 Excel 中建立工作簿中工作表的超連結索引。

步驟 1

考慮任何 Excel 工作表。

首先,右鍵單擊工作表名稱,然後選擇“檢視程式碼”以開啟 VBA 應用程式。

步驟 2

然後單擊“插入”,選擇“模組”,並將以下程式碼複製到文字框中。

插入 > 選擇模組 > 複製。

示例

Sub CreateIndex()
   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("Index").Delete
   On Error GoTo 0
   Set xShtIndex = Sheets.Add(Sheets(1))
   xShtIndex.Name = "Index"
   I = 1
   Cells(1, 1).Value = "INDEX"
   For Each xSht In ThisWorkbook.Sheets
      If xSht.Name <> "Index" 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 中建立工作簿中工作表的超連結索引,以突出顯示特定資料集。

更新於:2023年7月12日

391 次瀏覽

開啟你的 職業生涯

透過完成課程獲得認證

開始學習
廣告

© . All rights reserved.