Como destacar todos os comentários no Excel?
O comentário é uma funcionalidade útil para inserir informações importantes no Excel. Após a sua inserção, surge um pequeno indicador vermelho na célula. No entanto, por vezes, esses indicadores não são suficientemente visíveis — por isso, pode destacar todos os comentários com uma cor específica, tornando-os mais evidentes. Leia este artigo para saber mais detalhes.
Destacar todos os Comentário com a função Ir Para Especial
Destacar todos os Comentário com código VBA
Destacar todos os Comentário com a função Ir Para Especial
No Excel, pode começar por selecionar todas as células que contêm comentários e, de seguida, aplicar-lhes a cor pretendida. Siga os passos abaixo:
1. Selecione o intervalo de dados ou toda a folha de cálculo onde pretende destacar os comentários.
2. Em seguida, clique em Base > Localizar e Selecionar > Ir Para Especial. Veja a captura de ecrã:
Dica: Pode utilizar o atalho Ctrl + G para abrir a caixa de diálogo Ir Para e, em seguida, clicar em Especial para abrir a caixa de diálogo Ir Para Especial.
3. Na caixa de diálogo Ir Para Especial, marque a opção Comentários. Veja a captura de ecrã:
4. Em seguida, clique em OK para fechar esta caixa de diálogo e todos os comentários serão selecionados na sua seleção. Veja a captura de ecrã:
5. Após selecionar as células com comentários, clique no ícone Cor de preenchimento sob o separador Base e escolha uma cor à sua preferência. Todos os comentários selecionados serão coloridos de imediato — veja a captura de ecrã:
Destacar todos os Comentário com código VBA
Também pode destacar e colorir imediatamente todos os Comentário na folha de cálculo ativa utilizando o seguinte código VBA:
1. Ative a folha de cálculo em que pretende destacar as células com comentários.
2. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
3. Clique em Inserir > Módulo e cole o código seguinte na Janela do Módulo.
Código VBA: destacar todos os Comentário
Sub ColorComments()
'Update 20141110
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeComments)
Application.ScreenUpdating = False
For Each Rng In WorkRng
Rng.Interior.ColorIndex = 36
Next
Application.ScreenUpdating = True
End Sub
4. Em seguida, prima a tecla F5 para executar este código e surgirá uma caixa de aviso a solicitar que selecione o intervalo onde pretende destacar as células com comentários. Veja a captura de ecrã:
5. Depois, clique em OK e todos os comentários na sua seleção serão destacados a cores.
Nota:
No código acima, pode alterar o código de cor no script Rng.Interior.ColorIndex = 36 conforme desejar.
Artigos relacionados:
Como repor todas as posições dos comentários no Excel?
Como alterar a cor do indicador de comentários no Excel?
Como adicionar automaticamente a data e a hora a um comentário no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos