Как найти и заменить определенный текст в текстовых полях?
Найти и заменить - это полезный инструмент для быстрого и удобного поиска и замены содержимого ячеек или формул на листе. Но теперь у меня есть несколько текстовых полей на моем листе, и я хочу найти конкретный текст и заменить его другим значением только в этих текстовых полях. Есть ли у вас хорошие способы справиться с этой проблемой?
Найти и заменить определенный текст в нескольких текстовых полях
Найти и заменить определенный текст в нескольких текстовых полях
Вы можете найти и заменить нужный текст вручную по одному, но если текстовых полей несколько, это будет скучно и утомительно. Итак, следующий код 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?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
