Hur hittar jag och ersätter text i diagramtitlar i Excel?

Diagram är mycket användbara för oss i Excel, och vi ger dem ofta några titlar för att identifiera dem. Men har du försökt hitta och ersätta textvärdet i diagramtitlar i flera diagram? Idag ska jag prata om hur man hittar en specifik text i flera diagramplattor och ersätter dem med annat värde i Excel.

Hitta och ersätt text i diagramtitlar i Excel med VBA-kod

Hitta och ersätt text i diagramtitlar i Excel med VBA-kod

Om du antar att du har ett kalkylblad som innehåller diagrammen som följande skärmdump visas, och att du bara vill ersätta texten januari till februari inom alla diagramtitlarna. Naturligtvis kan du ändra dem manuellt en efter en, men det är tidskrävande om det finns flera diagram. Så här kan följande VBA-kod hjälpa dig att hantera den här uppgiften. </ P>

1. Aktivera ditt kalkylblad som innehåller diagrammen du vill hitta och ersätta i deras titlar.

2. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic for Applications-fönstret.

3. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.

VBA-kod: Hitta och ersätt text i diagramtitlar i det aktiva kalkylbladet

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. Tryck sedan på F5 nyckel för att köra den här koden, och en snabbruta dyker upp för att påminna dig om att skriva in din gamla text som du vill ersätta, se skärmdump:

5. Och klicka sedan på OK -knappen, och en annan snabbruta dyker upp, du måste skriva in ditt nya textvärde som du vill ersätta det gamla, se skärmdump:

6. Fortsätt klicka OK för att stänga snabbrutan, och dina gamla texter har ersatts av nyheterna samtidigt i det aktuella kalkylbladet enligt följande skärmdump:

Anmärkningar: Om du behöver hitta och ersätta textvärdet för diagramtitlar i alla kalkylblad i en arbetsbok, bör du tillämpa följande VBA-kod: (Proceduren är densamma som ovan)

VBA-kod: Hitta och ersätt text i diagramtitlar inom alla kalkylblad

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

Relaterade artiklar:

Hur hittar jag och ersätter text i kommentarer i Excel?

Hur hittar jag och ersätter specifik text i flera textrutor i Excel?

Hur ändrar jag flera hyperlänkvägar samtidigt i Excel?