Як знайти та замінити текст у заголовках діаграм у Excel?
Діаграми дуже корисні для нас у Excel, і ми часто даємо їм деякі заголовки для їх ідентифікації. Але чи намагалися ви знайти та замінити текстове значення в заголовках діаграм у декількох діаграмах? Сьогодні я розповім про те, як знайти певний текст у декількох плитках діаграм і замінити їх на інші значення в Excel.
Знайдіть і замініть текст у заголовках діаграм у Excel кодом VBA
- Повторне використання будь-чого: Додайте найбільш уживані або складні формули, діаграми та будь-що інше до вибраного та швидко використовуйте їх у майбутньому.
- Більше 20 функцій тексту: Витяг номера з текстового рядка; Витяг або видалення частини текстів; Перетворення чисел і валют в англійські слова.
- Злиття інструментів: Кілька робочих книжок та аркушів в одне ціле; Об’єднати кілька клітинок / рядків / стовпців без втрати даних; Об’єднати повторювані рядки та суму.
- Розділити інструменти: Розділити дані на кілька аркушів на основі значення; Одна робоча книга до декількох файлів Excel, PDF або CSV; Один стовпець на кілька стовпців.
- Пропустити вставку Приховані / відфільтровані рядки; Граф і сума за кольором тла; Надіслати персоналізовані електронні листи кільком одержувачам масово.
- Суперфільтр: Створюйте розширені схеми фільтрів і застосовуйте їх до будь-яких аркушів; сортувати за тижнями, днями, періодичністю тощо; фільтр жирним шрифтом, формули, коментар ...
- Понад 300 потужних функцій; Працює з Office 2007-2019 та 365; Підтримує всі мови; Простота розгортання на вашому підприємстві чи в організації.
Знайдіть і замініть текст у заголовках діаграм у 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?
Найкращі інструменти для підвищення продуктивності офісу
Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%
- Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
- Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
- Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
- Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
- Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
- Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
- Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
- Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
- Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
