¿Cómo buscar y reemplazar texto específico en cuadros de texto?
Buscar y reemplazar es una herramienta útil para que busquemos y reemplacemos el contenido de las celdas o las fórmulas de manera rápida y conveniente en una hoja de trabajo. Pero ahora, tengo varios cuadros de texto en mi hoja de trabajo y quiero encontrar el texto específico y reemplazarlo con otro valor solo en estos cuadros de texto. ¿Tiene alguna buena forma de lidiar con este problema?
Busque y reemplace texto específico en varios cuadros de texto
Busque y reemplace texto específico en varios cuadros de texto
Puede encontrar y reemplazar el texto que necesita manualmente uno por uno, pero si hay varios cuadros de texto, esto será aburrido y cansado. Entonces, el siguiente código VBA puede ayudarlo a terminarlo de una vez.
1. Active su hoja de trabajo y mantenga presionada la tecla ALT + F11 teclas para abrir el Ventana de Microsoft Visual Basic para aplicaciones.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.
Código VBA: busque y reemplace texto específico en cuadros de texto de la hoja de trabajo actual
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. Entonces presione F5 para ejecutar este código, y aparecerá un cuadro emergente para recordarle que ingrese el texto anterior que desea reemplazar. Ver captura de pantalla:
4. Sigue haciendo clic OK, y en este cuadro de aviso, escriba el nuevo valor de texto que desee, vea la captura de pantalla:
5. Y luego haz clic OK , los valores antiguos han sido reemplazados por los nuevos valores que ingresó en la hoja de trabajo actual. Ver capturas de pantalla:
Artículos relacionados:
¿Cómo encontrar y reemplazar texto en títulos de gráficos en Excel?
¿Cómo encontrar y reemplazar texto dentro de los comentarios en Excel?
¿Cómo cambiar varias rutas de hipervínculo a la vez en Excel?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!