Hoe helpt Zoeken en Vervangen u bij het wijzigen van tekst in grafiektitels in Excel?
Grafieken zijn onmisbaar in Excel, en we voorzien ze vaak van titels om ze gemakkelijk te herkennen. Maar hebt u ooit geprobeerd een tekstwaarde in grafiektitels van meerdere grafieken tegelijk te zoeken en te vervangen? Vandaag laat ik u zien hoe u een specifieke tekst in meerdere grafiektitels kunt vinden en deze efficiënt kunt vervangen door een andere waarde in Excel.
Zoeken en Vervangen tekst in Grafiektitels in Excel met VBA-code
Zoeken en Vervangen tekst in Grafiektitels in Excel met VBA-code
Stel dat u een werkblad hebt met grafieken zoals op de onderstaande schermafbeelding, en u wilt de tekst „januari” vervangen door „februari” — maar dan alleen in de grafiektitels. Uiteraard kunt u dit handmatig één voor één aanpassen, maar dat kost veel tijd als u met meerdere grafieken werkt. Gelukkig helpt de volgende VBA-code u snel en efficiënt bij deze taak.
1. Activeer het werkblad met de grafieken waarvan u de titels wilt zoeken en vervangen.
2. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
3. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.
VBA-code: Zoeken en Vervangen tekst in Grafiektitels binnen actief werkblad
Sub ChartLabelReplace()
'Update 20140603
Dim xWs As Worksheet
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
For Each ch In xWs.ChartObjects
If ch.Chart.HasTitle Then
ch.Chart.ChartTitle.Text = VBA.Replace(ch.Chart.ChartTitle.Text, xFindStr, xReplace, 1)
End If
Next
End Sub
4. Druk daarna op de toets F5 om deze code uit te voeren. Er verschijnt dan een invoervenster waarin u wordt gevraagd de oude tekst in te voeren die u wilt vervangen; zie schermafbeelding:
5. Klik vervolgens op de knop OK en er verschijnt nog een invoervenster. Voer hierin de nieuwe tekst in waarmee u de oude waarde wilt vervangen; zie schermafbeelding:
6. Klik nogmaals op OK om het invoervenster te sluiten. Uw oude tekst is nu in één keer vervangen door de nieuwe waarden in het huidige werkblad, zoals op de volgende schermafbeelding te zien is:
Opmerking: Als u de tekstwaarde van Grafiektitels in alle werkbladen van een werkmap wilt Zoeken en Vervangen, moet u de volgende VBA-code gebruiken (de procedure is dezelfde als hierboven):
VBA-code: Zoeken en Vervangen tekst in Grafiektitels binnen alle werkbladen
Sub ChartLabelReplaceAllWorksheet()
'Update 20140603
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace:", xTitleId, "", Type:=2)
For Each sh In Worksheets
For Each ch In sh.ChartObjects
If ch.Chart.HasTitle Then
ch.Chart.ChartTitle.Text = VBA.Replace(ch.Chart.ChartTitle.Text, xFindStr, xReplace, 1)
End If
Next
Next
End Sub
Gerelateerde artikelen:
Hoe Zoeken en Vervangen u tekst binnen opmerkingen in Excel?
Hoe Zoeken en Vervangen u specifieke tekst in meerdere Tekstvak van Excel?
Hoe wijzigt u meerdere hyperlinkpaden tegelijk in Excel?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins