Para añadir un comentario mediante código a una determinada celda de nuestra hoja de cálculo Excel, primero debemos de asegurarnos que no exista ya uno. Si existe y tratamos de poner otra nota, dará error. Podríamos usar la propiedad Delete, pero si no existe un comentario, también va a dar error.
La forma correcta se puede ver en este código de ejemplo:
VB
Private Sub CommandButton1_Click()
'con esta línea evitamos ERROR si ya existía una nota en la celda:
If Not Cells(10, 4).Comment Is Nothing Then Cells(10, 4).Comment.Delete
'Añadimos un comentario:
Cells(10, 4).AddComment
'Metemos el texto en el comentario:
Cells(10, 4).Comment.Text Text:="Esto es un comentario"
End Sub
Deja una respuesta