如何在 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 代码通过超链接打开隐藏的工作表