Як знайти та замінити конкретний текст у текстових полях?
Знайти та замінити - це корисний інструмент для того, щоб швидко та зручно знаходити та замінювати вміст комірок або формули на робочому аркуші. Але зараз у мене на робочому аркуші є кілька текстових полів, і я хочу знайти конкретний текст і замінити його іншим значенням лише в цих текстових полях. Чи є у вас якісь способи вирішити цю проблему?
Пошук і заміна конкретного тексту в декількох текстових полях
Пошук і заміна конкретного тексту в декількох текстових полях
Ви можете знайти і замінити текст, який вам потрібен, по черзі, але якщо є кілька текстових полів, це буде нудно і втомлено. Тож наступний код VBA може допомогти вам закінчити його відразу.
1. Активуйте робочий аркуш і утримуйте ALT + F11 ключі, щоб відкрити Вікно Microsoft Visual Basic для програм.
2. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.
Код 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 для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!