Як знайти та замінити текст у заголовках діаграм у 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?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
