Ak chcete vytvoriť informačný panel s grafom, ktorý mení svoje údaje podľa vybratých možností, môžete použiť udalosti vo VBA. Áno, dá sa to. Nebudeme potrebovať žiadny rozbaľovací zoznam, krájač ani kombinované pole. Zaškrtneme bunky a zmeníme údaje tak, aby sa z vybratej bunky vytvoril graf.
Pri vytváraní dynamických grafov v programe Excel, ktoré sa menia podľa výberu bunky, postupujte podľa nižšie uvedených krokov.
Krok 1: Pripravte údaje v hárku ako zdroj pre graf.
Tu mám v hárku niekoľko ukážkových údajov z rôznych oblastí. Pomenoval som to zdrojové údaje.
Krok 2: Získajte údaje z jedného regiónu naraz na iný list.
- Teraz vložte nový list. Vhodne to pomenujte. Pomenoval som to ako „informačný panel“.
- Skopírujte všetky mesiace do jedného stĺpca. Napíšte názov jedného regiónu vedľa mesiaca.
- Teraz chceme získať údaje o regióne v bunke D1. Chceme, aby sa údaje menili so zmenou regiónu v D1. Na to môžeme použiť obojsmerné vyhľadávanie.
Pretože moje zdrojové údaje sú v zdrojovom dátovom liste v formáte A2: D8. Používam nasledujúci vzorec.
| =VLOOKUP(C2, „Zdrojové údaje“! $ A $ 2: $ D $ 8,ZÁPAS($ D $ 1, 'Zdrojové údaje'! $ A $ 1: $ D $ 1,0)) |
Tu používame dynamické indexovanie stĺpcov pre VLOOKUP. Môžete si o tom prečítať tu.
- Vložiť graf s týmito údajmi na hárok informačného panela. Používam jednoduchý čiarový graf. Ak ich nechcete zobraziť, skryte zdroj grafu.
Teraz, keď zmeníte názov regiónu v D1, graf sa zmení zodpovedajúcim spôsobom. Ďalším krokom je zmena názvu oblasti v D1 pri výbere možnosti zo zadanej bunky.
Krok 3: Zmeňte región tak, ako vyberiete názov regiónu v uvedenom rozsahu.
- Napíšte všetky názvy regiónov v rozsahu, ja ich napíšem v rozsahu A2: A4.
- Kliknite pravým tlačidlom myši na názov hárka Dashboard a kliknutím na možnosť „Zobraziť kód“ zadajte priamo do modulu pracovného hárka vo VBE, aby sme mohli použiť udalosť pracovného hárka.
- Teraz napíšte nižšie kód do editora VB.
Súkromný čiastkový pracovný hárok_Voľba výberu (ByVal cieľ ako rozsah) Ak nie je priesečník (cieľ, rozsah ("A2: A4")) nie je nič potom rozsah ("A2: A4"). Interior.ColorIndex = xlColorIndexNone Dim oblasť ako oblasť variantu = Target.value Pri chybe GoTo err: Vyberte oblasť prípadu Case Is = "centrálny" rozsah ("D1"). Hodnota = oblasť prípad je = "východný" rozsah ("D1"). Hodnota = región prípad je = "západný" rozsah ("D1 ") .value = region Case Else MsgBox" Invalid Option "End Select Target.Interior.ColorIndex = 8 End If err: End Sub
A je hotovo. Teraz, kedykoľvek vyberiete bunku v rozsahu A2: A4, jej hodnota bude priradená k D1 a údaje v grafe sa podľa toho zmenia.
Ako tento kód funguje, som vysvetlil nižšie. Môžete tomu porozumieť a vykonávať zmeny podľa svojich požiadaviek. Poskytol som odkazy na témy pomoci, ktoré som tu použil v tomto príklade. Tak si ich overte.
Ako kód funguje?
Tu som použil udalosť programu Excel. Na spustenie udalostí som použil udalosť pracovného hárka „SelectionChange“.
Ak nie je priesečník (cieľ, rozsah ("A2: A4")), potom nič
Tento riadok nastaví zameranie na rozsah A2: A4, aby sa udalosť SelectionChange spustila iba vtedy, ak je výber v rozsahu A2: A4. Kód medzi If a End sa spustí iba vtedy, ak je výber v rozsahu A2: A4. Teraz ho môžete nastaviť podľa svojich požiadaviek, aby bol graf dynamický.
Rozsah ("A2: A4"). Interior.ColorIndex = xlColorIndexNone
Tento riadok nastaví farbu v rozsahu A2: A4 na nič.
region = Target.value On Error GoTo error:
V dvoch vyššie uvedených riadkoch získame hodnotu vybratých buniek v variabilnej oblasti a ignorujeme všetky chyby, ktoré sa vyskytnú. nepoužívajte riadok „Pri chybe GoTo err:“, pokiaľ si nie ste istí, že chcete ignorovať všetky chyby, ktoré sa vyskytnú. Použil som to, aby som sa vyhol chybe pri výbere viacerých buniek.
Vyberte oblasť prípadu prípad je = "centrálny" rozsah ("D1"). Hodnota = región prípad je = "východný" rozsah ("D1"). Hodnota = oblasť prípad je = "západný" rozsah ("D1"). Hodnota = región Prípad Ostatné MsgBox "Neplatná možnosť" Koniec Vybrať
V uvedených riadkoch používame na výber hodnoty rozsahu D1 excels Select Case Statement.
Target.Interior.ColorIndex = 8 End If err: End Sub
Pred príkazom End If zmeníme farbu vybranej možnosti, aby sa zvýraznila. Potom príkaz If skončí a začne sa chyba: Príkaz On Error prejde na túto značku, ak sa počas príkazu select vyskytne chyba.
Pracovný súbor si stiahnite nižšie.
Udalosti vstavaných grafov pomocou VBA v programe Microsoft Excel| Vďaka udalostiam vložených grafov môže byť váš graf interaktívnejší, dynamickejší a užitočnejší než bežné grafy. Aby sme umožnili udalosti v grafoch,…
Udalosti v programe Excel VBA |V programe Excel je sedem typov udalostí. Každá udalosť má iný rozsah. Udalosť aplikácie sa zaoberá na úrovni zošita. Pracovný zošit na úrovni listov. Pracovný list Udalosť na úrovni rozsahu.
Udalosti pracovného hárka v programe Excel VBA| Udalosť pracovného hárka je skutočne užitočná, keď chcete, aby sa vaše makrá spustili, keď sa v hárku vyskytne zadaná udalosť.
Udalosti zošita pomocou jazyka VBA v programe Microsoft Excel | Udalosti zošita fungujú na celom zošite. Keďže všetky listy sú súčasťou pracovného zošita, tieto udalosti na nich tiež fungujú.
Zabráňte spusteniu programu automacro/eventmacro pomocou programu VBA v programe Microsoft Excel| Ak chcete zabrániť spusteniu makra auto_open, použite kláves Shift.
Graf udalostí objektu pomocou VBA v programe Microsoft Excel| Grafy sú komplexné objekty a je k nim pripojených niekoľko komponentov. Na vytváranie grafových udalostí používame modul Trieda.
Populárne články:
50 skratiek programu Excel na zvýšenie produktivity | Vykonajte svoju úlohu rýchlejšie. Týchto 50 skratiek vám v Exceli prácu ešte zrýchli.
Funkcia VLOOKUP v programe Excel | Toto je jedna z najpoužívanejších a najobľúbenejších funkcií programu Excel, ktorá sa používa na vyhľadávanie hodnôt z rôznych rozsahov a hárkov.
COUNTIF v Exceli 2016 | Počítajte hodnoty s podmienkami pomocou tejto úžasnej funkcie. Na počítanie konkrétnej hodnoty nie je potrebné filtrovať údaje. Funkcia Countif je potrebná na prípravu palubnej dosky.
Ako používať funkciu SUMIF v programe Excel | Toto je ďalšia zásadná funkcia palubnej dosky. To vám pomôže zhrnúť hodnoty za konkrétnych podmienok.
