如何在 Excel 中透過超連結前往隱藏的工作表？

作者Xiaoyang修改日期2024-11-25

若您有一個包含多個工作表的活頁簿，並希望在主控工作表上透過超連結導航至隱藏的工作表，您會發現一旦工作表被隱藏，這些超連結便會失效。為解決此問題，可運用 VBA 程式碼，確保點擊超連結時自動顯示對應的隱藏工作表。本文提供逐步操作說明，協助您輕鬆實現此功能，甚至還支援在返回主控工作表後自動重新隱藏該工作表。

顯示 Excel 中含有指向隱藏工作表之超連結的主工作表截圖

使用 VBA 程式碼透過超連結開啟隱藏工作表

使用 VBA 程式碼透過超連結開啟隱藏工作表，並在返回後再次隱藏

使用 VBA 程式碼透過超連結開啟隱藏工作表

下列 VBA 程式碼可協助您在點擊相對應的超連結時開啟隱藏工作表，請依下列步驟操作：

1. 右鍵點擊您想透過超連結前往的隱藏工作表標籤，並從快捷選單中選擇檢視程式碼。在彈出的 Microsoft Visual Basic for Applications 視窗中，將下列程式碼複製並貼上至空白模組中：

VBA 程式碼：透過超連結開啟隱藏工作表：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    Application.ScreenUpdating = False
    On Error Resume Next
    If Target.Column = 1 Then
        Sheets(Target.Value).Visible = xlSheetVisible
        Sheets(Target.Value).Select
    End If
    Application.ScreenUpdating = True
End Sub

貼上程式碼後的 VBA 編輯器截圖

注意：在上述程式碼中，數字 1 位於 If Target.Column = 1 Then 這段指令中，代表包含超連結的欄位編號，請依您的需求調整。

2. 接著關閉此程式碼視窗。現在，當您點擊連結至特定隱藏工作表的超連結時，該工作表將立即開啟。

使用 VBA 程式碼透過超連結開啟隱藏工作表，並在返回後再次隱藏

有時您需要透過超連結開啟隱藏的工作表，但當返回主控工作表時，又希望剛才開啟的工作表能自動再次隱藏。以下 VBA 程式碼可協助您輕鬆達成此目的：

1. 右鍵點擊您要透過超連結前往隱藏工作表的那個工作表標籤，然後從快捷選單中選擇檢視程式碼。在彈出的 Microsoft Visual Basic for Applications 視窗中，將下列程式碼複製並貼到空白模組中：

VBA 程式碼：透過超連結開啟隱藏工作表，返回時再次隱藏：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
   'Updateby Extendoffice
    Application.ScreenUpdating = False
    Dim strLinkSheet As String
    If InStr(Target.Parent, "!") > 0 Then
        strLinkSheet = Left(Target.Parent, InStr(1, Target.Parent, "!") - 1)
    Else
        strLinkSheet = Target.Parent
    End If
    Sheets(strLinkSheet).Visible = True
    Sheets(strLinkSheet).Select
    Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_Activate()
    On Error Resume Next
    Sheets(ActiveCell.Value2).Visible = False
End Sub

包含額外程式碼（用於存取工作表後重新隱藏）的 VBA 編輯器截圖

2. 接著儲存並關閉程式碼視窗。當您在點擊超連結後，連結的隱藏工作表會立即開啟；但當您返回包含超連結的主控工作表時，剛才開啟的工作表將自動再次隱藏。

注意：這些程式碼僅適用於超連結文字與工作表名稱完全相符的情況。

示範：使用 VBA 程式碼透過超連結開啟隱藏工作表

Kutools for Excel：超過 300 種實用工具隨手可得！盡享 AI 驅動功能，讓工作更聰明、更快速！立即下載！

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多