Excel添加无跳转ScreenTip：如何消除链接修复提示或更换实现方案

优先选择方案2（使用无效超链接外的方法添加ScreenTip），方案1无法针对单个工作簿禁用链接修复，且会影响全局设置，无法从根本上避免其他用户遇到同样问题。以下是具体实现方法：

方法1：数据验证输入信息 #

这是最简单的原生方法，无需VBA即可实现悬停提示：

• 选中需要添加提示的单元格/单元格区域
• 点击「数据」选项卡 → 「数据验证」
• 在对话框切换到「输入信息」标签，勾选「选定单元格时显示输入信息」
• 在「输入信息」框中填写悬停时要展示的内容（「标题」为可选）
• 确认设置后，选中单元格或悬停时会自动弹出提示，无任何链接相关问题

方法2：VBA添加隐藏批注 #

利用Excel批注的悬停显示特性，替代无效超链接：

• 按Alt+F11打开VBA编辑器，插入模块后粘贴以下代码：

Sub AddHoverCommentTip()
    Dim targetCell As Range
    ' 遍历选中的所有单元格
    For Each targetCell In Selection
        ' 清除已有批注避免重复
        If Not targetCell.Comment Is Nothing Then
            targetCell.Comment.Delete
        End If
        ' 添加自定义提示内容，可替换为单元格对应的数据（比如从其他单元格读取）
        targetCell.AddComment Text:="这里是你的详细提示内容"
        ' 设置批注默认隐藏，仅悬停时显示
        targetCell.Comment.Visible = False
        ' 可选：调整批注字体大小
        targetCell.Comment.Shape.TextFrame2.TextRange.Font.Size = 10
    Next targetCell
End Sub

• 选中目标单元格后运行宏，即可实现悬停显示批注内容，保存和打开均无异常

方法3：有效内部超链接（保留ScreenTip） #

如果一定要用超链接形式，将目标指向当前工作簿的有效位置：

• 插入模块后粘贴以下VBA代码：

Sub AddValidHyperlinkWithTip()
    Dim targetCell As Range
    For Each targetCell In Selection
        ' 清除已有超链接
        If targetCell.Hyperlinks.Count > 0 Then
            targetCell.Hyperlinks(1).Delete
        End If
        ' 添加指向当前工作簿Sheet1的A1单元格（可替换为任意有效单元格）
        targetCell.Hyperlinks.Add Anchor:=targetCell, Address:="", _
            SubAddress:="Sheet1!A1", TextToDisplay:=targetCell.Value, _
            ScreenTip:="这里是你的悬停提示内容"
    Next targetCell
End Sub

• 此方法使用有效内部链接，Excel不会判定为损坏链接，打开无修复提示，同时保留ScreenTip功能

为什么不选方案1？ #

Excel没有针对单个工作簿禁用链接修复的独立设置，仅能通过全局设置（文件→选项→高级→取消「请求更新自动链接」）关闭提示，但这是用户级设置，其他用户打开时仍会弹出修复提示，且会影响所有工作簿的链接更新，不适合共享场景。

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