Ja vēlaties izveidot informācijas paneli ar diagrammu, kurā tiek mainīti dati atbilstoši atlasītajām opcijām, varat izmantot notikumus VBA. Jā, to var izdarīt. Mums nevajadzēs nevienu nolaižamo izvēlni, šķēlīti vai kombinēto lodziņu. Mēs padarīsim šūnas noklikšķināmas un mainīsim datus, lai no atlasītās šūnas izveidotu diagrammu.
Izpildiet tālāk norādītās darbības, lai programmā Excel izveidotu dinamiskas diagrammas, kas mainās atbilstoši šūnu izvēlei.
1. darbība: sagatavojiet datus lapā kā diagrammas avotu.
Šeit man ir daži datu paraugi no dažādiem reģioniem lapā. Es to nosaucu par avota datiem.
2. darbība. Iegūstiet viena reģiona datus vienlaikus uz citas lapas.
- Tagad ievietojiet jaunu lapu. Nosauciet to atbilstoši. Es to nosaucu par "informācijas paneli".
- Kopējiet visus mēnešus vienā kolonnā. Blakus mēnesim uzrakstiet viena reģiona nosaukumu.
- Tagad mēs vēlamies iegūt reģiona datus šūnā D1. Mēs vēlamies, lai dati mainītos, mainoties reģionam D1. Šim nolūkam mēs varam izmantot divvirzienu uzmeklēšanu.
Tā kā mani avota dati ir A2: D8 avota datu lapā. Es izmantoju zemāk esošo formulu.
| =MEKLĒŠANA(C2, “Avota dati”! $ A $ 2: $ D $ 8,MATCH($ D $ 1, “Avota dati”! $ A $ 1: $ D $ 1,0)) |
Šeit mēs izmantojam dinamisko kolonnu indeksēšanu VLOOKUP. Par to varat izlasīt šeit.
- Ievietojiet diagrammu, izmantojot šos datus, informācijas paneļa lapā. Es izmantoju vienkāršu līniju diagrammu. Paslēpiet diagrammas avotu, ja nevēlaties tos parādīt.
Tagad, mainot reģiona nosaukumu D1, diagramma attiecīgi mainīsies. Nākamais solis ir mainīt reģiona nosaukumu D1, atlasot opciju no norādītās šūnas.
3. solis: Mainiet reģionu, atlasot reģiona nosaukumu norādītajā diapazonā.
- Ierakstiet visu reģionu nosaukumus diapazonā, es tos rakstu diapazonā A2: A4.
- Ar peles labo pogu noklikšķiniet uz informācijas paneļa lapas nosaukuma un noklikšķiniet uz opcijas "Skatīt kodu", lai tieši ievadītu darblapas moduli VBE, lai mēs varētu izmantot darblapas notikumu.
- Tagad uzrakstiet zemāk esošo kodu VB redaktorā.
Privāta apakšdarblapa_SelectionChange (ByVal mērķis kā diapazons) Ja nešķērso (mērķis, diapazons ("A2: A4")) nav nekas, tad diapazons ("A2: A4"). Interior.ColorIndex = xlColorIndexNone Dim apgabals kā Variant region = Target.value Par kļūdu GoTo kļūdīties: atlasiet gadījuma reģionu Lieta ir = "Centrālais" diapazons ("D1"). Vērtība = reģions Lieta ir = "Austrumu" diapazons ("D1"). ") .value = region Case Else MsgBox" Invalid Option "Beigas Atlasiet Target.Interior.ColorIndex = 8 Beigas Ja kļūda: beigu apakšdaļa
Un tas tiek darīts. Tagad, kad atlasīsit šūnu diapazonā A2: A4, tā vērtība tiks piešķirta D1, un diagrammas dati attiecīgi mainīsies.
Tālāk es izskaidroju, kā darbojas šis kods. Jūs to varat saprast un veikt izmaiņas atbilstoši savām prasībām. Esmu sniegusi saites uz palīdzības tēmām, kuras esmu izmantojis šeit šajā piemērā. Tāpēc pārbaudiet tos.
Kā darbojas kods?
Šeit es izmantoju Excel notikumu. Notikumu aktivizēšanai izmantoju darblapas notikumu “SelectionChange”.
Ja nav krustošanās (mērķis, diapazons ("A2: A4")), tad nekas nav
Šī līnija fokusē diapazonu A2: A4, tāpēc notikums SelectionChange tiek aktivizēts tikai tad, kad atlase ir diapazonā A2: A4. Kods starp If un End darbosies tikai tad, ja atlase būs diapazonā A2: A4. Tagad varat iestatīt to atbilstoši savai prasībai, lai diagramma būtu dinamiska.
Diapazons ("A2: A4"). Interior.ColorIndex = xlColorIndexNone
Šī līnija iestatīs diapazona A2: A4 krāsu uz neko.
region = Target.value On Error GoTo kļūda:
Iepriekš minētajās divās rindās mēs iegūstam mainīgo apgabalā atlasīto šūnu vērtību un ignorējam visas kļūdas. neizmantojiet rindiņu "On Error GoTo err:", kamēr neesat pārliecināts, ka vēlaties ignorēt visas radušās kļūdas. Es to izmantoju, lai izvairītos no kļūdas, atlasot vairākas šūnas.
Atlasiet gadījuma reģionu Lieta ir = "Centrālais" diapazons ("D1"). Vērtība = reģions Lieta ir = "Austrumu" diapazons ("D1"). Vērtība = reģions Lieta ir = "Rietumu" diapazons ("D1"). Vērtība = reģions Lieta Cits MsgBox "Nederīga opcija" Beigu atlase
Iepriekšminētajās rindās mēs izmantojam Excel Select Case Statement, lai iestatītu diapazona D1 vērtību.
Target.Interior.ColorIndex = 8 Beigas Ja kļūda: Beigt apakš
Pirms paziņojuma Beigt If mēs mainām atlasītās opcijas krāsu, lai tā tiktu izcelta. Tad Ja paziņojums beidzas un kļūda: sākas tags. Paziņojums par kļūdu pāriet uz šo tagu, ja atlases paziņojuma laikā rodas kāda kļūda.
Lejupielādējiet zemāk esošo darba failu.
Iegultās diagrammas notikumi, izmantojot VBA programmā Microsoft Excel| Iegulto diagrammu notikumi var padarīt jūsu diagrammu interaktīvāku, dinamiskāku un noderīgāku nekā parastās diagrammas. Lai iespējotu notikumus diagrammās, mēs…
Notikumi programmā Excel VBA |Programmā Excel ir septiņi notikumu veidi. Katrs pasākums ir atšķirīgs. Lietojumprogrammas notikums attiecas uz darbgrāmatas līmeni. Darbgrāmata lapu līmenī. Darblapas notikums diapazona līmenī.
Darblapas notikumi programmā Excel VBA| Darblapas notikums ir patiešām noderīgs, ja vēlaties palaist savus makro, kad lapā notiek noteikts notikums.
Darbgrāmatas notikumi, izmantojot VBA programmā Microsoft Excel | Darbgrāmatas pasākumi darbojas ar visu darbgrāmatu. Tā kā visas lapas ir daļa no darbgrāmatas, šie notikumi darbojas arī pie tām.
Neļaujiet automātam/eventmacro izpildīt, izmantojot Microsoft Excel VBA| Lai novērstu auto_open makro darbību, izmantojiet taustiņu Shift.
Diagrammējiet objektu notikumus, izmantojot VBA programmā Microsoft Excel| Diagrammas ir sarežģīti objekti, un tiem ir pievienotas vairākas sastāvdaļas. Lai izveidotu notikumus diagrammā, mēs izmantojam klases moduli.
Populāri raksti:
50 Excel saīsnes, lai palielinātu produktivitāti | Ātrāk izpildiet savu uzdevumu. Šie 50 saīsnes padarīs jūsu darbu vēl ātrāku programmā Excel.
Funkcija VLOOKUP programmā Excel | Šī ir viena no visbiežāk izmantotajām un populārākajām Excel funkcijām, kas tiek izmantota, lai meklētu vērtību no dažādiem diapazoniem un lapām.
COUNTIF programmā Excel 2016 | Saskaitiet vērtības ar nosacījumiem, izmantojot šo apbrīnojamo funkciju. Jums nav jāfiltrē dati, lai uzskaitītu noteiktu vērtību. Skaitītāja funkcija ir būtiska, lai sagatavotu informācijas paneli.
Kā lietot SUMIF funkciju programmā Excel | Šī ir vēl viena būtiska informācijas paneļa funkcija. Tas palīdz apkopot vērtības noteiktos apstākļos.
