Как найти и заменить определенный текст в текстовых полях?

Найти и заменить - это полезный инструмент для быстрого и удобного поиска и замены содержимого ячеек или формул на листе. Но теперь у меня есть несколько текстовых полей на моем листе, и я хочу найти конкретный текст и заменить его другим значением только в этих текстовых полях. Есть ли у вас хорошие способы справиться с этой проблемой?

Найти и заменить определенный текст в нескольких текстовых полях

Найти и заменить определенный текст в нескольких текстовых полях

Вы можете найти и заменить нужный текст вручную по одному, но если текстовых полей несколько, это будет скучно и утомительно. Итак, следующий код VBA может помочь вам сразу закончить его.

1. Активируйте свой рабочий лист и удерживайте ALT + F11 , чтобы открыть Окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код VBA: поиск и замена определенного текста в текстовых полях текущего рабочего листа

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. Затем нажмите F5 нажмите клавишу для запуска этого кода, и появится диалоговое окно, напоминающее вам о вводе старого текста, который вы хотите заменить. Смотрите скриншот:

4. Продолжайте нажимать OKи в этом поле приглашения введите новое текстовое значение, которое вы хотите, см. снимок экрана:

5, Затем нажмите OK Кнопка старые значения были заменены новыми значениями, которые вы ввели в текущий рабочий лист. Смотрите скриншоты:

Статьи по теме:

Как найти и заменить текст в заголовках диаграмм в Excel?

Как найти и заменить текст в комментариях в Excel?

Как изменить сразу несколько путей гиперссылок в Excel?