Obtenga una lista de todos los comentarios de una hoja de trabajo en Excel

Si trabaja con hojas de trabajo de Excel que contienen muchos comentarios de celdas en una hoja de cálculo, este tutorial puede ser útil. A veces, puede insertar comentarios de celdas para resaltar o explicar datos, o bien su cabeza puede insertar comentarios en las celdas mientras revise su trabajo.

Si tiene un conjunto de datos enorme y los comentarios están repartidos por toda la hoja de trabajo, puede ser útil tener todos los comentarios en un solo lugar como lista.

Obtenga una lista de todos los comentarios de una hoja de trabajo

En este tutorial, te mostraré cómo utilizar un código VBA para obtener una lista de todos los comentarios de una hoja de trabajo en una hoja de trabajo independiente.

Algo como se muestra a continuación:

Obtenga una lista de todos los comentarios de una hoja de trabajo en Excel: demostración

Hay un código VBA en el dorsal que hace las cosas siguientes:

  • Comprueba si hay comentarios en la hoja de trabajo activo o no. Si no hay comentarios, se inclina tranquilamente y no hace nada.
  • Si hay comentarios en la hoja de trabajo, se crea una hoja de trabajo nuevo ( “Comentarios”) y extrae una lista de todos los comentarios de la estructura siguiente:
    • La columna A tiene la dirección de la celda que contiene el comentario.
    • La columna B tiene el nombre del comentarista. Esto es útil si hay varios revisores del mismo fichero. También ayudará a filtrar / ordenar en función del nombre de los revisores.
    • La columna C contiene el comentario.

Descargue el archivo de ejemplo
Descarga el archivo

El código VBA

Aquí tiene el código VBA que hace toda la carga pesada aquí.

Sub ExtractComments()
Dim ExComment As Comment
Dim i As Integer
Dim ws As Worksheet
Dim CS As Worksheet
Set CS = ActiveSheet
If ActiveSheet.Comments.Count = 0 Then Exit Sub

For Each ws In Worksheets
  If ws.Name = "Comments" Then i = 1
Next ws
    
If i = 0 Then
  Set ws = Worksheets.Add(After:=ActiveSheet)
  ws.Name = "Comments"
Else: Set ws = Worksheets("Comments")
End If

For Each ExComment In CS.Comments
  ws.Range("A1").Value = "Comment In"
  ws.Range("B1").Value = "Comment By"
  ws.Range("C1").Value = "Comment"
  With ws.Range("A1:C1")
    .Font.Bold = True
    .Interior.Color = RGB(189, 215, 238)
    .Columns.ColumnWidth = 20
  End With
  If ws.Range("A2") = "" Then
    ws.Range("A2").Value = ExComment.Parent.Address
    ws.Range("B2").Value = Left(ExComment.Text, InStr(1, ExComment.Text, ":") - 1)
    ws.Range("C2").Value = Right(ExComment.Text, Len(ExComment.Text) - InStr(1, ExComment.Text, ":"))
  Else
    ws.Range("A1").End(xlDown).Offset(1, 0) = ExComment.Parent.Address
    ws.Range("B1").End(xlDown).Offset(1, 0) = Left(ExComment.Text, InStr(1, ExComment.Text, ":") - 1)
    ws.Range("C1").End(xlDown).Offset(1, 0) = Right(ExComment.Text, Len(ExComment.Text) - InStr(1, ExComment.Text, ":"))
  End If
Next ExComment
End Sub

Cómo utilizar este código

Hay un par de maneras en que puede utilizar este código para obtener una lista de comentarios de la hoja de cálculo:

# 1 Copie pega datos en el archivo de ejemplo

Copia y pega sus datos (tal cual) en la pestaña Datos del archivo de descarga y, a continuación, ejecute esta macro.

Para ejecutar esto:

  • Ve a la pestaña Desarrollador y haga clic en Macros. Abrirá el cuadro de diálogo Macro.Obtenga una lista de todos los comentarios de una hoja de cálculo en Excel: botón de macro
  • Seleccione ExtractComment y haga clic en Ejecutar. Asegúrese de que usted en la hoja que contiene los comentarios que desea extraer.Obtenga una lista de todos los comentarios de una hoja de cálculo en Excel: ejecute la macro

# 2 Copiar Pegar el código en el libro de trabajo

Copiar el código y péguelo en el libro de trabajo del que desee extraer los comentarios.

Hacer esto:

  • Active el libro de trabajo donde está trabajando y presione Alt + F11. Se abrirá la ventana del editor VB.Obtenga una lista de todos los comentarios de una hoja de cálculo en Excel - VBE
  • En el Explorador de proyectos de la izquierda, haga clic con el botón derecho sobre cualquiera de los objetos del libro, vaya a Insertar -> Módulo.Obtenga una lista de todos los comentarios de una hoja de cálculo en Excel: inserte el módulo
  • Pegue el código en la ventana del código del módulo.
  • Cierre la ventana del editor VB (o presione Alt + F11 para volver a la hoja de trabajo).

Ahora tiene la macro en su libro. Para ejecutar la macro, vaya a la pestaña Desarrollador -> Macros. En el cuadro de diálogo Macro, seleccione la macro ExtractComment y haga clic en Ejecutar.

Nota: asegúrese de guardar el libro con la extensión .XLS o .XLSM.

# 3 Cree un complemento

Si va a utilizar este código menudo, es mejor crear un complemento. De este modo, puede utilizar fácilmente en cualquier libro (sin el esfuerzo adicional de copiar el código una y otra vez).

A continuación se explica cómo crear un complemento:

  • Vaya a Archivo -> Guardar como.Obtenga una lista de todos los comentarios de una hoja de cálculo en Excel - Guardar como
  • En el cuadro de diálogo Guardar como, cambie el tipo Guardar como .xlam.
    • Notará que la ruta del archivo donde se guarda cambia automáticamente. Puede cambiarlo si lo desea.Obtenga una lista de todos los comentarios de una hoja de cálculo en Excel: guarde como xlam
  • Abra un libro de trabajo de Excel y vaya a Desarrollador -> Complementos -> Complementos de Excel.Obtenga una lista de todos los comentarios de una hoja de cálculo en Excel - Addin
  • En el cuadro de diálogo Complementos, busque y localice el archivo que ha guardado y haga clic en Aceptar.Obtenga una lista de todos los comentarios de una hoja de cálculo en Excel: active el complemento

Una vez activado un complemento, puede utilizarse en cualquier libro. Para hacerlo, vaya a Desarrollador -> Macros. En el cuadro de diálogo Macro, seleccione la macro ExtractComment y ejecutarlo la.

Descargue el archivo de ejemplo
Descarga el archivo

Espero que este código le ahorre un poco de tiempo. Hacedme saber sus opiniones en la sección de comentarios.

Si trabaja con Excel, VBA podría ser un poderoso aliado. Lleve sus habilidades de Excel al siguiente nivel con el curso Excel VBA.

También te pueden gustar los siguientes tutoriales de Excel:

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *