Hoe specifieke tekst in tekstvakken zoeken en vervangen?
Zoeken en vervangen is voor ons een handig hulpmiddel om celinhoud of formules snel en gemakkelijk in een werkblad te vinden en te vervangen. Maar nu heb ik meerdere tekstvakken in mijn werkblad en ik wil de specifieke tekst zoeken en deze vervangen door andere waarden in alleen deze tekstvakken. Heeft u een goede manier om met dit probleem om te gaan?
Zoek en vervang specifieke tekst in meerdere tekstvakken
Zoek en vervang specifieke tekst in meerdere tekstvakken
U kunt de tekst die u nodig heeft handmatig een voor een zoeken en vervangen, maar als er meerdere tekstvakken zijn, wordt dit saai en moe. Dus de volgende VBA-code kan u helpen het in 茅茅n keer af te maken.
1. Activeer uw werkblad en houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic for Applications-venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: zoek en vervang specifieke tekst in tekstvakken van het huidige werkblad
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. Druk vervolgens op F5 toets om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren uw oude tekst in te voeren die u wilt vervangen. Zie screenshot:
4. Blijf klikken OK, en typ in dit promptvenster de nieuwe tekstwaarde die u wilt, zie screenshot:
5. En klik vervolgens op OK knop, zijn de oude waarden vervangen door de nieuwe waarden die u in het huidige werkblad hebt ingevoerd. Zie screenshots:
 |
 |
 |
Gerelateerde artikelen:
Hoe tekst in diagramtitels in Excel zoeken en vervangen?
Hoe tekst in opmerkingen in Excel te zoeken en te vervangen?
Hoe verander ik meerdere hyperlinkpaden tegelijk in Excel?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
