В этом руководстве будет показано, как создавать анимированные диаграммы во всех версиях Excel: 2007, 2010, 2013, 2016 и 2022.
Анимированная диаграмма Excel, которая появляется на экране прямо на глазах у вашей аудитории, - это мощный, привлекающий внимание способ привести ваши данные в движение.
В отличие от статических графиков, анимированные диаграммы предоставляют дополнительный контекст для ваших данных и помогают идентифицировать возникающие закономерности. В качестве примера взгляните на приведенную ниже анимированную линейную диаграмму с маркерами, которая демонстрирует ВВП четырех стран (США, Китая, Бразилии и Турции) за последние несколько десятилетий.
В то время как статический аналог не выглядел бы чем-то особенным или новым, анимированный эффект позволяет диаграмме рассказать историю за вас, оживляя неподвижные цифры ВВП.
В этом пошаговом, удобном для новичков руководстве вы узнаете, как сделать то же самое со своими данными, даже если вы только делаете первые шаги в Excel.
Начиная
Рассмотрим следующую таблицу данных, содержащую цифры ВВП для каждой страны:
Чтобы анимировать диаграмму, мы собираемся использовать простой макрос VBA, который будет плавно отображать значения на графике.
Примечание. При добавлении кода VBA в книгу обязательно сохраните книгу в формате .xlsm (Рабочий лист Microsoft Excel с поддержкой макросов) для включения макросов.
А теперь закатим рукава и приступим к работе.
Шаг №1: Настройте вспомогательные столбцы.
Для начала расширьте таблицу данных дополнительными вспомогательными столбцами, в которые будут постепенно копироваться фактические значения, создавая эффект анимации.
Скопируйте заголовки столбцов, содержащих цифры ВВП (B2: E2) в соответствующие ячейки рядом с таблицей данных (F2: I2).
Диапазон ячеек выделен светло-красным (F3: I13) определяет место, где мы будем хранить вывод макроса VBA.
Кроме того, добавьте десятичные разделители для выделенного диапазона ячеек (На главную> Число> Стиль запятой).
Шаг № 2: Постройте пустой график.
После того, как вы выделили место для вспомогательных столбцов, постройте пустую двумерную диаграмму, используя столбцы (F2: I13) в качестве исходных данных:
- Выделите любую пустую ячейку.
- Переключитесь на Вставлять таб.
- Нажмите «Вставить линейную диаграмму или диаграмму с областями.”
- Выбирать "Линия с маркерами.”
Сделав это, мы теперь должны связать пустую диаграмму с ячейками вспомогательных столбцов (F: Я). Щелкните правой кнопкой мыши пустой график и нажмите «Выберите данные.”
в Выберите источник данных диалоговое окно в разделе «Легендарные записи (серии)," ударь "Добавлять" кнопка.
Когда Редактировать серию появится диалоговое окно, создайте четыре новых ряда данных на основе вспомогательных столбцов (F: Я):
- Для "Название серии,»Укажите ячейку строки заголовка столбец США (F2).
- Для "Значения серии,»Выберите соответствующий диапазон пустых ячеек (F3: F13).
Повторите тот же процесс для остальных трех столбцов.
Создав ряд данных, импортируйте метки горизонтальной оси в диаграмму.
Для этого в разделе «Ярлыки горизонтальной оси (категории),"Нажмите"Редактировать" кнопка.
в Ярлыки осей диалоговое окно в разделе «Диапазон меток оси, ”Выделите значения оси (A3: A13).
Вот совет от профессионала: если вы регулярно добавляете или удаляете элементы из таблицы данных, настройте динамические диапазоны диаграммы, чтобы избежать необходимости каждый раз настраивать исходный код.
В довершение всего, сделайте будущий линейный график еще более информативным, добавив заголовок диаграммы и легенду:
- Щелкните область диаграммы.
- Перейти к Дизайн таб.
- Выбирать "Добавить элементы диаграммы.”
- Добавьте заголовок диаграммы (Заголовок диаграммы> Над диаграммой).
- Добавьте легенду диаграммы (Легенда> Внизу).
Шаг № 3: Запрограммируйте VBA для создания анимационного эффекта.
После того, как исходные данные диаграммы настроены правильно, следует сложная часть написания макроса VBA, который сделает всю грязную работу за вас одним щелчком мыши.
Прежде чем мы погрузимся в подробности, убедитесь, что у вас есть Вкладка разработчика отображается на ленте. Если он отключен, щелкните правой кнопкой мыши любое пустое место в Лента и выберите "Настроить ленту»В появившемся меню.
в Параметры Excel диалоговом окне установите флажок «Разработчик»И нажмите«OK.”
После этого пришло время выпустить Kraken of 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 (Now + TimeValue ("00: 00: 1"))'Переход через каждый период графикаДля RowNumber = StartRow To LastRowDoEventsДиапазон ("F" & RowNumber, "I" & RowNumber) .Value = Range ("B" & RowNumber, "E" & RowNumber) .ValueApplication.Wait (Now + TimeValue ("00: 00: 1"))DoEventsNext RowNumberКонец подписки |
На первый взгляд, код может показаться пугающим для новичков в VBA, но на самом деле требуется всего несколько простых шагов, чтобы адаптировать код под свои нужды.
По сути, код можно разбить на четыре части, как показано на скриншоте ниже. Зеленые прямоугольники представляют собой сегменты кода, которые должны быть адаптированы к вашим данным, а остальные должны оставаться неизменными.
Давайте увеличим масштаб тех частей, которые нужно настроить. Для вашего удобства взгляните еще раз на таблицу данных и следуйте по моим стопам:
Объявить переменные: В этом разделе представлены новые переменные, с которыми может работать VBA. В нашем случае константа, обозначенная как «StartRow»Помогает VBA определить, где начинается таблица данных (2 ряд). Следовательно, постоянное значение должно соответствовать строке, в которой начинаются ваши данные.
| 1 | Const StartRow As Long = 2 |
Получить последнюю строку данных: Эта строка кода сообщает VBA проанализировать таблицу данных и определить, где заканчивается таблица данных (ряд 13), чтобы впоследствии можно было увеличивать масштаб только значений в указанном диапазоне ячеек, оставляя остальную часть листа вне поля зрения.
Для этого укажите первый столбец («А») где начинается таблица данных для VBA, чтобы найти последнюю строку в этом столбце, содержащую непустую ячейку (столбец А).
| 1 | LastRow = Range ("A" & StartRow) .End (xlDown) .Row |
Очистить диаграмму и отобразить пустую диаграмму: Этот раздел отвечает за стирание значений во вспомогательных столбцах (F: Я) каждый раз при запуске макроса.
Таким образом, вы можете повторять один и тот же анимированный эффект снова и снова, не очищая ячейки листа самостоятельно. Для настройки укажите первый и последний вспомогательные столбцы в таблице данных. («F» и «I»).
| 1 | Диапазон («F» и StartRow, «I» и LastRow) .ClearContents |
Переход через каждый период графика: Здесь происходит все волшебство. Выбрав диапазон ячеек, VBA идет строка за строкой и заполняет вспомогательные столбцы соответствующими фактическими значениями с интервалом в одну секунду, эффективно создавая анимированный эффект.
Чтобы реализовать это, вам нужно только изменить эту строку кода для VBA, чтобы скопировать значения во вспомогательные столбцы:
| 1 | Диапазон ("F" & RowNumber, "I" & RowNumber) .Value = Range ("B" & RowNumber, "E" & RowNumber) .Value |
Первая часть кода (Диапазон («F» и RowNumber, «I» и RowNumber). Значение) захватывает все вспомогательные столбцы в таблице данных (F: Я), а вторая часть уравнения (Диапазон («B» и RowNumber, «E» и RowNumber). Значение) отвечает за импорт в них фактических значений.
Учитывая все это, «F» а также "Я" значения характеризуют первый и последний вспомогательные столбцы (столбцы F и I). К тому же «В» а также «E» обозначают первый и последний столбцы, которые содержат фактические цифры ВВП (столбцы B и E).
Выполнив все это, щелкните значок дискеты, чтобы сохранить код VBA, и закройте редактор.
Шаг №4: Создайте кнопку макроса.
Чтобы связать данные рабочего листа и вновь созданный макрос, настройте кнопку для выполнения кода VBA.
- Перейти к Разработчик таб.
- Щелкните значок «Вставлять" кнопка.
- Под "Элементы управления формой," Выбрать "Кнопка (элемент управления формой).”
Щелкните в том месте, где вы хотите разместить кнопку (желательно рядом с заголовком диаграммы). В этот момент Назначить макрос появится диалоговое окно. Выберите только что созданный макрос VBA (Анимированная диаграмма) и нажмите «OK.”
В качестве окончательной настройки измените текст кнопки (дважды щелкните текст кнопки и переименуйте). При необходимости переместите кнопку в нужное положение.
Теперь нажмите кнопку и посмотрите, как VBA плавно заполняет пустой график фактическими значениями - и прелесть этого метода в том, что вы можете изменить базовый тип диаграммы всего за несколько щелчков мышью, не перепрыгивая через все обручи снова!
Вот как это делается. Анимация диаграмм Excel может быть отличным способом дать уникальный взгляд на ваши данные, который вы иначе могли бы упустить.
Очевидно, что на то, чтобы по-настоящему понять логику кода VBA, может потребоваться некоторое время. Но поскольку один и тот же код можно многократно использовать для разных типов данных и диаграмм, стоит попробовать. Как только вы пройдете короткую кривую обучения, мир станет вашей устрицей.
