Цей підручник продемонструє, як створювати анімовані діаграми у всіх версіях Excel: 2007, 2010, 2013, 2016 та 2022 роки.
Анімована діаграма Excel, яка з'являється на екрані перед очима вашої аудиторії,-це потужний спосіб привернути увагу, щоб привести ваші дані в рух.
На відміну від статичних графіків, анімовані діаграми надають додатковий контекст вашим даним та допомагають визначити нові шаблони. Як приклад, подивіться на анімовану лінійчату діаграму з наведеними нижче маркерами, які демонструють ВВП чотирьох країн (США, Китаю, Бразилії та Туреччини) за останні кілька десятиліть.
Хоча статичний аналог не буде виглядати нічим особливим чи новим, анімаційний ефект дає змогу діаграмі розповісти вам історію, оживляючи нерухомі цифри ВВП.
У цьому покроковому навчальному посібнику, придатному для новачків, ви дізнаєтесь, як робити те саме з вашими даними, навіть якщо ви тільки робите перші кроки в Excel.
Починаємо
Розглянемо таку таблицю даних, що містить показники ВВП для кожної країни:
Для анімації діаграми ми будемо використовувати простий макрос VBA, який буде плавно відображати значення на графіку.
Примітка: Під час додавання коду VBA до вашої книги обов’язково збережіть її у форматі .xlsm (Робочий лист із підтримкою макросу Microsoft Excel), щоб увімкнути макроси.
А тепер давайте закатаємо рукави і приступаємо до роботи.
Крок №1: Налаштуйте допоміжні стовпці.
Для початку розгорніть таблицю даних додатковими допоміжними стовпцями, де фактичні значення будуть поступово копіюватися, створюючи ефект анімації.
Скопіюйте заголовки стовпців, що містять цифри ВВП (В2: Е2) у відповідні клітинки біля таблиці даних (F2: I2).
Діапазон клітинок виділений світло -червоним кольором (F3: I13) визначає місце, де ми будемо зберігати вихід макросу VBA.
Крім того, додайте десяткові роздільники для виділеного діапазону комірок (Головна> Номер> Стиль коми).
Крок 2: Побудуйте порожню діаграму.
Після того, як ви виділите деякий простір для допоміжних стовпців, побудуйте порожню 2-D діаграму за допомогою стовпців (F2: I13) як вихідні дані:
- Виділіть будь -яку порожню клітинку.
- Перейдіть до Вставити вкладка.
- Натисніть «Вставити лінійну або діаграму області.”
- Виберіть "Лінія з маркерами.”
Зробивши це, тепер ми повинні зв’язати порожню діаграму з клітинками у допоміжних стовпцях (Ф: Я). Клацніть правою кнопкою миші на порожньому ділянці та натисніть кнопку «Виберіть Дані.”
В Виберіть Джерело даних діалогове вікно в розділі "Записи про легенди (серія),"Натиснути"Додати”.
Коли Редагувати серію з'явиться діалогове вікно, створіть чотири нові ряди даних на основі допоміжних стовпців (Ф: Я):
- За “Назва серії,”Вкажіть комірку рядка заголовка колонка США (F2).
- За “Серійні значення,”Виберіть відповідний діапазон порожніх клітинок (F3: F13).
Повторіть той самий процес для решти трьох стовпців.
Після того, як ви встановите ряд даних, імпортуйте мітки горизонтальної осі на діаграму.
Для цього в розділі "Мітки осі горизонтальної (категорії),"Натисніть"Редагувати”.
В Мітки осі діалогове вікно в розділі "Асортимент міток осі, ”Виділіть значення осі (A3: A13).
Ось корисна порада: Якщо ви регулярно додаєте або видаляєте елементи з таблиці даних, налаштуйте діапазони динамічних діаграм, щоб уникнути клопоту щодо необхідності налаштовувати вихідний код щоразу, коли це відбувається.
До всього, зробіть майбутній лінійний графік ще більш інформативним, додавши назву діаграми та легенду:
- Клацніть область діаграми.
- Перейдіть до Дизайн вкладка.
- Виберіть "Додати елементи діаграми.”
- Додайте назву діаграми (Назва діаграми> Над діаграмою).
- Додайте легенду діаграми (Легенда> Внизу).
Крок №3: Запрограмуйте VBA для створення анімаційного ефекту.
Після того, як вихідні дані діаграми були налаштовані належним чином, далі йде важка частина написання макросу VBA, який виконає всю брудну роботу за вас одним натисканням кнопки.
Перш ніж ми зануримось у глинистий пісок, переконайтеся, що у вас є Вкладка "Розробник" відображається на стрічці. Якщо його вимкнено, клацніть правою кнопкою миші на будь-якому порожньому місці в Стрічка і виберіть "Налаштуйте стрічку»З меню, що з'явиться.
В Параметри Excel діалогове вікно, поставте прапорець "Розробник"І натисніть"В ПОРЯДКУ.”
Зробивши це, настав час випустити Kraken Excel, функцію, яка розширює межі можливого у світі електронних таблиць. Настав час розкрити силу VBA.
Спочатку відкрийте редактор VBA:
- Перейдіть до Розробник вкладка.
- Натисніть кнопку «Visual Basic”.
У редакторі виберіть Вставити вкладку та виберіть "Модуль.”
Потрапивши туди, скопіюйте такий макрос у вікно коду:
| 123456789101112131415161718192021222324 | Sub Animated_Chart ()'Заявляйте змінніConst StartRow As Long = 2Dim LastRow As LongDim RowNumber As Long'Отримайте останній ряд данихLastRow = Range ("A" & StartRow) .End (xlDown) .Row'Очистити діаграму та відобразити порожню діаграмуДіапазон ("F" & StartRow, "I" & LastRow) .ClearContentsDoEventsApplication.Wait (Зараз + TimeValue ("00: 00: 1"))«Покроково пройдіть кожен період діаграмиFor RowNumber = StartRow To LastRowDoEventsДіапазон ("F" & RowNumber, "I" & RowNumber) .Value = Діапазон ("B" & RowNumber, "E" & RowNumber).Application.Wait (Зараз + TimeValue ("00: 00: 1"))DoEventsНаступний номер рядуEnd Sub |
На перший погляд, код може здатися лякаючим для новачків VBA, але насправді для адаптації коду до ваших потреб потрібно всього лише кілька простих кроків.
В принципі, код можна розбити на чотири розділи, як показано на скріншоті нижче. Зелені прямокутники представляють сегменти коду, які повинні бути адаптовані до ваших даних, тоді як інші повинні залишатися незмінними.
Давайте збільшимо ті частини, які вам потрібні для точного налаштування. Для вашої зручності ще раз подивіться на таблицю даних і слідуйте моїм слідам:
Оголошення змінних: У цьому розділі представлені нові змінні для роботи VBA. У нашому випадку константа, позначена як “StartRow”Допомагає VBA з’ясувати, з чого починається таблиця даних (ряд 2). Тому постійне значення має відповідати рядку, з якого починаються ваші дані.
| 1 | Const StartRow As Long = 2 |
Отримайте останній ряд даних: Цей рядок коду повідомляє VBA проаналізувати таблицю даних і визначити, де таблиця даних закінчується (ряд 13), щоб пізніше він міг збільшити лише значення в межах зазначеного діапазону комірок, залишаючи при цьому решту робочого аркуша.
Щоб його зняти, вкажіть перший стовпець ("А") де таблиця даних починається для VBA, щоб знайти останній рядок у цьому стовпці, що містить непусту клітинку (стовпець А).
| 1 | LastRow = Range ("A" & StartRow) .End (xlDown) .Row |
Очистити діаграму та відобразити порожню діаграму: Цей розділ відповідає за видалення значень у допоміжних стовпцях (Ф: Я) при кожному запуску макросу.
Таким чином, ви можете повторювати один і той самий анімований ефект знову і знову, без необхідності самостійно очищати клітинки аркуша. Для коригування вкажіть перший та останній допоміжні стовпці у таблиці даних ("F" і "I").
| 1 | Діапазон ("F" & StartRow, "I" & LastRow) .ClearContents |
Покроково пройдіть кожен період діаграми: Тут відбувається вся магія. Вибравши діапазон комірок, VBA йде рядок за рядком і заповнює допоміжні стовпці відповідними фактичними значеннями з інтервалом в одну секунду, ефективно створюючи анімований ефект.
Щоб це зробити, вам потрібно лише змінити цей рядок коду для VBA, щоб скопіювати значення у допоміжні стовпці:
| 1 | Діапазон ("F" & RowNumber, "I" & RowNumber) .Value = Діапазон ("B" & RowNumber, "E" & RowNumber). |
Перша частина коду (Діапазон ("F" & Номер рядка, "Я" & Номер ряду). Значення) захоплює всі допоміжні стовпці в таблиці даних (Ф: Я), тоді як друга частина рівняння (Діапазон ("B" & Номер рядка, "E" & Номер ряду). Значення) несе відповідальність за імпорт фактичних значень у них.
Враховуючи все це, "F" та "Я" значення характеризують перший і останній допоміжні стовпці (колонки F і I). До того ж, "В" та "Е" позначають перший та останній стовпці, які містять фактичні цифри ВВП (колонки В і Е).
Як тільки ви все це пройдете, клацніть піктограму дискети, щоб зберегти код VBA та закрити редактор.
Крок №4: Створіть кнопку макросу.
Щоб поєднати дані аркуша та новостворений макрос, налаштуйте кнопку для виконання коду VBA.
- Перейдіть до Розробник вкладка.
- Натисніть кнопку «Вставити”.
- Під "Контроль форм,"Виберіть"Кнопка (Контроль форми).”
Натисніть там, де потрібно розмістити кнопку (бажано біля заголовка діаграми). У цей момент, Призначити макрос з'явиться діалогове вікно. Виберіть щойно створений макрос VBA (Анімований_діаграма) і натисніть «В ПОРЯДКУ.”
Як остаточне регулювання, змініть текст кнопки (двічі клацніть текст кнопки та перейменуйте). При необхідності перемістіть кнопку в потрібне місце.
Тепер натисніть кнопку і подивіться, як VBA плавно заповнює порожній графік фактичними значеннями-і краса цього методу в тому, що ви можете змінити базовий тип діаграми всього за кілька кліків, не перескакуючи знову через усі обручі!
Так ось як це робиться. Анімація ваших графіків Excel може бути чудовим способом надати унікальний погляд на ваші дані, який ви могли б не помітити.
Очевидно, що справжнє розуміння логіки коду VBA може зайняти деякий час. Але оскільки один і той же код можна багаторазово використовувати для різних типів даних та діаграм, варто спробувати спробувати. Як тільки ви подолаєте коротку криву навчання, світ стане вашою устрицею.
