点击超链接跳转激活其他单元格时自动运行宏的实现方法

使用工作表原生的FollowHyperlink事件即可实现需求，无需修改原有单元格超链接的配置，操作流程如下：

• 打开目标工作簿，按Alt+F11快捷键调出VBA编辑器
• 在左侧工程资源管理器列表中，双击超链接所在的工作表，打开对应的代码编辑窗格
• 粘贴对应VBA代码后保存，功能即刻生效

通用触发版本 #

点击当前工作表内任意超链接完成单元格跳转后，都会自动执行滚动代码，将当前选中的活动单元格滚动到窗口可视区域首行：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    ActiveWindow.ScrollRow = ActiveCell.Row
End Sub

指定目标触发版本 #

如果仅需要点击A2单元格指向A300的超链接时才触发逻辑，可以增加判断条件，避免其他超链接误触发：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    ' 仅当跳转后选中A300单元格时执行滚动
    If ActiveCell.Address = "$A$300" Then
        ActiveWindow.ScrollRow = ActiveCell.Row
    End If
End Sub

提示：保存文件时请选择「启用宏的工作簿（*.xlsm）」格式，否则VBA代码不会被保留、功能无法正常运行。

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