请求修复Excel VBA超链接宏：适配HYPERLINK函数及状态显示

核心问题 #

1. HYPERLINK函数超链接适配失效：公式生成的超链接不属于单元格Hyperlinks集合，原代码通过rng.Hyperlinks无法识别这类链接，且Target对象的属性逻辑和手动插入的超链接不兼容。
2. 初始"false"状态失效：原代码仅在循环对比不匹配时设置false，未处理工作表加载时的初始状态，也会错误覆盖已点击过的true值。
3. 匹配逻辑错误：循环遍历所有单元格时，每遇到不匹配的超链接就修改邻格值，导致已标记为true的单元格被误改为false。

修复后的完整代码 #

' 工作表激活时初始化所有超链接邻格为False
Private Sub Worksheet_Activate()
    Dim rng As Range
    
    ' 遍历所有已使用单元格
    For Each rng In Me.UsedRange
        ' 识别所有超链接：手动插入的 + HYPERLINK公式生成的
        If rng.Hyperlinks.Count > 0 Or (rng.HasFormula And Left(rng.Formula, 10) = "=HYPERLINK(") Then
            ' 仅在邻格不是True时设置为False，保留已点击记录
            If rng.Offset(0, 1).Value <> "True" Then
                rng.Offset(0, 1).Value = "False"
            End If
        End If
    Next rng
End Sub

' 处理超链接点击事件，适配所有类型超链接
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim targetCell As Range
    Set targetCell = Target.Range
    
    ' 点击后直接标记邻格为True
    targetCell.Offset(0, 1).Value = "True"
    
    ' 验证HYPERLINK公式的友好名称与地址是否不同
    If targetCell.HasFormula And Left(targetCell.Formula, 10) = "=HYPERLINK(" Then
        ' 拆分公式参数（假设格式为=HYPERLINK("地址","名称")）
        Dim formulaContent As String
        formulaContent = Mid(targetCell.Formula, 11, Len(targetCell.Formula) - 11)
        
        Dim paramParts As Variant
        paramParts = Split(formulaContent, ",")
        
        ' 去除引号和空格，提取地址和友好名称
        Dim linkAddr As String, friendlyName As String
        linkAddr = Trim(Replace(paramParts(0), """", ""))
        friendlyName = Trim(Replace(paramParts(1), """", ""))
        
        ' 地址与名称相同时弹出提示
        If linkAddr = friendlyName Then
            MsgBox "当前超链接的友好名称与链接地址相同，不符合要求！"
        End If
    End If
End Sub

代码说明 #

• 初始化逻辑：通过Worksheet_Activate事件，在工作表激活时自动给所有超链接的相邻单元格设置初始值false，解决初始状态不显示的问题。
• 全类型超链接识别：同时判断单元格的Hyperlinks集合和是否包含=HYPERLINK(公式，覆盖所有创建方式的超链接。
• 点击事件优化：直接通过Target.Range获取点击的单元格，无需循环匹配，避免错误覆盖已标记的true值。
• 友好名称校验：解析HYPERLINK公式的参数，对比链接地址和显示文本，满足需求中"friendly_name需与链接地址不同"的要求。

使用注意 #

1. 代码必须放在对应工作表的代码模块中（右键工作表标签→查看代码，粘贴到打开的窗口），不能放在标准模块。
2. 若需要工作簿打开时就初始化所有工作表的超链接，可将初始化逻辑复制到ThisWorkbook的Workbook_Open事件中。
3. 公式解析逻辑基于标准格式的=HYPERLINK("地址","友好名称")，若有复杂嵌套公式，需调整参数拆分逻辑。

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