Como localizar e substituir texto específico em caixas de texto?
Localizar e substituir é uma ferramenta útil para localizarmos e substituirmos o conteúdo das células ou fórmulas de forma rápida e conveniente em uma planilha. Mas agora, tenho várias caixas de texto em minha planilha e quero encontrar o texto específico e substituí-lo por outro valor apenas nessas caixas de texto. Você tem boas maneiras de lidar com esse problema?
Encontre e substitua texto específico em várias caixas de texto
Encontre e substitua texto específico em várias caixas de texto
Você pode localizar e substituir o texto de que precisa manualmente, um por um, mas se houver várias caixas de texto, isso será enfadonho e cansativo. Portanto, o seguinte código VBA pode ajudá-lo a concluí-lo imediatamente.
1. Ative sua planilha e mantenha pressionado o ALT + F11 chaves para abrir o Janela Microsoft Visual Basic for Applications.
2. Clique inserção > Móduloe cole o seguinte código no Janela Módulo.
Código VBA: encontre e substitua o texto específico nas 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. Então aperte 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 imagem:
4. Continue clicando OK, e nesta caixa de prompt, digite o novo valor de texto que você deseja, veja a captura de tela:
5. E, em seguida, clique em OK , os valores antigos foram substituídos pelos novos valores inseridos 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 em comentários no Excel?
Como alterar vários caminhos de hiperlink de uma vez no Excel?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!