Примечание.
Для доступа к этой странице требуется авторизация. Вы можете попробовать войти или изменить каталоги.
Для доступа к этой странице требуется авторизация. Вы можете попробовать изменить каталоги.
Возвращает объект 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 = 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 и обратная связь.