通过

Comment.Next 方法 (Excel)

  • 项目

返回一个 Comment 对象，该对象代表下一条批注。

语法

表达式。下

表达 返回 Comment 对象的表达式。

返回值

评论

备注

本方法仅对单张工作表有效。 对工作表中最后一条批注使用本方法可返回 Null（不是下一张工作表的第一条批注）。

示例

本示例隐藏下一条批注。

注意

在没有现有注释的新工作簿中测试此示例。 若要清除工作簿中的所有批注，请在“即时”窗格中使用 Selection.SpecialCells(xlCellTypeComments).delete 。

'Sets up the comments 
For xNum = 1 To 10 
 Range("A" & xNum).AddComment 
 Range("A" & xNum).Comment.Text Text:="Comment " & xNum 
Next 
 
MsgBox "Comments created... A1:A10" 
 
'Deletes every second comment in the A1:A10 range 
For yNum = 1 To 10 Step 2 
 Range("A" & yNum).Comment.Next.Shape.Select True 
 Selection.Delete 
Next 
 
MsgBox "Deleted every second comment"

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。