使用超链接功能取消隐藏工作表答案

【问题标题】：Use Hyperlink Function to Unhide Sheets使用超链接功能取消隐藏工作表
【发布时间】：2021-04-19 21:30:14
【问题描述】：

我正在尝试使用超链接导航到 Excel 工作簿中的隐藏工作表，但我使用的代码似乎无法识别使用 =Hyperlink() 函数创建的目标超链接。超链接函数由包含所有隐藏工作表名称的下拉列表填充。有谁知道我应该如何指定目标值？或者，如果有其他方法可以让它发挥作用？

代码如下：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim ShtName As String
ShtName = Target.Name
Sheets(ShtName).Visible = xlSheetVisible
Sheets(ShtName).Select
End Sub

【问题讨论】：

Worksheet_FollowHyperlink 不适用于使用 HYPERLINK 函数创建的函数，这是正确的。 This approach 可能有效。
我最终使用了“Worksheet_SelectionChange(ByVal Target As Range)”和我创建的列表验证下拉菜单。它有问题，但大致可以满足我的需要。

标签： excel vba hyperlink

【解决方案1】：

如果有人遇到非常相似的问题，可以使用下拉菜单导航到隐藏的工作表。尝试使用“Worksheet_SelectionChange（ByVal Target As Range）”。以下是我在代码中的解决方法：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WS As Worksheet
Dim name As String
If Intersect(Target, Range("A2")) Is Nothing Then Exit Sub

name = Sheets("MasterTracker").Range("A2")
'MsgBox name
For Each WS In ActiveWorkbook.Worksheets
    If WS.Index > 4 Then
        If WS.name = name Then
            WS.Visible = xlSheetVisible
            WS.Activate
        End If
    End If
Next WS
End Sub

【讨论】：