excel如何隐藏已超链接的工作表实现自动转跳

更新时间2019-03-05 16:42:04

只有图表可以显示，当点红色标签时跳出相应工作表

隐藏工作表也以隐藏了看不到，怎能通过超链接跳转到隐藏工作表，只能用VBA，首先取消隐藏表再超链接跳转到隐藏工作表具体位置。

有许多工作表，可视性差，因此将所有工作表全部隐藏，只保留一个目录表，在目录表下做超链接，链接到目标工作表中。要实现为：点击目录表中的超链接，VBA就取消该超链接对应工作表的隐藏状态，并跳转到该表，返回目录表后，该表再次自动隐藏。进入VBA，在目录表对象下写如下代码：

Private Sub Worksheet_Activate()

    Dim sh As Object

    For Each sh In Sheets

        If sh.Name <> "目录" Then sh.Visible = xlSheetHidden

    Next

End Sub

 

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

    Dim sh As Object

    On Error Resume Next

    Set sh = Sheets(Replace(Split(Target.SubAddress, "!")(0), "'", ""))

    If Not sh Is Nothing Then sh.Visible = xlSheetVisible

    Target.Follow

End Sub

相关标签:excel