如何在 Excel 中點擊超連結跳轉到隱藏的工作表？

如果您有一個包含多個工作表的工作簿，並且希望在主工作表上使用超連結來導航到隱藏的工作表，您會發現一旦工作表被隱藏，這些超連結就會失效。為了解決這個問題，您可以使用 VBA 程式碼確保點擊超連結時自動打開相應的隱藏工作表。本文提供了實現此功能的逐步指導，甚至還提供了一個選項，讓您返回主工作表後可以重新隱藏該工作表。

使用 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

備註：在上述程式碼中，If Target.Column = 1 Then 腳本中的數字 1 表示包含超連結的列號，請根據需要進行更改。

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

2. 然後保存並關閉程式碼視窗，當您點擊超連結時，鏈接的隱藏工作表將立即打開，但是，如果您返回包含超連結的主工作表，則打開的工作表將自動再次被隱藏。

備註：這些程式碼僅適用於與超連結文字匹配的工作表名稱。

演示：使用 VBA 程式碼點擊超連結打開隱藏的工作表