Ir para o conteúdo principal

Como alterar todos os formatos de comentários em células no Excel?

Quando inserimos comentários em uma planilha, às vezes, podemos precisar alterar os formatos de comentários padrão, se houver alguns comentários, podemos alterá-los manualmente, mas se houver centenas de comentários que precisam ser alterados, como resolver isso ?

Alterar todos os formatos de comentário com código VBA

Uma ferramenta útil para alterar todos os formatos de comentários rapidamente e economizando tempo


seta azul bolha direita Alterar todos os formatos de comentário com código VBA

Com o seguinte código VBA, você pode alterar o tamanho da fonte e a fonte dos comentários nas células, mas não pode alterar as cores da fonte. por favor, use o seguinte VBA como:

1. Clique Developer > Visual Basic, Uma nova Microsoft Visual Basic para aplicativos janela será exibida, clique inserção > Móduloe copie e cole os seguintes códigos no módulo:

Sub FormatAllComments()
'Updateby20140509
Dim xWs As Worksheet
Dim xComment As Comment
For Each xWs In Application.ActiveWorkbook.Worksheets
    For Each xComment In xWs.Comments
        With xComment.Shape.TextFrame.Characters.Font
            .Name = "Times New Roman"
            .Size = 14
        End With
    Next
Next
End Sub

No código acima, você pode definir o .Nome e .Tamanho variáveis ​​como você gostaria.

2. Então clique doc-change-comment-format-1 botão para executar o código. E então clique Avaliações > Mostrar todos os comentários para visualizar os comentários, todos os formatos de comentários em toda a pasta de trabalho foram alterados. Veja as capturas de tela:

doc-alterar-comentário-formato1 -2 doc-alterar-comentário-formato2

seta azul bolha direita Uma ferramenta útil para alterar todos os formatos de comentários rapidamente e economizando tempo

Se desejar alterar rapidamente outros tipos de formato para todos os comentários, você pode tentar usar o Comentários de formato of Kutools for Excel.

Kutools for Excel: com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. Get it Now

Depois de instalar o Kutools for Excel, siga as seguintes etapas para alterar os formatos dos comentários:

1. Formate um comentário com o estilo que deseja aplicar a outros comentários.

2. Clique Kutools > Mais > Comentários de formato, veja a captura de tela:

3. No Comentários de formato caixa de diálogo, clique em Formato guia e escolha o escopo que deseja alterar o formato do comentário, você pode escolher Folha ativa or Todas as folhas. Então clique Especifique a célula de comentário para selecionar a célula que contém o formato de comentário específico que você deseja aplicar. Em seguida, outra caixa de diálogo aparecerá para informar o número de células alteradas. Veja a imagem:

4. Então clique Ok > Cancelar botões para fechar a caixa de diálogo, e o formato de comentário da célula selecionado foi aplicado a outros comentários.

Observações:

Se você não quiser usar o estilo de fonte em negrito em todas as células de comentários, verifique Forçar formatação sem negrito opção.

Para obter informações mais detalhadas sobre Comentários de formato , Visite Formato de descrição do recurso de comentários.


Artigos relacionados:

Melhores ferramentas de produtividade de escritório

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo.  Clique aqui para obter o recurso que você mais precisa...

Descrição


Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks for this bit of code. It worked for me. But, I would also like to stretch the width property so the increase size text will show the way I like it. Recorder records what you see below, but I can't figure out how to get this into the For Each loop. Selection.ShapeRange.ScaleWidth 1.63, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.ScaleHeight 1.98, msoFalse, msoScaleFromTopLeft Any advice on how to update the code for this extra little trick? Thanks!
This comment was minimized by the moderator on the site
Hi, I join myself to the thanksgiving. The piece of code did work perfectly! Thx again!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations