如何通过VBA事件检测Excel工作表新增超链接并修改其字体属性

问题根因 #

插入超链接的操作不会触发Worksheet_Change事件，该事件仅响应单元格值、公式的修改，超链接属于单元格的附加属性，修改该属性不会触发事件回调；而Worksheet_FollowHyperlink仅在点击超链接跳转时触发，无法覆盖新增场景。

可行解决方案 #

推荐使用「状态快照对比」的方案实现新增超链接检测，你可以在工作表模块中加入以下代码，适配你已有的ListObject场景：

' 定义模块级变量存储上一次检测到的超链接数量
Dim preHyperlinkCount As Long

Private Sub Worksheet_Activate()
    ' 工作表激活时初始化超链接数量快照
    preHyperlinkCount = Me.ListObjects(1).Range.Hyperlinks.Count
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim curHyperlinkCount As Long
    Dim newHyperlink As Hyperlink
    Dim ta As ListObject
    Set ta = Me.ListObjects(1)
    
    ' 仅检测表格范围内的超链接变动
    curHyperlinkCount = ta.Range.Hyperlinks.Count
    
    ' 对比快照判断是否有新增超链接
    If curHyperlinkCount > preHyperlinkCount Then
        ' 遍历新增的超链接修改格式，可按需调整字体属性
        For Each newHyperlink In ta.Range.Hyperlinks
            With newHyperlink.Range.Font
                .Name = "微软雅黑"
                .Size = 11
                .Color = RGB(0, 112, 192)
                .Underline = xlUnderlineStyleSingle
            End With
        Next
        ' 更新快照计数
        preHyperlinkCount = curHyperlinkCount
    End If
End Sub

注意事项 #

• 如果需要支持删除超链接后再新增相同数量超链接的检测场景，可以把快照从计数改为存储所有超链接的地址+单元格位置的集合，每次对比集合差异即可
• 若要全局生效，可以把变量和逻辑放到Workbook模块中，适配所有工作表

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