You kan finne og erstatte tekst som du trenger manuelt en etter en, men hvis det er flere tekstbokser, vil dette være kjedelig og trøtt. Så følgende VBA-kode kan hjelpe deg med å fullføre den på en gang.
1. Aktiver regnearket, og hold nede ALT + F11-tastene for å åpne Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Finne og erstatte bestemt tekst i tekstbokser av gjeldende regneark
Sub TextBoxReplace () 'Updateby20140603Dim xWs Som WorksheetDim SHP Som ShapeDim xFindStr Som StringDim xReplace Som StringxFindStr = Application.InputBox ("Finn:", xTitleId, "", Type: = 2) xReplace = Application.InputBox ("erstatt:", xTitleId, "", Type: = 2) Set xWs = Application.ActiveSheetOn Error Resume NextFor Hver SHP I xWs.Shapes xVerdi = shp.TextFrame.Characters.Text shp.TextFrame.Characters.Text = VBA.Replace (xVerdi, xFindStr, xReplace, 1) NextEnd Sub3. Deretter trykker F5 for å kjøre denne koden, og en rask boks vil komme ut for å minne deg på å legge inn din gamle teksten du vil erstatte. Se skjermbilde:
4. Gå på å klikke OK, og i denne meldingen skriver den nye teksten verdien du vil bruke, se skjermbilde:
5. Og klikk deretter på OK-knappen, har de gamle verdiene blitt erstattet med de nye verdiene som du skrev inn i gjeldende regneark. Se skjermbilder: