excel如何隐藏已超链接的工作表实现自动转跳
只有图表可以显示，当点红色标签时跳出相应工作表
隐藏工作表也以隐藏了看不到，怎能通过超链接跳转到隐藏工作表，只能用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
热门标签：