Excel 显示隐藏评论 - VBA

在 Excel 中，评论是一种用于向单元格添加注释或说明的工具。有时候，我们可能需要根据特定的条件来控制评论的显示和隐藏。使用 VBA（Visual Basic for Applications），我们可以编写代码来实现这一功能。

代码示例

以下是一个示例代码片段，展示了如何使用 VBA 控制评论的显示和隐藏：

Sub ToggleCommentsVisibility()
    Dim rng As Range
    Dim c As Comment
    
    Set rng = ActiveSheet.Range("A1:B10") ' 设置要控制评论可见性的范围
    
    For Each c In rng.Cells
        If Not c.Comment Is Nothing Then ' 检查单元格是否包含评论
            If c.Value > 10 Then
                c.Comment.Visible = True ' 若单元格的值大于 10，则显示评论
            Else
                c.Comment.Visible = False ' 若单元格的值小于等于 10，则隐藏评论
            End If
        End If
    Next c
End Sub

上述代码中，我们定义了一个 ToggleCommentsVisibility 的子程序。我们首先使用 Set 语句将要控制评论可见性的范围（例如，A1 到 B10）赋给了 rng 变量。

然后，通过遍历 rng.Cells 来检查每个单元格是否包含评论。如果单元格的值大于 10，则将评论设置为可见；如果单元格的值小于等于 10，则将评论设置为隐藏。

更多操作

除了上面示例中的简单控制评论可见性之外，还可以根据具体需要进行更多的操作，例如：

1. 创建新的评论并添加文本：使用 AddComment 方法来在指定的单元格中创建新的评论，并使用 Comment.Text 属性来设置评论的文本内容。
2. 修改现有评论的文本：使用 Comment.Text 属性来修改现有评论的文本内容。
3. 删除评论：使用 Comment.Delete 方法来删除指定单元格中的评论。

这些是一些常用的操作，你可以根据需求进行拓展和自定义。

注意事项

• 确保在 VBA 编辑器中启用了 "Microsoft Excel 对象库"。
• 在代码中使用 Set rng = ActiveSheet.Range("A1:B10") 来设置范围时，要确保所选范围内的单元格确实包含了评论，否则会出现错误。

希望这个简单的代码示例可以帮助你控制 Excel 中评论的显示和隐藏。根据你的需求，你可以进一步拓展这个代码来实现更多功能。