Този урок ще покаже как да създавате анимирани диаграми във всички версии на Excel: 2007, 2010, 2013, 2016 и 2022.
Анимирана диаграма на Excel, която се извежда на екрана пред очите на вашата аудитория, е мощен, привличащ вниманието начин да приведете данните си в движение.
За разлика от статичните графики, анимираните диаграми осигуряват допълнителен контекст на вашите данни и помагат за идентифициране на възникващи модели. Като пример, разгледайте анимираната линейна диаграма с показани по -долу маркери, които демонстрират БВП на четири държави (САЩ, Китай, Бразилия и Турция) през последните няколко десетилетия.
Докато статичният аналог не би изглеждал като нищо особено или ново, анимираният ефект дава възможност на диаграмата да разкаже историята вместо вас, внасяйки живот в неподвижните цифри на БВП.
В този стъпка по стъпка лесен за начинаещи урок ще научите как да правите същото с вашите данни-дори ако току-що правите първите си стъпки в Excel.
Приготвяме се да започнем
Помислете за следната таблица с данни, съдържаща БВП за всяка страна:
За да анимираме диаграмата, ще използваме прост VBA макрос, който плавно ще начертае стойностите на графиката.
Забележка: Когато добавяте VBA код към работната си книга, не забравяйте да запазите работната си книга във формат .xlsm (Работен лист с активирани макроси на Microsoft Excel), за да активирате макроси.
А сега да запретваме ръкави и да се захващаме за работа.
Стъпка 1: Настройте помощните колони.
За да започнете, разгънете таблицата с данни с допълнителни помощни колони, където действителните стойности постепенно ще бъдат копирани, създавайки анимационен ефект.
Копирайте заглавките на колоните, съдържащи числата на БВП (В2: Е2) в съответните клетки до таблицата с данни (F2: I2).
Обхватът на клетките, подчертан в светло червено (F3: I13) определя мястото, където ще съхраняваме макроизхода на VBA.
Освен това добавете десетични разделители за маркирания диапазон от клетки (Начало> Номер> Стил на запетая).
Стъпка 2: Начертайте празна диаграма.
След като разпределите малко място за помощните колони, изградете празна двумерна диаграма, като използвате колоните (F2: I13) като изходни данни:
- Маркирайте всяка празна клетка.
- Превключете към Вмъкване раздел.
- Щракнете върху „Вмъкване на линейна или областна диаграма.”
- Избирам "Линия с маркери.”
След като направим това, сега трябва да свържем празната диаграма с клетките в помощните колони (F: Аз). Щракнете с десния бутон върху празния участък и щракнете върху „Изберете Данни.”
В Изберете източник на данни диалогов прозорец, под „Записи от легенди (серия)," удари "Добавяне”Бутон.
Когато Редактиране на поредицата изскача диалогов прозорец, създайте четири нови серии данни въз основа на помощните колони (F: Аз):
- За "Име на серия,”Посочете клетката на заглавния ред на колона САЩ (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„Изчистване на диаграма и показване на празна диаграмаRange ("F" & StartRow, "I" & LastRow) .ClearContentsDoEventsApplication.Wait (Now + TimeValue ("00: 00: 1"))„Преминете през всеки период на диаграмаFor RowNumber = StartRow To LastRowDoEventsДиапазон ("F" & RowNumber, "I" & RowNumber) .Value = Диапазон ("B" & RowNumber, "E" & RowNumber).Application.Wait (Now + 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: Аз) всеки път, когато стартирате макроса.
По този начин можете да повтаряте един и същ анимиран ефект отново и отново, без да се налага да почиствате клетките на работния лист сами. За да коригирате, посочете първата и последната помощна колона в таблицата с данни („F“ и „I“).
| 1 | Range ("F" & StartRow, "I" & LastRow) .ClearContents |
Преминете през всеки период на диаграма: Тук се случва цялата магия. След като е избрал диапазона от клетки, VBA преминава ред по ред и запълва помощните колони със съответните действителни стойности на интервали от една секунда, създавайки ефективно анимирания ефект.
За да го изтеглите, трябва само да промените този ред код за VBA, за да копирате стойностите в помощните колони:
| 1 | Диапазон ("F" & RowNumber, "I" & RowNumber) .Value = Диапазон ("B" & RowNumber, "E" & RowNumber). |
Първата част на кода (Диапазон ("F" & RowNumber, "I" & RowNumber)) грабва всички помощни колони в таблицата с данни (F: Аз), докато втората част на уравнението (Диапазон (“B” & RowNumber, “E” & RowNumber)) е отговорен за внасянето на действителните стойности в тях.
Имайки предвид всичко това, "F" и "Аз" стойностите характеризират първата и последната помощна колона (колони F и I). По същия начин, "В" и „Е“ означават първата и последната колони, които съдържат действителния брой на БВП (колони B и E).
След като преминете през всичко това, щракнете върху иконата на дискета, за да запазите VBA кода и да затворите редактора.
Стъпка #4: Създайте бутона за макрос.
За да свържете данните на работния лист и новосъздадения макрос, настройте бутон за изпълнение на VBA кода.
- Отидете на Разработчик раздел.
- Щракнете върху „Вмъкване”Бутон.
- Под „Контроли за формуляри,"Изберете"Бутон (контрол на формуляра).”
Щракнете там, където искате да поставите бутона (за предпочитане близо до заглавието на диаграмата). В този момент, Присвояване на макрос ще се появи диалогов прозорец. Изберете току -що създадения VBA макрос (Animated_Chart) и щракнете върху „ДОБРЕ.”
Като последна корекция, променете текста на бутона (щракнете двукратно върху текста на бутона и преименувайте). Ако е необходимо, преместете бутона в позиция, където искате.
Сега кликнете върху бутона и вижте как VBA плавно запълва празния график с действителните стойности-и красотата на този метод е, че можете да промените основния тип диаграма само с няколко кликвания, без да се налага да прескачате отново всички обръчи!
Значи така се прави. Анимирането на вашите диаграми в Excel може да е чудесен начин да дадете уникална гледна точка на вашите данни, която иначе бихте могли да пренебрегнете.
Очевидно може да отнеме известно време, за да разберете наистина логиката зад VBA кода. Но тъй като един и същ код може да се използва многократно за различни типове данни и диаграми, си заслужава усилията да се опита. След като преминете през кратката крива на обучение, светът е вашата стрида.
