Kako najti in zamenjati določeno besedilo v besedilnih poljih?

Najdi in zamenjaj je koristno orodje za hitro in priročno iskanje in zamenjavo vsebine celic ali formul na delovnem listu. Zdaj pa imam na delovnem listu več besedilnih polj in želim najti določeno besedilo in ga nadomestiti z drugo vrednostjo samo v teh besedilnih poljih. Ali imate kakšne dobre načine za reševanje te težave?

Poiščite in zamenjajte določeno besedilo v več besedilnih poljih

Poiščite in zamenjajte določeno besedilo v več besedilnih poljih

Besedilo, ki ga potrebujete, lahko poiščete in zamenjate ročno, če pa je besedilnih polj več, bo to dolgočasno in utrujeno. Torej vam lahko naslednja koda VBA pomaga dokončati naenkrat.

1. Aktivirajte svoj delovni list in pridržite ALT + F11 tipke za odpiranje Okno Microsoft Visual Basic for Applications.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.

Koda VBA: poiščite in zamenjajte določeno besedilo v besedilnih poljih trenutnega delovnega lista

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. Nato pritisnite F5 tipko za zagon te kode in pojavilo se bo pozivno polje, ki vas bo opozorilo na vnos starega besedila, ki ga želite zamenjati. Oglejte si posnetek zaslona:

4. Pojdi na klik OKin v to pozivno polje vnesite novo besedilno vrednost, ki jo želite, glejte sliko zaslona:

5. In nato kliknite OK gumba so stare vrednosti zamenjane z novimi vrednostmi, ki ste jih vnesli v trenutni delovni list. Oglejte si posnetke zaslona:

Sorodni članki:

Kako najti in zamenjati besedilo v naslovih grafikonov v Excelu?

Kako najti in nadomestiti besedilo v komentarjih v Excelu?

Kako spremeniti več poti hiperpovezav hkrati v Excelu?