Как да намерите и замените определен текст в текстови полета?
Търсене и замяна е полезен инструмент за намиране и замяна на съдържанието на клетки или формули бързо и удобно в работен лист. Но сега имам множество текстови полета в моя работен лист и искам да намеря конкретния текст и да го заменя с друга стойност само в тези текстови полета. Имате ли добри начини да се справите с този проблем?
Намерете и заменете определен текст в множество текстови полета
Намерете и заменете определен текст в множество текстови полета
Можете да намерите и замените текста, от който се нуждаете, ръчно един по един, но ако има няколко текстови полета, това ще бъде скучно и уморено. Така че следният 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 за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!