Hoe tekst te zoeken en vervangen in grafiektitels in Excel?
Grafieken zijn erg nuttig voor ons in Excel, en we geven ze vaak wat titels om ze te identificeren. Maar heb je ooit geprobeerd om de tekstwaarde in grafiektitels binnen meerdere grafieken te zoeken en te vervangen? Vandaag zal ik het hebben over hoe je een specifieke tekst kunt vinden in meerdere grafiektitels en deze kunt vervangen door een andere waarde in Excel.
Zoek en vervang tekst in grafiektitels in Excel met VBA-code
Zoek en vervang tekst in grafiektitels in Excel met VBA-code
Stel dat je een werkblad hebt dat de grafieken bevat zoals in de volgende schermafbeelding wordt getoond, en je wilt de tekst Januari vervangen door Februari in alle grafiektitels. Natuurlijk kun je ze handmatig één voor één wijzigen, maar dit zal tijdrovend zijn als er meerdere grafieken zijn. Dus hier kan de volgende VBA-code je helpen bij deze taak.< /p>
1. Activeer je werkblad dat de grafieken bevat waarin je teksten wilt zoeken en vervangen in hun titels.
2. Houd de toetsen ALT + F11 ingedrukt, en het venster Microsoft Visual Basic for Applications wordt geopend.
3. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.
VBA-code: Zoek en vervang tekst in grafiektitels binnen het actieve 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 vervolgens op de F5-toets om deze code uit te voeren, en er verschijnt een promptvenster om je eraan te herinneren de oude tekst in te voeren die je wilt vervangen, zie onderstaande schermafbeelding:
5. Klik vervolgens op de knop OK, en er verschijnt een ander promptvenster waarin je de nieuwe tekstwaarde moet invoeren waarmee je de oude wilt vervangen, zie onderstaande schermafbeelding:
6. Klik verder op OK om het promptvenster te sluiten, en je oude teksten zijn in één keer vervangen door de nieuwe in het huidige werkblad, zoals in de volgende schermafbeelding wordt getoond:
Opmerking: Als je de tekstwaarde van grafiektitels in alle werkbladen van een werkboek moet zoeken en vervangen, moet je de volgende VBA-code gebruiken: (De procedure is hetzelfde als hierboven)
VBA-code: Zoek en vervang 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 tekst te zoeken en vervangen binnen opmerkingen in Excel?
Hoe specifieke tekst te zoeken en vervangen in meerdere tekstvakken van Excel?
Hoe meerdere hyperlinkpaden tegelijk te wijzigen in Excel?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen