Como localizar e substituir texto específico em caixas de texto no Excel?
A ferramenta Localizar e Substituir é uma funcionalidade essencial para atualizar rapidamente conteúdos ou fórmulas em células de uma folha de cálculo. No entanto, gerir texto em múltiplas Caixas de Texto pode tornar-se um desafio quando se está limitado a atualizações manuais. Se precisar de localizar texto específico em Caixas de Texto e substituí-lo de forma eficiente, este tutorial irá guiá-lo na utilização de código VBA para realizar essa tarefa em apenas alguns passos.
Localizar e Substituir texto específico em múltiplos Caixa de Texto
Localizar e Substituir texto específico em múltiplos Caixa de Texto
Pode substituir manualmente o texto um a um, mas esse processo torna-se tedioso e demorado ao lidar com múltiplas Caixas de Texto. O código VBA seguinte oferece uma forma eficiente de concluir esta tarefa de uma só vez.
1. Ative a sua folha de cálculo e prima em simultâneo as teclas ALT + F11 para abrir a janela do 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 Caixa de Texto de 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, 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. Veja a imagem:
4. Clique em OK e, nesta caixa de diálogo, digite o valor pretendido para Texto Novo. Veja a imagem:
5. Depois, clique no botão OK e os valores antigos serão substituídos pelos novos valores que introduziu na Planilha Atual. Veja as imagens:
 |
 |
 |
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 hiperligações 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