Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Retorna um objeto Comment representando o comentário anterior.
Sintaxe
expressão. Anterior
expressão Uma expressão que devolve um objeto Comentário .
Valor de retorno
Comentário
Comentários
Este método trabalha somente em uma planilha. O uso deste método no primeiro comentário em uma planilha retorna Null (não o último comentário na planilha anterior).
Exemplo
Esse exemplo exclui cada segundo comentário, navegando com o método Previous.
Observação
Teste este exemplo num novo livro sem comentários existentes. Para limpar todos os comentários de um livro, utilize Selection.SpecialCells(xlCellTypeComments).delete no painel Imediato.
'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"
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.