Como localizar e substituir texto específico em caixas de texto no Excel?
A ferramenta Localizar e Substituir é um recurso essencial para atualizar rapidamente o conteúdo ou fórmulas das células dentro de uma planilha. No entanto, gerenciar o texto dentro de várias caixas de texto pode ser um desafio se você estiver limitado a atualizações manuais. Se precisar localizar texto específico em caixas de texto e substituí-lo de forma eficiente, este tutorial irá guiá-lo no uso de código VBA para realizar essa tarefa em poucos passos.
Localizar e substituir texto específico em várias caixas de texto
Localizar e substituir texto específico em várias caixas de texto
Você pode localizar e substituir o texto manualmente um por um, mas esse processo se torna tedioso e demorado ao lidar com várias caixas de texto. O seguinte código VBA oferece uma maneira eficiente de concluir essa tarefa de uma só vez.
1. Ative sua planilha e pressione as teclas ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.
Código VBA: Localizar e substituir texto específico em caixas de texto da planilha atual
Sub TextBoxReplace()
'Updateby20140603
Dim xWs As Worksheet
Dim shp As Shape
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace with:", xTitleId, "", Type:=2)
Set xWs = Application.ActiveSheet
On Error Resume Next
For Each shp In xWs.Shapes
xValue = shp.TextFrame.Characters.Text
shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next
End Sub
3. Em seguida, pressione a tecla F5 para executar este código, e uma caixa de diálogo aparecerá para lembrá-lo de inserir o texto antigo que deseja substituir. Veja a captura de tela:
4. Continue clicando em OK, e nesta caixa de diálogo, digite o novo valor de texto que deseja. Veja a captura de tela:
5. Depois, clique no botão OK, os valores antigos terão sido substituídos pelos novos valores que você inseriu na planilha atual. Veja as capturas de tela:
 |
 |
 |
Artigos relacionados:
Como localizar e substituir texto em títulos de gráficos no Excel?
Como localizar e substituir texto dentro de comentários no Excel?
Como alterar vários caminhos de hiperlinks de uma 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