Excel超链接点击后目标单元格始终居屏幕左上角及VBA失效问题咨询

原代码失效根因 #

你遇到的表现不符合预期、代码偶发生效的核心原因有两个：

1. 事件类型与存放模块不匹配：Worksheet_FollowHyperlink是工作表级事件，仅粘贴到对应工作表的代码模块才会触发，放在ThisWorkbook模块不会响应超链接点击事件。
2. 未禁用Excel默认超链接跳转逻辑：Excel默认的超链接跳转只会滚动到目标单元格刚好进入可视区域就停止，原代码没有屏蔽默认逻辑，二者执行顺序冲突导致只有目标在可视区外时自定义滚动才会生效。

修正后的代码 #

如果要实现工作簿内所有工作表的超链接都适用该规则，将以下代码粘贴到ThisWorkbook模块即可：

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
    ' 屏蔽Excel默认超链接跳转逻辑
    Application.EnableEvents = False
    ' 异常捕获，避免出错后事件永久关闭
    On Error GoTo ErrHandler
    
    Dim TargetRng As Range
    ' 提取超链接指向的目标单元格
    Set TargetRng = Application.Range(Target.SubAddress)
    
    ' 强制滚动到目标位置，适配冻结窗格场景
    ActiveWindow.ScrollRow = TargetRng.Row
    ActiveWindow.ScrollColumn = TargetRng.Column
    
ErrHandler:
    ' 恢复事件响应
    Application.EnableEvents = True
End Sub

如果仅需要单个工作表生效，将以下代码粘贴到对应工作表的代码模块即可：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Application.EnableEvents = False
    On Error GoTo ErrHandler
    
    Dim TargetRng As Range
    Set TargetRng = Application.Range(Target.SubAddress)
    
    ActiveWindow.ScrollRow = TargetRng.Row
    ActiveWindow.ScrollColumn = TargetRng.Column
    
ErrHandler:
    Application.EnableEvents = True
End Sub

代码激活配置步骤 #

• 宏安全性配置：打开Excel→「文件」→「选项」→「信任中心」→「信任中心设置」→「宏设置」，选择「启用所有宏」（个人自用场景可选择，若需更高安全性可选择「启用数字签名的宏」并对自己的代码签名）。
• 工作簿格式要求：必须将文件保存为启用宏的工作簿（.xlsm格式），普通.xlsx格式会自动丢弃VBA代码，无法生效。
• 重启生效：保存文件后关闭重新打开，顶部出现「安全警告 宏已被禁用」提示时，点击「启用内容」即可。

代码运行验证方法 #

打开VBA编辑器，在你粘贴的代码首行（Private Sub开头的行）左侧点击，会出现一个红色断点标记。回到Excel界面点击任意超链接，如果VBA编辑器自动弹出并停在断点所在行，说明代码已经成功触发运行。
如果未触发，依次检查宏是否启用、文件格式是否为.xlsm、代码存放的模块是否匹配即可。

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