Supposing du har et regneark som inneholder listene som følgende skjermbilde vises, og du ønsker å erstatte teksten januar innen februar innenfor alle diagramtitler bare. Selvfølgelig kan du endre manuelt dem en etter en, men dette vil være tidkrevende hvis det er flere diagrammer. Så her kan følgende VBA-kode hjelpe deg å takle denne oppgaven <.; /p >
en. Aktiver regnearket som inneholder listene du vil finne og erstatte i sine titler.
To. Hold nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications vinduet.
3. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Finne og erstatte tekst i diagramtitler innen aktive regnearket
Sub ChartLabelReplace () 'Update 20140603Dim xWs Som WorksheetDim xFindStr Som StringDim xReplace Som StringxFindStr = Application. InputBox ("Find:", xTitleId, "", Type: = 2) xReplace = Application.InputBox ("erstatt:", xTitleId, "", Type: = 2) Still xWs = Application.ActiveSheetFor Hver ch I xWs.ChartObjects Hvis ch.Chart.HasTitle Så ch.Chart.ChartTitle.Text = VBA.Replace (ch.Chart.ChartTitle.Text, xFindStr, xReplace, 1) End IfNextEnd Sub4. Deretter trykker F5 for å kjøre denne koden, og en rask boks vil komme ut for å minne deg på å legge inn din gamle teksten du vil erstatte, se skjermbilde:
5. Og klikk deretter på OK-knappen, og en annen rask boksen dukker opp, må du skrive inn ny tekst verdi som du vil erstatte den gamle, se skjermbilde:
6. Gå på å klikke OK for å lukke meldingen boksen, og gamle tekster har blitt erstattet av nyheten på en gang i det gjeldende regnearket som følgende skjermbilde vises:
Merk: Hvis du trenger å finne og erstatte tekst verdi av diagramtitler i alle regnearkene i en arbeidsbok, bør du bruke følgende VBA-kode: (Fremgangsmåten er den samme som ovenfor)
VBA-kode: Finne og erstatte tekst i diagramtitler innenfor alle regneark
Sub ChartLabelReplaceAllWorksheet () 'Update 20140603Dim xFindStr Som StringDim xReplace Som StringxFindStr = Application.InputBox ("Finn:", xTitleId, "", Type: = 2) xReplace = Application.InputBox ("erstatt:", xTitleId, "", Type: = 2) For hver sh I Regneark For hver lm I sh.ChartObjects Hvis ch.Chart.HasTitle Så ch.Chart.ChartTitle.Text = VBA.Replace (ch.Chart.ChartTitle.Text, xFindStr, xReplace, 1) End If NextNextEnd Sub