Ako želite napraviti nadzornu ploču s grafikonom koji mijenja podatke prema odabranim opcijama, možete koristiti događaje u VBA. Da, to se može učiniti. Neće nam trebati padajući izbornik, rezač ili kombinirani okvir. Napravit ćemo ćelije koje se mogu kliknuti i promijeniti podatke kako bismo iz odabrane ćelije stvorili grafikon.
Slijedite korake u nastavku da biste napravili dinamičke grafikone u Excelu koji se mijenjaju prema odabiru ćelije.
Korak 1: Pripremite podatke na tablici kao izvor grafikona.
Ovdje imam neke uzorke podataka iz različitih regija u listu. Nazvao sam ga izvorni podaci.
Korak 2: Dobijte podatke o jednoj regiji odjednom na drugom listu.
- Sada umetnite novi list. Imenujte ga na odgovarajući način. Nazvao sam ga "Nadzorna ploča".
- Kopirajte sve mjesece u jedan stupac. Napišite ime jedne regije uz mjesec.
- Sada želimo izvući podatke o regiji u ćeliju D1. Želimo da se podaci mijenjaju kako se regija mijenja u D1. Za to možemo koristiti dvosmjerno pretraživanje.
Budući da su moji izvorni podaci u A2: D8 na izvornoj podatkovnoj tablici. Koristim formulu ispod.
| =VLOOKUP(C2, "Izvorni podaci"! $ A $ 2: $ D $ 8,UTAKMICA($ D $ 1, "Izvorni podaci"! $ A $ 1: $ D $ 1,0)) |
Ovdje koristimo dinamičko indeksiranje stupaca za VLOOKUP. Ovdje možete pročitati o tome.
- Umetnite grafikon pomoću ovih podataka na listu nadzorne ploče. Koristim jednostavan linijski grafikon. Sakrijte izvor grafikona ako ih ne želite prikazati.
Sada kada promijenite naziv regije u D1, grafikon će se promijeniti u skladu s tim. Sljedeći korak je promjena naziva regije u D1 dok odabirete opciju iz navedene ćelije.
Korak 3: Promijenite regiju dok odaberete naziv regije u navedenom rasponu.
- Napišite sve nazive regija u rasponu, ja ih pišem u rasponu A2: A4.
- Desnom tipkom miša kliknite naziv lista nadzorne ploče i kliknite opciju "Prikaži kôd" za ulazak izravno u modul radnog lista u VBE-u kako bismo mogli koristiti događaj radnog lista.
- Sada dolje napišite kod u VB Editor.
Privatni pod -radni list_SelectionChange (ByVal Target As Range) Ako se ne presijeca (Target, Range ("A2: A4")) Nije ništa Tada raspon ("A2: A4"). Interior.ColorIndex = xlColorIndexNone Zatamnjena regija Kao Variant region = Target.value Uključeno Greška Idi na grešku: Idi na područje slučaja Case Is = "Centralni" raspon ("D1"). Value = region Case Is = "East" Range ("D1"). Value = region Case Is = "Zapadni" raspon ("D1 ") .value = region Slučaj Ostalo MsgBox" Nevažeća opcija "Kraj Odaberite Target.Interior.ColorIndex = 8 End If err: End Sub
I to je učinjeno. Sada, kad god odaberete ćeliju u rasponu A2: A4, njezina će vrijednost biti dodijeljena D1 i podaci grafikona će se prema tome mijenjati.
U nastavku sam objasnio kako ovaj kod funkcionira. Možete to razumjeti i unijeti promjene prema svojim zahtjevima. Naveo sam veze za pomoć temama koje sam koristio ovdje u ovom primjeru. Zato ih provjerite.
Kako kod radi?
Ovdje sam upotrijebio događaj programa Excel. Koristio sam događaj na radnom listu "SelectionChange" za pokretanje događaja.
Ako se ne presijeca (cilj, domet ("A2: A4")) nije ništa
Ova linija postavlja fokus na raspon A2: A4 tako da se događaj SelectionChange aktivira samo kada je odabir u rasponu A2: A4. Kod između If i End pokrenut će se samo ako je odabir u rasponu A2: A4. Sada ga možete postaviti prema svojim zahtjevima kako biste grafikon učinili dinamičnim.
Raspon ("A2: A4"). Unutrašnjost.Indeks boje = xlBojaIndeksNije
Ova linija postavlja boju raspona A2: A4 na ništa.
region = Target.value Uključeno Greška Idi na grešku:
U gornja dva retka dobivamo vrijednost odabranih ćelija u varijabilnom području i zanemarujemo svaku grešku koja se dogodi. nemojte koristiti redak "On Error GoTo err:" sve dok niste sigurni da želite zanemariti svaku pogrešku koja se dogodi. Koristio sam ga kako bih izbjegao pogrešku pri odabiru više ćelija.
Odaberite Područje slučaja Case Is = "Centralni" raspon ("D1"). Value = region Case Is = "Istočni" raspon ("D1"). Value = region Case Is = "Zapadni" raspon ("D1"). Value = regija Slučaj Ostalo MsgBox "Invalid Option" End Select
U gornjim retcima koristimo excels Select Case Statement za postavljanje vrijednosti raspona D1.
Target.Interior.ColorIndex = 8 End If greška: End Sub
Prije naredbe Kraj ako promijenimo boju odabrane opcije tako da se istakne. Zatim naredba If završava i err: oznaka počinje. Naredba o pogrešci pri uključivanju preći će na ovu oznaku ako se dogodi bilo koja pogreška tijekom izraza odabira.
U nastavku preuzmite radnu datoteku.
Događaji s ugrađenim grafikonom pomoću VBA u programu Microsoft Excel| Događaji s ugrađenim grafikonima mogu učiniti vaš grafikon interaktivnijim, dinamičnijim i korisnijim od uobičajenih grafikona. Kako bismo omogućili događaje na ljestvicama, mi…
Događaji u Excelu VBA |U Excelu postoji sedam vrsta događaja. Svaki događaj se bavi različitim opsegom. Događaj o prijavi bavi se na razini radne knjige. Radna bilježnica na razini listova. Događaj radnog lista na razini raspona.
Događaji na radnom listu u Excelu VBA| Događaj radnog lista zaista je koristan kada želite da se vaše makronaredbe izvode kada se na listu pojavi određeni događaj.
Događaji radne knjige koristeći VBA u programu Microsoft Excel | Događaji u radnoj knjizi rade na cijeloj radnoj knjizi. Budući da su svi listovi dio radne bilježnice, ovi događaji djeluju i na njih.
Spriječite automatsko pokretanje/makro događaja pomoću VBA u programu Microsoft Excel| Da biste spriječili pokretanje makronaredbe auto_open, koristite tipku shift.
Zabilježite događaje objekta pomoću VBA u programu Microsoft Excel| Grafikoni su složeni objekti i postoji nekoliko komponenti koje ste im pridružili. Za izradu Chart Events -a koristimo Class modul.
Popularni članci:
50 Excel prečaca za povećanje vaše produktivnosti | Budite brži u izvršavanju svojih zadataka. Ovih 50 prečaca učinit će vaš rad još bržim u Excelu.
Funkcija VLOOKUP u Excelu | Ovo je jedna od najčešće korištenih i popularnih funkcija programa Excel koja se koristi za traženje vrijednosti iz različitih raspona i listova.
COUNTIF u Excelu 2016 | Brojte vrijednosti s uvjetima pomoću ove nevjerojatne funkcije. Ne morate filtrirati svoje podatke da biste računali određenu vrijednost. Funkcija Countif bitna je za pripremu vaše nadzorne ploče.
Kako koristiti funkciju SUMIF u Excelu | Ovo je još jedna bitna funkcija nadzorne ploče. To vam pomaže pri zbrajanju vrijednosti u posebnim uvjetima.