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