Utilice las funciones de Excel VBA para hacer que los comentarios cambien con el contenido de la celda

A continuación se muestra un programa que hice que puede generar automáticamente comentarios para diferentes celdas seleccionadas para su referencia.

Libro de trabajo secundario privado_SheetSelectionChange (establece el valor Sh como objeto, valor objetivo como rango)

Establece el texto del comentario en cadena

Hoja activa. celúla. Borrar comentarios

Aplicar. barra de estado = false

si objetivo. cuenta = 1 y objetivo. Fila gt2 entonces

Si Len(Target.Value) gtEntonces 0

Objetivo. Añadir un comentario

Objetivo. Nota. Visible = Verdadero

Si TypeName (Target. Value) lt gt entonces "cadena"

Commenttext = "El texto seleccionado no es texto"

Otro

p>

textocomentario = Objetivo. Valor

Termina si

Objetivo. Comentario.Texto texto: =commenttext

Aplicar. barra de estado = Izquierda(Split(Target.Address(,False)(0),1)&Target.Row &Cell""Anotado por:"Aplicar.Nombre de usuario y contraseña Contenido de anotación:"Texto del comentario

target. comment . forma del marco de texto. nombre = "cursiva" del comentario. . tamaño de fuente = 14

fuente de marco de texto .

Otro

aplicar barra de estado = Left(Split(Target.Address(,False)(0),1) amp ;Target. Row amp. "Cell"

Finalizar si

Finalizar si

Finalizar conector