从Sheet00调用Module2/3中Worksheet_FollowHyperlink()失效问题排查

你遇到的核心问题是对VBA中工作表事件过程的机制理解有偏差，加上代码里的几个小错误，导致点击超链接时无法触发预期的工作表显示逻辑。具体来说：

1. 工作表事件的绑定规则：Worksheet_FollowHyperlink是Excel内置的工作表级事件过程，它必须放在对应的工作表模块（比如main工作表的代码模块）中，Excel才会在用户点击该工作表上的超链接时自动调用它。把这个过程移到标准模块（Module2/3）后，Excel不会把它识别为事件过程，自然不会自动触发。
2. 参数传递缺失：你手动调用Module2.Worksheet_FollowHyperlink时没有传递必要的Target As Hyperlink参数，导致过程里的Target.Range.Address判断完全失效（此时Target是Nothing）。
3. 超链接Anchor参数错误：在data_hyplink过程中，你给main工作表的单元格添加超链接，但Anchor参数指向了Sheet00的单元格，这会导致超链接的绑定位置混乱，甚至无法正确触发事件。

分步解决方案 #

1. 重命名标准模块中的过程 #

首先，把Module2和Module3中的Worksheet_FollowHyperlink改成自定义名称（标准模块不能用Excel内置的事件过程名），保留参数不变。比如：

Module2中的代码：

Sub HandleSheetDisplayFromBColumn(ByVal Target As Hyperlink)
    If Target.Range.Address = "$B$2" Then
        a_asb_mw.Visible = xlSheetVisible
        a_asb_mw.Activate
    ElseIf Target.Range.Address = "$B$3" Then
        a_asb_wn.Visible = xlSheetVisible
        a_asb_wn.Activate
        ' ... 其他你的判断逻辑
    End If
End Sub

Module3中的代码：

Sub HandleSheetDisplayFromCColumn(ByVal Target As Hyperlink)
    ' 这里放你原来Module3中地址判断的逻辑，比如针对C列单元格的判断
    If Target.Range.Address = "$C$2" Then
        ' 对应的工作表显示逻辑
        xxx.Visible = xlSheetVisible
        xxx.Activate
    End If
End Sub

2. 在目标工作表模块中添加真正的事件过程 #

因为你的超链接是添加在main工作表的单元格里，所以需要打开main工作表的代码模块（右键main工作表标签 → 查看代码），添加内置的Worksheet_FollowHyperlink事件过程，在里面调用标准模块的自定义过程，并传递Target参数：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    ' 调用Module2的处理逻辑
    Module2.HandleSheetDisplayFromBColumn Target
    ' 调用Module3的处理逻辑
    Module3.HandleSheetDisplayFromCColumn Target
End Sub

3. 修正data_hyplink中的Anchor参数错误 #

原来的代码中，Anchor参数指向了错误的工作表，导致超链接绑定混乱。修正后：

Sub data_hyplink()
    Dim ws As Worksheet
    Dim i As Integer ' 显式声明变量类型，避免变体类型的潜在问题
    i = 1
    ' 先清空main工作表中已有的超链接，避免重复添加
    Sheets("main").Cells.Hyperlinks.Delete
    
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "main" Then
            ' 给B列单元格添加超链接，Anchor指向当前单元格
            Sheets("main").Cells(i, 2).Hyperlinks.Add _
                Anchor:=Sheets("main").Cells(i, 2), _
                Address:="", _
                SubAddress:="", _
                TextToDisplay:=ws.Name ' 显示对应工作表的名称，方便识别
            
            ' 给C列单元格添加超链接
            Sheets("main").Cells(i, 3).Hyperlinks.Add _
                Anchor:=Sheets("main").Cells(i, 3), _
                Address:="", _
                SubAddress:="", _
                TextToDisplay:="查看工作表"
            
            i = i + 1
        End If
    Next
End Sub

额外注意事项 #

• 确保你引用的隐藏工作表名称（比如a_asb_mw、a_asb_wn）拼写正确，且确实存在于当前工作簿中。
• 如果你的超链接是添加在Sheet00而不是main工作表，那么事件过程需要放在Sheet00的代码模块中，而不是main的。
• 测试前可以先运行data_hyplink重新生成超链接，避免旧的错误超链接干扰结果。

内容的提问来源于stack exchange，提问作者Isabella