共用方式為

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 支援與意見反應。