Comentarios (Comments) Excel

Escrito por Comunidades Microsoft By Héctor Miguel y May . Posted in Excel XP/2003/2007

Microsoft Most Valuable Professional

Comentarios Excel (Comments Excel)

Comentarios en hojas de Calculo Excel

Trabajando en nuestra hoja de Excel hemos tenido necesidad alguna vez de insertar comentarios en nuestras celdas para así facilitarnos mejor nuestro trabajo. Los comentarios nos permiten tener nuestras hojas de Excel mas organizadas.

Opciones desde la interfaz de Excel

Opciones que necesitan de Programación VBA por:

Héctor Miguel Orozco Díaz

Mostrar en UN comentario valores de fila en la que nos situemos
Función Leer Comentarios

Opciones desde la interfaz de Excel

Para Office Excel Versión 2007

http://office.microsoft.com/es-es/excel/HP012164043082....

Opciones que necesitan de Programación VBA

Héctor Miguel Orozco Díaz

(MVP - Microsoft Office Excel )

Mostrar en un comentario los valores de la fila en la que nos situemos

En ocasiones nos puede ser útil mostrar los valores que tengamos en una o varias filas en un solo comentario, al situar el ratón sobre una celda de esa fila.

Ejemplo >> En este ejemplo hemos tomado las celdas [ d1:r1000 ] para que al situarnos con el ratón sobre cualquier fila que esté en el cuadrante [ d1:r1000 ] se muestre en el comentario en la celda [ C4 ]
Los valores leídos serán las columnas [ M ] - [ N ] - [ O ]

Desarrollo

1.- Insertamos un comentario en la celda [ C4 ]

Comentarios Excel

2.- Creamos nuestros datos en las columnas [ M ] - [ N ] - [ O ] empezando por ejemplo en la [ fila 1 ]

Datos columnas Comentarios Excel

3.- Le damos Click en Mostrar comentario para así ver mejor el efecto de nuestro ejemplo.

Mostrar u ocultar comentarios y sus indicadores
<< click >>

4.- Insertamos el código en el modulo de la [ hoja1 ] que es donde vamos a realizar este ejemplo:
[al ser un código de evento en cambio de Hoja sería conveniente que lo último a introducir fuera el código]
Modulo de Hoja Visual basic Excel [ Alt + F11 ]

Código >>
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("d1:r1000")) Is Nothing Then Exit Sub
Dim Fila As Integer, Comentario As String: Fila = ActiveCell.Row
Comentario = Range("m" & Fila).Text & vbLf & _
Range("n" & Fila).Text & vbLf & _
Range("o" & Fila).Text & vbLf
Range("c4").Comment.Text "Fila: " & Fila & Chr(10) & Comentario

End Sub

5.- Nos vamos a nuestra [ Hoja1] y nos situamos en la celda [ D1 ] y vemos como nos muestra el Comentario los valores de las columnas [ M ] - [ N ] - [ O ] porque estamos situados en la [ fila 1 ] pero es mejor que hagáis las pruebas oportunas para ver su efecto

Comentarios lectura Filas Excel
6.- Si vamos bajando con el cursor hacia abajo veremos en nuestro comentario los valores correspondientes a la fila [ M ] - [ N ] - [ O ]

Función Leer Comentarios

También en ocasiones hemos necesitado leer los valores de un comentario, ya sea para extraer su valor en una celda, ya sea ...

Ejemplo >>

1.- Tenemos un comentario en la celda [ B4 ]

Comentario Celda

2.- Situamos el código en un Módulo Estandar

Modulo Standar Vba Excel

Código

Function LeerComentario(Celda As Range) As String
On Error GoTo Salida
LeerComentario = Celda.Cells(1).Comment.Text: Exit Function
Salida:
LeerComentario = "Error en comentario !!!"
End Function

3.- Vamos a una celda cualquiera de nuestra hoja de Excel por ejemplo a la celda [ B4 ] e insertamos la función =LeerComentario(B4)

4.- ya tenemos el valor del comentario en nuestra celda

Resultado Funcion LeerComentario

Enlaces de interés sobre comentarios Excel

Excelente artículo de John Walkenbach A User-Define Function Can’t Change The Worksheet
http://spreadsheetpage.com/index.php/oddity/a_user_define...
Comentarios Excel Web Debra Dalgleish http://contextures.com/xlcomments01.html