Comments 集合对象

Range Comments (Comment)

单元格批注的集合。每个批注由一个 Comment 对象表示。

Comments 集合对象的的用法

可用 Comments 属性返回 Comments 集合。下例隐藏第一张工作表中的所有批注。

Set cmt = Worksheets(1).Comments
For Each c In cmt
    c.Visible = False
Next

可用 AddComment 方法为一个区域添加批注。下例为第一张工作表的 E5 单元格添加批注。

With Worksheets(1).Range("e5").AddComment
    .Visible = False
    .Text "reviewed on " & Date
End With

可用 Comments(index) 返回 Comments 集合中的单条批注，其中 index 为批注。下例隐藏第一张工作表中的批注二。

Worksheets(1).Comments(2).Visible = False