Как найти и заменить текст в заголовках диаграмм в Excel?

Диаграммы очень полезны для нас в Excel, и мы часто даем им названия для их идентификации. Но пробовали ли вы найти и заменить текстовое значение в заголовках диаграмм в нескольких диаграммах? Сегодня я расскажу о том, как найти определенный текст в нескольких плитках диаграммы и заменить их другим значением в Excel.

Поиск и замена текста в заголовках диаграмм в Excel с помощью кода VBA

Поиск и замена текста в заголовках диаграмм в Excel с помощью кода VBA

Предположим, у вас есть рабочий лист, содержащий диаграммы, как показано на следующем снимке экрана, и вы хотите заменить текст с января на февраль только во всех заголовках диаграмм. Конечно, вы можете вручную менять их по одной, но это займет много времени, если диаграмм несколько. Итак, следующий код VBA может помочь вам справиться с этой задачей. </ P>

1. Активируйте свой рабочий лист, содержащий диаграммы, которые вы хотите найти и заменить в их заголовках.

2. Удерживайте ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.

3. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код VBA: поиск и замена текста в заголовках диаграмм на активном листе

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, Затем нажмите F5 нажмите клавишу для запуска этого кода, и появится диалоговое окно, напоминающее вам о вводе старого текста, который вы хотите заменить, см. снимок экрана:

5, Затем нажмите OK , и появится другое окно подсказки, вам нужно ввести новое текстовое значение, которое вы хотите заменить старым, см. снимок экрана:

6. Продолжайте нажимать OK чтобы закрыть окно подсказки, и ваши старые тексты были заменены новостями одновременно на текущем листе, как показано на следующем снимке экрана:

Внимание: Если вам нужно найти и заменить текстовое значение заголовков диаграмм на всех листах в книге, вы должны применить следующий код VBA: (процедура такая же, как и выше)

Код VBA: поиск и замена текста в заголовках диаграмм на всех листах

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

Статьи по теме:

Как найти и заменить текст в комментариях в Excel?

Как найти и заменить определенный текст в нескольких текстовых полях Excel?

Как изменить сразу несколько путей гиперссылок в Excel?