Come trovare e sostituire il testo nei titoli dei grafici in Excel?

I grafici sono molto utili per noi in Excel e spesso diamo loro alcuni titoli per identificarli. Ma hai provato a trovare e sostituire il valore del testo nei titoli dei grafici all'interno di più grafici? Oggi parlerò di come trovare un testo specifico in più riquadri del grafico e sostituirli con un altro valore in Excel.

Trova e sostituisci il testo nei titoli dei grafici in Excel con il codice VBA

Trova e sostituisci il testo nei titoli dei grafici in Excel con il codice VBA

Supponendo di avere un foglio di lavoro che contiene i grafici come mostrato nella seguente schermata e di voler sostituire il testo da gennaio a febbraio solo all'interno di tutti i titoli dei grafici. Naturalmente, puoi modificarli manualmente uno per uno, ma questo richiederà tempo se ci sono più grafici. Quindi qui, il seguente codice VBA può aiutarti a gestire questa attività. </ P>

1. Attiva il tuo foglio di lavoro che contiene i grafici che desideri trovare e sostituire nei loro titoli.

2. Tieni premuto il ALT + F11 chiavi e apre il file Finestra di Microsoft Visual Basic, Applications Edition.

3. Clic inserire > Modulie incolla il codice seguente nel file Finestra del modulo.

Codice VBA: trova e sostituisci il testo nei titoli dei grafici all'interno del foglio di lavoro attivo

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. Quindi premere F5 chiave per eseguire questo codice e verrà visualizzata una finestra di messaggio per ricordarti di inserire il tuo vecchio testo che desideri sostituire, vedi screenshot:

5. E poi clicca OK e viene visualizzata un'altra finestra di messaggio, è necessario digitare il nuovo valore di testo che si desidera sostituire con quello vecchio, vedere screenshot:

6. Continua a fare clic OK per chiudere la finestra di messaggio e i tuoi vecchi testi sono stati sostituiti dalle notizie contemporaneamente nel foglio di lavoro corrente come mostrato nella seguente schermata:

Note:: Se è necessario trovare e sostituire il valore di testo dei titoli dei grafici in tutti i fogli di lavoro in una cartella di lavoro, è necessario applicare il seguente codice VBA: (La procedura è la stessa di cui sopra)

Codice VBA: trova e sostituisci il testo nei titoli dei grafici all'interno di tutti i fogli di lavoro

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

Articoli correlati:

Come trovare e sostituire il testo all'interno dei commenti in Excel?

Come trovare e sostituire un testo specifico in più caselle di testo di Excel?

Come modificare più percorsi di collegamento ipertestuale contemporaneamente in Excel?