Як знайти та замінити текст у заголовках діаграм у Excel?

Діаграми дуже корисні для нас у Excel, і ми часто даємо їм деякі заголовки для їх ідентифікації. Але чи намагалися ви знайти та замінити текстове значення в заголовках діаграм у декількох діаграмах? Сьогодні я розповім про те, як знайти певний текст у декількох плитках діаграм і замінити їх на інші значення в Excel.

Знайдіть і замініть текст у заголовках діаграм у Excel кодом VBA

Знайдіть і замініть текст у заголовках діаграм у Excel кодом VBA

Припустимо, у вас є аркуш, який містить графіки, як показано на наступному знімку екрана, і ви хочете замінити текст січня до лютого лише в усіх заголовках діаграм. Звичайно, ви можете змінювати їх вручну по черзі, але це забирає багато часу, якщо є кілька діаграм. Отже, наступний код VBA може допомогти вам вирішити це завдання. </ P>

1. Активуйте свій робочий аркуш, який містить діаграми, які ви хочете знайти та замінити в їх заголовках.

2. Утримуйте клавішу ALT + F11 і відкриває Вікно Microsoft Visual Basic для програм.

3. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.

Код 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?