Como encontrar e substituir texto em títulos de gráficos no Excel?
Os gráficos são muito úteis para nós no Excel, e frequentemente atribuímos a eles alguns títulos para identificá-los. Mas você já tentou encontrar e substituir o valor de texto nos títulos de gráficos dentro de múltiplos gráficos? Hoje, vou falar sobre como encontrar um texto específico em múltiplos títulos de gráficos e substituí-los por outro valor no Excel.
Encontrar e substituir texto em títulos de gráficos no Excel com código VBA
Encontrar e substituir texto em títulos de gráficos no Excel com código VBA
Suponha que você tenha uma planilha que contém os gráficos, conforme mostrado na captura de tela a seguir, e você deseja substituir o texto Janeiro por Fevereiro em todos os títulos dos gráficos. Claro, você pode alterá-los manualmente um por um, mas isso será demorado se houver vários gráficos. Então aqui, o seguinte código VBA pode ajudá-lo a lidar com essa tarefa.
1. Ative sua planilha que contém os gráficos nos quais você deseja encontrar e substituir nos títulos.
2. Pressione as teclas ALT + F11, e abrirá a janela Microsoft Visual Basic for Applications.
3. Clique em Inserir > Módulo, e cole o seguinte código na Janela do Módulo.
Código VBA: Encontrar e substituir texto em títulos de gráficos na planilha 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, pressione a tecla F5 para executar este código, e uma caixa de prompt aparecerá para lembrá-lo de inserir o texto antigo que deseja substituir, veja a captura de tela:
5. Depois clique no botão OK, e outra caixa de prompt aparece, você precisa digitar o novo valor de texto que deseja usar para substituir o antigo, veja a captura de tela:
6. Continue clicando em OK para fechar a caixa de prompt, e seus textos antigos terão sido substituídos pelos novos de uma só vez na planilha atual, conforme mostrado na captura de tela a seguir:
Observação: Se você precisar encontrar e substituir o valor de texto dos títulos de gráficos em todas as planilhas de uma pasta de trabalho, deverá aplicar o seguinte código VBA: (O procedimento é o mesmo que o acima)
Código VBA: Encontrar e substituir texto em títulos de gráficos em todas as planilhas
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 encontrar e substituir texto dentro de comentários no Excel?
Como encontrar e substituir texto específico em várias caixas de texto no Excel?
Como alterar vários caminhos de hiperlinks de uma só vez no Excel?
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins