Obtenha uma lista de todos os comentários em uma planilha no Excel

Se você trabalha com planilhas do Excel que possuem muitos comentários de células em uma planilha, este tutorial pode ser útil. Às vezes, você pode inserir comentários nas células para destacar ou explicar os dados, ou seu chefe pode inserir comentários nas células ao revisar seu trabalho.

Se você tiver um conjunto de dados enorme e os comentários estiverem espalhados por toda a planilha, pode ser útil ter todos os comentários em um único lugar como uma lista.

Obtenha uma lista de todos os comentários em uma planilha

Neste tutorial, mostrarei como usar um código VBA para obter uma lista de todos os comentários em uma planilha em uma planilha separada.

Algo conforme mostrado abaixo:

Há um código VBA no back-end que faz o seguinte:

• Ele verifica se há algum comentário na planilha ativa ou não. Se não houver comentários, ele se retrai silenciosamente e não faz nada.
• Se houver comentários na planilha, ele cria uma nova planilha (“Comentários”) e extrai uma lista de todos os comentários na seguinte estrutura:
  • A coluna A contém o endereço da célula que contém o comentário.
  • A coluna B tem o nome do comentador. Isso é útil se houver vários revisores no mesmo arquivo. Também ajudará a filtrar / classificar com base no nome dos revisores.
  • A coluna C tem o comentário.

Baixe o arquivo de exemplo

O Código VBA

Aqui está o código VBA que faz todo o trabalho pesado aqui.

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 para cada ws nas planilhas 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. Intervalo ("A1"). Valor = "Comentário em" ws.Range ("B1"). Valor = "Comentário por" ws.Range ("C1"). Valor = "Comentário" Com 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

Como usar este código

Existem algumas maneiras de usar este código para obter uma lista de comentários de sua planilha:

# 1 Copiar e colar dados no arquivo de exemplo

Copie, cole seus dados (no estado em que se encontram) na guia Dados do arquivo de download e execute esta macro.

Para executar isso:

• Vá para a guia Desenvolvedor e clique em Macros. Isso abrirá a caixa de diálogo Macro.
• Selecione Extrair Comentário e clique em Executar. Certifique-se de estar na planilha que contém os comentários que deseja extrair.

# 2 Copie e cole o código em sua pasta de trabalho

Copie o código e cole-o na pasta de trabalho da qual deseja extrair os comentários.

Para fazer isso:

• Ative a pasta de trabalho na qual você está trabalhando e pressione Alt + F11. Isso abrirá a janela do Editor VB.
• No Project Explorer à esquerda, clique com o botão direito em qualquer um dos objetos para aquela pasta de trabalho, vá para Inserir -> Módulo.
• Cole o código na janela de código do módulo.
• Feche a janela do editor VB (ou pressione Alt + F11 para voltar à planilha).

Agora você tem a macro em sua pasta de trabalho. Para executar a macro, vá para a guia Desenvolvedor -> Macros. Na caixa de diálogo Macro, selecione a macro Extrair Comentário e clique em Executar.

Observação: certifique-se de salvar a pasta de trabalho com .Extensão XLS ou .XLSM.

# 3 Crie um Add-in

Se você precisa usar esse código com frequência, é melhor criar um suplemento a partir dele. Dessa forma, você pode usá-lo facilmente em qualquer pasta de trabalho (sem o esforço adicional de copiar e colar o código repetidamente).

Aqui está como criar um Add-in:

• Vá para Arquivo -> Salvar como.
• Na caixa de diálogo Salvar como, altere o tipo Salvar como para .xlam.
  • Você notará que o caminho do arquivo onde ele é salvo muda automaticamente. Você pode alterá-lo se quiser.
• Abra uma pasta de trabalho do Excel e vá para Desenvolvedor -> Suplementos -> Suplementos do Excel.
• Na caixa de diálogo Add-ins, navegue e localize o arquivo que você salvou e clique em OK.

Depois que um suplemento é ativado, você pode usá-lo em qualquer pasta de trabalho. Para fazer isso, vá para Desenvolvedor -> Macros. Na caixa de diálogo Macro, selecione a macro ExtractComment e execute-a.

Baixe o arquivo de exemplo

Espero que este código economize algum tempo. Deixe-me saber sua opinião na seção de comentários.

Se você trabalha com Excel, o VBA pode ser um aliado poderoso. Leve suas habilidades de Excel para o próximo nível com o Curso de Excel VBA.