Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

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

Iskanje in zamenjava je uporabno orodje za iskanje in zamenjavo celičnih vsebin ali formul hitro in priročno v delovnem listu. Zdaj pa imam v svojem delovnem listu več besedilnih polj in želim najti določeno besedilo in ga nadomestiti z drugo vrednostjo samo v teh besedilnih poljih. Imate kakšne dobre načine za reševanje tega problema?

Poiščite in nadomestite določeno besedilo v več poljih z besedilom


puščica modra desno mehurček Poiščite in nadomestite določeno besedilo v več poljih z besedilom


Besedilo in besedila, ki jih potrebujete ročno, najdete in zamenjate eno za drugo, če pa je več besedilnih oken, bo to dolgočasno in utrujeno. Tako vam lahko ta kodo VBA takoj pomaga.

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

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Okno modula.

VBA koda: poiščite in nadomestite 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:", 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 ključ za zagon te kode, in se bo oglasno polje odprlo, da vas opomni, da vnesete staro besedilo, ki ga želite zamenjati. Prikaz slike:

doc-replace-text-boxes1

4. Pojdite s klikom OKin v tem pozivnem polju vnesite novo želeno vrednost besedila, glejte sliko zaslona:

doc-replace-text-boxes1

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

doc-replace-text-boxes3
-1
doc-replace-text-boxes4

Sorodni članki:

Kako najti in zamenjati besedilo v naslovih grafikonov v Excelu?

Kako najti in zamenjati besedilo v komentarjih v Excelu?

Kako spremeniti več poti hiperpovezave naenkrat v Excelu?



Priporočena orodja za produktivnost za Excel

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jeremy · 1 months ago
    Great, thanks! This was VERY handy to adapt for my specific use.
  • To post as a guest, your comment is unpublished.
    Jeremy · 1 months ago
    Great, thanks! This was VERY handy to adapt for my specific use.
  • To post as a guest, your comment is unpublished.
    Carlos · 3 months ago
    How can I do the same in Kutool for Word
  • To post as a guest, your comment is unpublished.
    Aliya · 8 months ago
    I am still not sure how to do find and replaced, to know how to use the VBA codes needs to be more clear
  • To post as a guest, your comment is unpublished.
    Yaseen · 1 years ago
    Hello, it works great on a single sheet. I wanted to know how can I have this work for the workbook having multiple sheets. Thanks