Análisis de código de habilidades comunes de VBA
En VBA, puede utilizar la propiedad Comentario del objeto Rango para determinar si hay comentarios en la celda, como se muestra en el siguiente código. Copie el contenido al código del portapapeles: #001 Sub HasComment()
#002 If Range("A1").El comentario no es nada, entonces
#003 MsgBox "No hay nada en la celda A1 ¡Comentar!"
#004 Else
#005 MsgBox "El contenido del comentario en la celda A1 es:" & Chr(13) & Range("A1").Comment.Text
#006 End If
#007 End Sub análisis de código:
El proceso HasComment determina si hay un comentario en la celda A1 y utiliza un cuadro de mensaje para mostrar la información del comentario.
La propiedad Comentario del objeto Rango devuelve un objeto de comentario Si no hay ningún comentario en la celda especificada, esta propiedad devuelve Nada.
El resultado de ejecutar el proceso HasComment es el que se muestra en la figura.
14-2 Agregar comentarios a las celdas
Si desea agregar comentarios a las celdas, puede utilizar el método AddComment, como se muestra en el siguiente código. Copie el contenido al código del portapapeles: #001 Sub Comment_Add()
#002 With Range("A1")
#003 Si .Comment no es nada, entonces
#004 .AddComment Text:=.Value
#005 .Comment.Visible = True
#006 Finalizar si
#007 Finalizar con
#008 Análisis del código final del sub:
Comment_Add determina si hay un comentario en la celda A1. Si no hay ningún comentario, agregue un comentario a la celda A1 y use el valor de la celda como texto del comentario. mostrarlo al mismo tiempo.
La línea 4 de código utiliza el método AddComment del objeto Range para agregar comentarios a las celdas. Este método tiene solo un parámetro Texto, que representa el texto de la anotación. Si ya existe un comentario para la celda, este método devuelve un error.
La línea 5 de código muestra el objeto de anotación y la propiedad Visible determina si el objeto es visible.
Cuando no hay comentarios en la celda A1, el resultado después de ejecutar el código es como se muestra en la figura.
14-3 Eliminar comentarios en celdas
Si necesita eliminar comentarios en celdas, puede utilizar el método ClearComments, el método ClearNotes o el método Delete, como se muestra en el siguiente código. Copie el contenido al código del portapapeles: #001 Sub Commentdel()
#002 En caso de error, reanudar siguiente
#003 Range("A1").ClearComments
# 004 Range("A2").ClearNotes
#005 Range("A3").Comment.Delete
#006 Finaliza los comentarios en el cuadro Sub.
La segunda línea de código de declaración de manejo de errores. Si no hay comentarios en la celda, se producirá un error al ejecutar la quinta línea de código, así que use la declaración On Error para ignorar el error.
La línea 3 de código utiliza el método ClearComments para eliminar el comentario en la celda A1. El método ClearComments borra todos los comentarios de celda en el área especificada. La sintaxis es la siguiente:
expresión.ClearComments
La cuarta línea de código utiliza el método ClearNotes para eliminar los comentarios en la celda. A2. El método ClearNotes borra las notas y los comentarios de voz de todas las celdas en el rango especificado. La sintaxis es la siguiente:
expresión.ClearNotes
La quinta línea de código utiliza el método Eliminar para. elimine los comentarios en la celda A3. La propiedad Comment del objeto .Range devuelve un objeto Comment que representa el comentario asociado con la celda superior izquierda del rango.