Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com es pot trobar i reemplaçar text específic en quadres de text?

Find and Replace és una eina útil per a nosaltres trobar i reemplaçar els continguts o fórmules de les cel·les de forma ràpida i còmoda en un full de càlcul. Però ara, tinc diversos quadres de text al meu full de càlcul i vull trobar el text específic i substituir-lo per un altre valor només en aquests quadres de text. Teniu bones maneres de fer front a aquest problema?

Cerqueu i reemplaça text específic en diversos quadres de text


fletxa blau dreta bombolla Cerqueu i reemplaça text específic en diversos quadres de text


Podeu trobar i reemplaçar el text que necessiteu manualment un per un, però si hi ha diversos quadres de text, això serà avorrit i cansat. Així, el següent codi VBA us pot ajudar a finalitzar-lo alhora.

1. Activeu el vostre full de càlcul i mantingueu premut el ALT + F11 claus per obrir el Finestra de Microsoft Visual Basic per a aplicacions.

2. Clic Insereix > Mòduls, i enganxeu el següent codi al Finestra de mòduls.

Codi VBA: cerqueu i reemplaceu el text específic en quadres de text del full de càlcul actual

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. A continuació, premeu F5 la clau per executar aquest codi i apareixerà una caixa ràpida per recordar-vos que introduïu el text antic que voleu reemplaçar. Mostra la captura de pantalla:

doc-replace-text-boxes1

4. Continua fent clic OK, i en aquest quadre de llista ràpida, escriviu el valor de text nou que voleu, vegeu la captura de pantalla:

doc-replace-text-boxes1

5. A continuació, feu clic a OK , els valors antics s'han substituït amb els nous valors que heu introduït al full de càlcul actual. Veure captures de pantalla:

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

Articles relacionats:

Com es pot trobar i substituir text en títols de gràfics d'Excel?

Com es pot trobar i reemplaçar el text dels comentaris a Excel?

Com es canvien diverses rutes d'hipervincles alhora a Excel?



Eines de productivitat recomanades

Pestanya d'Office

estrella d'or1 Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel

estrella d'or1 Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d'or1 300 Noves característiques per a Excel, Excel molt fàcil i potent:

  • Combina cel·les / files / columnes sense perdre dades.
  • Combina i consolida diverses fulles i llibres.
  • Comparar intervals, copiar diversos rangs, convertir text a data, unitat i conversió de divises.
  • Compte per colors, subtotals de paginació, classificació avançada i filtre súper,
  • Més Seleccioneu / Insereix / Suprimeix / Text / Format / Enllaç / Comentari / Llibres / Eines de full de càlcul ...

Tret de pantalla de Kutools per a Excel

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.
    Aliya · 5 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 · 11 months 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
  • To post as a guest, your comment is unpublished.
    Tomas · 1 years ago
    How can one find modifications done in text boxes of an Excel file, please? The utility "Spreadsheet Compare" shows many types of modifications between two versions of the same file but not when the changes concern text boxes. Thank you.