Excel 在悬停时显示评论 - VBA

在 Excel 中，如果我们想要给一个单元格添加注释，可以通过右键点击单元格 -> 插入注释来实现。但是，当鼠标移开后，注释也会随之消失，如果注释内容较多，就需要不停地点击单元格来查看注释。这时，我们就需要通过 VBA 来实现在悬停时显示注释的功能。

实现步骤

1. 打开 VBA 编辑器，通过 ALT + F11 快捷键或在开发人员选项中打开；

2. 在 VBA 编辑器中，选择要添加代码的工作表，右键点击该工作表，选择“视图代码”；

3. 在 VBA 编辑器中，将以下代码复制到该工作表的代码模块中：

Option Explicit

Dim cmt As Comment

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not cmt Is Nothing Then cmt.Visible = False

    If Target.Cells.count = 1 Then
        If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
            Set cmt = ActiveCell.Comment
            If Not cmt Is Nothing Then cmt.Visible = True
        End If
    End If

End Sub

Private Sub Worksheet_Deactivate()

    If Not cmt Is Nothing Then cmt.Visible = False

End Sub

注释部分的位置和数量可以根据实际情况进行修改。

代码说明

• Worksheet_SelectionChange 事件：该事件会在选定单元格改变时触发，可以在此事件中添加注释显示的代码。

• Worksheet_Deactivate 事件：该事件会在工作表失去焦点时触发，可在此事件中将注释隐藏。

• Comment 对象：表示一个注释对象；

• Visible 属性：控制注释对象是否可见，在该程序中，通过将其设置为 True 或 False 来显示或隐藏注释。

效果展示

添加以上代码后，保存并关闭 VBA 编辑器，返回 Excel 工作表。选定单元格时，如下图所示，注释将在悬停时显示：

结束语

通过以上 VBA 代码，我们可以实现在 Excel 中添加注释并在悬停时显示的功能，大大提高了工作效率。该功能虽然简单，但也可以为我们的工作带来很多便利。