如何在工作簿中創建超連結索引的工作表？

在我們的日常工作中，一個工作簿文件中可能有多個工作表，您如何在某個工作表中創建工作表標籤的索引並為每個標籤創建超連結呢？本文將介紹一些快速技巧來處理這個任務。

使用VBA代碼創建工作表的超連結索引

使用Kutools for Excel的創建鏈接表功能創建工作表的超連結索引

使用Kutools for Excel的導航功能創建工作表的超連結索引

使用VBA代碼創建工作表的超連結索引

以下VBA代碼可以幫助您在其他工作表前面的新工作表中創建工作表名稱的索引。請按照以下步驟操作：

1. 按住ALT + F11鍵打開Microsoft Visual Basic for Applications窗口。

2. 點擊插入 > 模塊，然後在模塊窗口中粘貼以下代碼。

VBA代碼：創建工作表的超連結索引

Sub CreateIndex()
'updateby Extendoffice
    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鍵執行此代碼，一個名為“Index”的新工作表會被插入到所有工作表之前，其中包含帶有超連結的工作表名稱。請參見截圖：

使用Kutools for Excel的創建鏈接表功能創建工作表的超連結索引

除了上述VBA代碼外，您還可以使用一個實用工具——Kutools for Excel，通過其創建鏈接表功能，您可以快速創建帶有超連結或按鈕的工作表名稱索引。

安裝Kutools for Excel後，請按照以下步驟操作：

1. 點擊Kutools Plus > 工作表 > 創建鏈接表，請參見截圖：

2. 在創建鏈接表對話框中，請進行以下設置：

• 選擇一種索引樣式，您可以使用 超連結或按鈕作為工作表名稱索引；
• 為列出工作表索引的工作表指定一個名稱；
• 指定放置工作表索引的位置；
• 選擇要放置工作表名稱列表的列數。

3. 完成設置後，點擊確定按鈕，就會創建一個帶有工作表名稱索引的新工作表，如下所示：

帶有超連結的工作表名稱	使用按鈕的工作表名稱

點擊以了解更多關於此創建鏈接表功能的詳細信息…

使用Kutools for Excel的導航功能創建工作表的超連結索引

Kutools for Excel的導航工具也可以幫助您在左側窗格中列出所有工作表名稱，並且您可以點擊任何工作表名稱以跳轉到該工作表。

安裝 Kutools for Excel後，請按照以下步驟操作：

1. 點擊Kutools > 導航，請參見截圖：

2. 然後點擊工作簿與工作表圖標以展開導航窗格：

	1. 所有已打開的工作簿都在這裡列出。
	2. 當前工作簿內可見的工作表列在下面的列表框中，您可以通過點擊窗格中的工作表名稱來跳轉到特定的工作表。

點擊以了解更多關於此導航窗格的詳細信息…