Hvordan finder man og erstatter specifik tekst i tekstfelter?
Find og erstat er et nyttigt værktøj for os til hurtigt og bekvemt at finde og udskifte celleindhold eller formler i et regneark. Men nu har jeg flere tekstfelter i mit regneark, og jeg vil kun finde den specifikke tekst og kun erstatte den med en anden værdi i disse tekstfelter. Har du gode måder at håndtere dette problem på?
Find og erstat specifik tekst i flere tekstfelter
Find og erstat specifik tekst i flere tekstfelter
Du kan finde og erstatte den tekst, du har brug for manuelt en efter en, men hvis der er flere tekstfelter, vil dette være kedeligt og træt. Så følgende VBA-kode kan hjælpe dig med at afslutte den med det samme.
1. Aktivér dit regneark, og hold ALT + F11 nøgler til at åbne Vinduet Microsoft Visual Basic til applikationer.
2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.
VBA-kode: Find og erstat specifik tekst i tekstfelter i det aktuelle regneark
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. Tryk derefter på F5 nøgle til at køre denne kode, og der vises et promptfelt for at minde dig om at indtaste din gamle tekst, som du vil erstatte. Se skærmbillede:
4. Fortsæt med at klikke OK, og i dette promptfelt skal du skrive den nye tekstværdi, du ønsker, se skærmbillede:
5. Og klik derefter på OK knappen, er de gamle værdier blevet erstattet med de nye værdier, som du indtastede i det aktuelle regneark. Se skærmbilleder:
Relaterede artikler:
Hvordan finder og erstatter jeg tekst i diagramtitler i Excel?
Hvordan finder og erstatter jeg tekst i kommentarer i Excel?
Hvordan ændres flere hyperlinkstier på én gang i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!