Метод Comment.Next (Excel)

Возвращает объект Comment , представляющий следующий комментарий.

Синтаксис

expression. Следующий

выражение Выражение, возвращающее объект 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 и обратная связь.