Hoe tekst in diagramtitels in Excel zoeken en vervangen?
Grafieken zijn erg handig voor ons in Excel, en we geven ze vaak een titel om ze te identificeren. Maar heb je geprobeerd de tekstwaarde in diagramtitels in meerdere diagrammen te vinden en te vervangen? Vandaag zal ik het hebben over het vinden van een specifieke tekst in meerdere diagramtegels en deze te 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 u een werkblad heeft met de grafieken zoals in de volgende schermafbeelding wordt getoond, en u wilt de tekst januari tegen februari alleen in alle grafiektitels vervangen. U kunt ze natuurlijk een voor een handmatig wijzigen, maar dit zal tijdrovend zijn als er meerdere grafieken zijn. Dus hier kan de volgende VBA-code u helpen om met deze taak om te gaan. </ P>
1. Activeer uw werkblad met de grafieken die u wilt zoeken en vervangen in hun titels.
2. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic for Applications-venster.
3. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: zoek en vervang tekst in diagramtitels in een 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 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:
5. En klik vervolgens op OK knop, en er verschijnt een ander promptvenster, u moet uw nieuwe tekstwaarde typen die u de oude wilt vervangen, zie screenshot:
6. Blijf klikken OK om het promptvenster te sluiten en uw oude teksten zijn in 茅茅n keer vervangen door het nieuws in het huidige werkblad zoals in de volgende schermafbeelding:
Note: Als u de tekstwaarde van diagramtitels in alle werkbladen in een werkmap moet zoeken en vervangen, moet u de volgende VBA-code toepassen: (De procedure is hetzelfde als hierboven)
VBA-code: zoek en vervang tekst in diagramtitels in 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 in opmerkingen in Excel te zoeken en te vervangen?
Hoe specifieke tekst in meerdere tekstvakken van 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!