Метод Comment.Previous (Excel)

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

Синтаксис

expression. Предыдущий

выражение Выражение, возвращающее объект Comment .

Возвращаемое значение

Комментарий

Замечания

Этот метод работает только на одном листе. При использовании этого метода для первого комментария на листе возвращается значение NULL (а не последнее примечание на предыдущем листе).

Пример

В этом примере удаляется каждый второй комментарий, используя метод Previous .

Примечание.

Протестируйте этот пример в новой книге без существующих комментариев. Чтобы удалить все примечания из книги, используйте 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 = 10 To 1 Step -2 
 Range("A" & yNum).Comment.Previous.Shape.Select True 
 Selection.Delete 
Next 
 
MsgBox "Deleted every second comment"

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.