Como localizar e substituir texto em títulos de gráficos no Excel?
Os gráficos são extremamente úteis no Excel e, frequentemente, atribuímos-lhes títulos para facilitar a sua identificação. Mas já tentou utilizar a função Localizar e Substituir para alterar texto em títulos de gráficos em múltiplos gráficos de uma só vez? Hoje, vou mostrar-lhe como encontrar um texto específico nos títulos de vários gráficos e substituí-lo por outro valor diretamente no Excel.
Localizar e Substituir texto em Títulos de Gráficos no Excel com código VBA
Localizar e Substituir texto em Títulos de Gráficos no Excel com código VBA
Imagine que tem uma folha de cálculo com gráficos, como mostra a imagem seguinte, e pretende substituir o texto «Janeiro» por «Fevereiro» exclusivamente em todos os títulos dos gráficos. É claro que pode alterá-los manualmente, um a um, mas isso torna-se demorado se houver muitos gráficos. Por isso, o código VBA seguinte pode ajudá-lo a realizar esta tarefa de forma rápida e eficaz.
1. Ative a folha de cálculo que contém os gráficos cujos títulos pretende localizar e substituir.
2. Mantenha premidas as teclas ALT + F11, o que abre 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: Localizar e Substituir texto em Títulos de Gráficos na folha de cálculo ativa
Sub ChartLabelReplace()
'Update 20140603
Dim xWs As Worksheet
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace:", xTitleId, "", Type:=2)
Set xWs = Application.ActiveSheet
For Each ch In xWs.ChartObjects
If ch.Chart.HasTitle Then
ch.Chart.ChartTitle.Text = VBA.Replace(ch.Chart.ChartTitle.Text, xFindStr, xReplace, 1)
End If
Next
End Sub
4. Em seguida, prima a tecla F5 para executar este código e surgirá uma caixa de diálogo a solicitar que introduza o texto antigo que pretende substituir, conforme ilustrado:
5. Depois, clique no botão OK e aparecerá outra caixa de diálogo, onde deverá introduzir o novo valor de Texto Novo que pretende utilizar em vez do anterior, conforme ilustrado:
6. Continue a clicar em OK para fechar a caixa de diálogo e os seus Texto Antigo terão sido substituídos pelos novos valores simultaneamente na Planilha Atual, tal como mostra a imagem seguinte:
Nota: Se precisar de Localizar e Substituir o valor de texto de Títulos de Gráficos em todas as folhas de cálculo de um livro, deve aplicar o seguinte código VBA: (o procedimento é idêntico ao descrito acima)
Código VBA: Localizar e Substituir texto em Títulos de Gráficos em todas as folhas de cálculo
Sub ChartLabelReplaceAllWorksheet()
'Update 20140603
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace:", xTitleId, "", Type:=2)
For Each sh In Worksheets
For Each ch In sh.ChartObjects
If ch.Chart.HasTitle Then
ch.Chart.ChartTitle.Text = VBA.Replace(ch.Chart.ChartTitle.Text, xFindStr, xReplace, 1)
End If
Next
Next
End Sub
Artigos relacionados:
Como localizar e substituir texto em comentários no Excel?
Como localizar e substituir texto específico em várias caixas de texto do Excel?
Como alterar vários caminhos de hiperligação de uma só vez 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