Hvordan finder og erstatter jeg tekst i diagramtitler i Excel?

Diagrammer er meget nyttige for os i Excel, og vi giver dem ofte nogle titler til at identificere dem. Men har du prøvet at finde og erstatte tekstværdien i diagramtitler i flere diagrammer? I dag vil jeg tale om, hvordan man finder en bestemt tekst i flere diagramfliser og erstatter dem med andre værdier i Excel.

Find og erstat tekst i diagramtitler i Excel med VBA-kode

Find og erstat tekst i diagramtitler i Excel med VBA-kode

Hvis du antager, at du har et regneark, der indeholder diagrammerne som vist på følgende skærmbillede, og du kun vil erstatte teksten januar til februar inden for alle diagramtitlerne. Selvfølgelig kan du ændre dem manuelt én efter én, men det vil være tidskrævende, hvis der er flere diagrammer. Så her kan følgende VBA-kode hjælpe dig med at håndtere denne opgave.< /p>

1. Aktiver dit regneark, som indeholder de diagrammer, du vil finde og erstatte i deres titler.

2. Hold nede ALT + F11 tasterne, og det åbner Vinduet Microsoft Visual Basic til applikationer.

3. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.

VBA-kode: Find og erstat tekst i diagramtitler i aktivt regneark

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. Tryk derefter på F5 tast for at køre denne kode, og en promptboks vil poppe ud for at minde dig om at indtaste din gamle tekst, som du vil erstatte, se skærmbillede:

5. Og klik derefter på OK knappen, og en anden promptboks dukker op, skal du skrive din nye tekstværdi, som du vil erstatte den gamle, se skærmbillede:

6. Fortsæt med at klikke OK for at lukke promptboksen, og dine gamle tekster er blevet erstattet af nyhederne på én gang i det aktuelle regneark som følgende skærmbillede vist:

Bemærk: Hvis du har brug for at finde og erstatte tekstværdien af ​​diagramtitler i alle regnearkene i en projektmappe, skal du anvende følgende VBA-kode: (Proceduren er den samme som ovenstående)

VBA-kode: Find og erstat tekst i diagramtitler i alle regneark

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

Relaterede artikler:

Hvordan finder og erstatter jeg tekst i kommentarer i Excel?

Hvordan finder og erstatter man specifik tekst i flere tekstbokse i Excel?

Hvordan ændres flere hyperlinkstier på én gang i Excel?