Ši pamoka parodys, kaip kurti animacines diagramas visose „Excel“ versijose: 2007, 2010, 2013, 2016 ir 2022.
Animacinė „Excel“ diagrama, kuri pasirodo ekrane prieš pačias auditorijos akis, yra galingas, dėmesį patraukiantis būdas pajudinti savo duomenis.
Priešingai nei statiniai grafikai, animacinės diagramos suteikia papildomą jūsų duomenų kontekstą ir padeda nustatyti atsirandančius modelius. Pavyzdžiui, pažiūrėkite į animuotą linijinę diagramą su žemiau rodomais žymenimis, kurie parodo keturių šalių (JAV, Kinijos, Brazilijos ir Turkijos) BVP per pastaruosius kelis dešimtmečius.
Nors statinis atitikmuo atrodytų nieko ypatingo ar naujo, animacinis efektas leidžia diagramai papasakoti jums istoriją, suteikiančią gyvybės nejudantiems BVP skaičiams.
Šiame žingsnis po žingsnio, pradedantiesiems patogioje pamokoje sužinosite, kaip tą patį padaryti su savo duomenimis, net jei darote tik pirmuosius „Excel“ veiksmus.
Darbo pradžia
Apsvarstykite šią duomenų lentelę, kurioje yra kiekvienos šalies BVP:
Norėdami pagyvinti diagramą, naudosime paprastą VBA makrokomandą, kuri sklandžiai parodys diagramos reikšmes.
Pastaba: pridėdami VBA kodą prie savo darbaknygės, būtinai išsaugokite savo darbaknygę .xlsm formatu („Microsoft Excel“ makrokomandų darbalapis), kad įgalintumėte makrokomandas.
Dabar pasiraitokime rankoves ir kibkime į darbą.
1 žingsnis: nustatykite pagalbinius stulpelius.
Norėdami pradėti, išplėskite duomenų lentelę naudodami papildomus pagalbinius stulpelius, į kuriuos tikrosios vertės bus palaipsniui nukopijuotos, sukuriant animacijos efektą.
Nukopijuokite stulpelių, kuriuose yra BVP, antraštes (B2: E2) į atitinkamus langelius šalia duomenų lentelės (F2: I2).
Ląstelių diapazonas paryškintas šviesiai raudona spalva (F3: I13) apibrėžia vietą, kurioje išsaugosime VBA makro išvestį.
Be to, pridėkite dešimtainių skyriklių pažymėtam langelių diapazonui (Pagrindinis> Skaičius> Kablelio stilius).
2 žingsnis: Nubraižykite tuščią diagramą.
Kai skyrėte šiek tiek vietos pagalbiniams stulpeliams, sukurkite tuščią 2-D diagramą naudodami stulpelius (F2: I13) kaip šaltinio duomenis:
- Pažymėkite bet kurią tuščią langelį.
- Perjunkite į Įdėti skirtuką.
- Spustelėkite „Įterpti linijos arba srities diagramą.”
- Pasirinkite „Linija su žymekliais.”
Tai padarę, dabar turime susieti tuščią diagramą su pagalbinių stulpelių langeliais (F: Aš). Dešiniuoju pelės mygtuku spustelėkite tuščią sklypą ir spustelėkite „Pasirinkite Duomenys.”
Viduje konors Pasirinkite Duomenų šaltinis dialogo lange, skiltyje „Legendiniai įrašai (serijos),"Paspauskite"Papildyti“Mygtuką.
Kai Redaguoti seriją pasirodys dialogo langas, sukurkite keturias naujas duomenų serijas pagal pagalbinius stulpelius (F: Aš):
- Dėl "Serijos pavadinimas,“Nurodykite antraštės eilutės langelį stulpelis JAV (F2).
- Dėl "Serijos vertės,“Pasirinkite atitinkamą tuščių langelių diapazoną (F3: F13).
Pakartokite tą patį procesą likusiems trims stulpeliams.
Įdėję duomenų serijas, importuokite horizontalių ašių etiketes į diagramą.
Norėdami tai padaryti, skiltyje „Horizontalios (kategorijos) ašies etiketės,“Spustelėkite„Redaguoti“Mygtuką.
Viduje konors Ašių etiketės dialogo lange, skiltyje „Ašies etikečių asortimentas, “Paryškinkite ašies reikšmes (A3: A13).
Štai profesionalus patarimas: jei reguliariai pridedate arba pašalinate elementus iš duomenų lentelės, nustatykite dinaminius diagramų diapazonus, kad išvengtumėte vargo, kai kiekvieną kartą reikia keisti šaltinio kodą.
Norėdami tai padaryti, pridėkite diagramos pavadinimą ir legendą, kad būsimoji linijų diagrama būtų dar informatyvesnė:
- Spustelėkite diagramos sritį.
- Eikite į Dizainas skirtuką.
- Pasirinkite „Pridėti diagramos elementus.”
- Pridėkite diagramos pavadinimą (Diagramos pavadinimas> Aukščiau diagramos).
- Pridėkite diagramos legendą (Legenda> Apačioje).
3 žingsnis: užprogramuokite VBA, kad sukurtumėte animacinį efektą.
Tinkamai sukonfigūravus diagramos šaltinio duomenis, toliau teks sunkiai parašyti VBA makrokomandą, kuri atliks visą nešvarų darbą už jus vienu paspaudimu.
Prieš pasinerdami į smulkmenas, įsitikinkite, kad turite Juostelėje rodomas skirtukas „Kūrėjas“. Jei jis išjungtas, dešiniuoju pelės mygtuku spustelėkite bet kurią tuščią vietą Juostelė ir išsirink "Tinkinkite juostelę“Iš pasirodžiusio meniu.
Viduje konors „Excel“ parinktys dialogo lange, pažymėkite „Programuotojas“Laukelyje ir spustelėkite„GERAI.”
Tai padarius, atėjo laikas išleisti „Kraken of Excel“ - funkciją, kuri išplečia tai, kas įmanoma skaičiuoklių pasaulyje. Atėjo laikas atskleisti VBA galią.
Pirmiausia atidarykite VBA redaktorių:
- Eikite į Programuotojas skirtuką.
- Spustelėkite „Visual Basic“Mygtuką.
Redaktoriuje pasirinkite Įdėti skirtuką ir pasirinkite „Modulis.”
Kai būsite ten, nukopijuokite šią makrokomandą į kodo langą:
| 123456789101112131415161718192021222324 | Antrinė animacinė diagrama ()„Skelbti kintamuosiusConst StartRow kaip ilgai = 2„Dim LastRow“ tiek laikoSumažinti eilučių skaičių„Gaukite paskutinę duomenų eilutęLastRow = Diapazonas („A“ ir „StartRow“). Pabaiga („xlDown“)„Išvalyti diagramą ir rodyti tuščią diagramąDiapazonas („F“ ir „StartRow“, „I“ ir „LastRow“). „ClearContents“„DoEvents“Application.Wait (Dabar + TimeValue ("00: 00: 1"))„Žingsnis per kiekvieną diagramos laikotarpįRowNumber = StartRow To LastRow„DoEvents“Diapazonas („F“ ir eilutės numeris, „aš“ ir eilių numeris) .Vertė = diapazonas („B“ ir eilių numeris, „E“ ir eilutės numeris).Application.Wait (Dabar + TimeValue ("00: 00: 1"))„DoEvents“Kitas eilutės numerisPabaiga Sub |
Iš pirmo žvilgsnio VBA naujokams kodas gali pasirodyti bauginantis, tačiau iš tikrųjų tereikia atlikti kelis paprastus veiksmus, kad pritaikytumėte kodą savo poreikiams.
Iš esmės kodą galima suskirstyti į keturias dalis, kaip parodyta žemiau esančioje ekrano kopijoje. Žali stačiakampiai žymi kodo segmentus, kurie turi būti pritaikyti jūsų duomenims, o kiti turi likti nepakitę.
Padidinkime dalis, kurias reikia patikslinti. Kad būtų patogiau, pažvelkite į duomenų lentelę ir sekite mano pėdomis:
Kintamųjų deklaravimas: Šiame skyriuje pristatomi nauji VBA kintamieji. Mūsų atveju konstanta pažymėta kaip „„StartRow““Padeda VBA išsiaiškinti, kur prasideda duomenų lentelė (2 eilutė). Todėl pastovi vertė turėtų atitikti eilutę, kurioje prasideda jūsų duomenys.
| 1 | Const StartRow kaip ilgai = 2 |
Gaukite paskutinę duomenų eilutę: Ši kodo eilutė liepia VBA išanalizuoti duomenų lentelę ir apibrėžti, kur baigiasi duomenų lentelė (13 eilutė), kad vėliau jis galėtų priartinti tik tas vertes, kurios yra nurodytame langelių diapazone, o ne palikti likusią darbalapio dalį.
Norėdami jį ištraukti, nurodykite pirmąjį stulpelį („A“) kur prasideda duomenų lentelė, kad VBA galėtų rasti paskutinę to stulpelio eilutę, kurioje yra tuščias langelis (A stulpelis).
| 1 | LastRow = Diapazonas („A“ ir „StartRow“). Pabaiga („xlDown“) |
Išvalyti diagramą ir rodyti tuščią diagramą: Šis skyrius yra atsakingas už pagalbinių stulpelių reikšmių ištrynimą (F: Aš) kiekvieną kartą paleidus makrokomandą.
Tokiu būdu jūs galite kartoti tą patį animacinį efektą vėl ir vėl, nesivalydami darbalapio langelių. Norėdami koreguoti, duomenų lentelėje nurodykite pirmąjį ir paskutinį pagalbinius stulpelius („F“ ir „aš“).
| 1 | Diapazonas („F“ ir „StartRow“, „I“ ir „LastRow“). „ClearContents“ |
Žingsnis per kiekvieną diagramos laikotarpį: Čia atsitinka visa magija. Pasirinkęs langelių diapazoną, VBA eina iš eilės į eilę ir užpildo pagalbines stulpelius atitinkamomis faktinėmis reikšmėmis vienos sekundės intervalais, efektyviai sukurdamas animacinį efektą.
Norėdami jį ištraukti, jums tereikia pakeisti šią kodo eilutę, kad VBA nukopijuotų reikšmes į pagalbinius stulpelius:
| 1 | Diapazonas („F“ ir eilutės numeris, „aš“ ir eilių numeris) .Vertė = diapazonas („B“ ir eilių numeris, „E“ ir eilutės numeris). |
Pirmoji kodo dalis (Diapazonas („F“ ir eilutės numeris, „aš“ ir eilutės numeris). Vertė) paima visus pagalbinius stulpelius duomenų lentelėje (F: Aš), o antroji lygties dalis (Diapazonas („B“ ir „RowNumber“, „E“ ir „RowNumber“). Vertė) yra atsakingas už faktinių verčių importavimą į jas.
Turint tai omenyje, "F" ir "Aš" vertės apibūdina pirmąjį ir paskutinį pagalbinius stulpelius (F ir I stulpeliai). Tuo pačiu principu, "B" ir "E" reiškia pirmąjį ir paskutinį stulpelius, kuriuose yra faktinis BVP skaičius (B ir E skiltys).
Kai visa tai padarysite, spustelėkite diskelio piktogramą, kad išsaugotumėte VBA kodą ir uždarytumėte redaktorių.
4 žingsnis: sukurkite makro mygtuką.
Norėdami susieti darbalapio duomenis ir naujai sukurtą makrokomandą, nustatykite VBA kodo vykdymo mygtuką.
- Eikite į Programuotojas skirtuką.
- Spustelėkite „Įdėti“Mygtuką.
- Pagal "Formos valdikliai,“Pasirinkite„Mygtukas (formos valdymas).”
Spustelėkite vietą, kurioje norite įdėti mygtuką (pageidautina šalia diagramos pavadinimo). Tuo metu, Priskirti makrokomandą pasirodys dialogo langas. Pasirinkite ką tik sukurtą VBA makrokomandą (Animuota_ diagrama) ir spustelėkite „GERAI.”
Galiausiai sureguliuokite mygtuko tekstą (dukart spustelėkite mygtuko tekstą ir pervardykite). Jei reikia, perkelkite mygtuką į norimą vietą.
Dabar spustelėkite mygtuką ir pažiūrėkite, kaip VBA sklandžiai užpildo tuščią diagramą faktinėmis vertėmis, o šio metodo grožis yra tas, kad galite pakeisti pagrindinį diagramos tipą vos keliais paspaudimais, nebereikėdami peršokti visų lankų!
Taigi tai daroma taip. „Excel“ diagramų animacija gali būti puikus būdas suteikti unikalią savo duomenų perspektyvą, kurios kitu atveju galėjote nepastebėti.
Akivaizdu, kad gali prireikti šiek tiek laiko, kad iš tikrųjų suprastume VBA kodo logiką. Tačiau kadangi tą patį kodą galima pakartotinai naudoti įvairių tipų duomenims ir diagramoms, verta pabandyti. Kai įveiksite trumpą mokymosi kreivę, pasaulis bus jūsų austrė.
