✅ Kā izveidot un parādīt diagrammu šūnā

Satura rādītājs

Šī ir vienkārša apmācība par to, kā šūnā izveidot un parādīt joslu diagrammu; tehnika, kas ļoti labi darbojas, veidojot vadības pārskatus.

Soļi:

1. A slejā ievadiet vērtības, kuras vēlaties parādīt, t.i. šūnā A1 ievadiet vērtību 10, šūnā A2 20 utt.

2. Ailē B1 ievadiet šādu formulu: = REPT (“n”, A1). Šī formula vienkārši liek programmai Excel atkārtot vērtību, kas saglabāta starp “” ar skaitli šūnā A1.

3. Mainiet fontu uz “Wingdings”.

4. Lūdzu, skatiet 1. piemēru pievienotajā Excel failā.

5. Ja vēlaties samazināt joslu diagrammas garumu, vienkārši sadaliet “A1” iepriekšminētajā formulā ar 10 vai ar jebkuru skaitli, kas ir vispiemērotākais. Piemēram, formula izskatītos šādi = REPT (“n”, A1/10). Skatiet 2. piemēru pievienotajā Excel failā.

Jāatzīmē, ka, mainot “n” iepriekšminētajā formulā, jūs varat parādīt dažādus attēlus. Piemēram, lielais burts “J” parādīs smaidošu seju, bet lielais burts “L” - skumju seju. Skatiet 3. piemēru pievienotajā Excel failā.

Darbs ar negatīvām vērtībām

Iepriekš minētās formulas labi darbojas, strādājot ar pozitīvām vērtībām. Tomēr, ja vērtība A slejā ir negatīva, diagramma B slejā mainīsies uz virkni, kas sastāv no vairākiem dažādiem simboliem, tādējādi zaudējot vēlamo efektu (skat. 4. piemēru pievienotajā izklājlapā).

Viens veids, kā pārvarēt šo ierobežojumu, ir IF paziņojums, piemēram:

= IF (A21 <0, REPT (“n”, ABS (A21/10)), REPT (“n”, A21/10))

Iepriekš minētās formulas skaidrojums:

1. Pieņemsim, ka vērtība, kuru mēģināt parādīt joslu diagrammā, atrodas šūnā A21. Arī šī vērtība ir negatīva.

2. Formula sākas, sakot, ja vērtība A21 ir mazāka par 0, ti, negatīva, tad atkārtojiet “n” ar absolūto vērtību (ABS), kas atrodas šūnā A21, un pēc tam daliet šo skaitli ar 10. Izmantojot absolūto vērtību, jūs pasakiet programmai Excel, ka tā ignorē negatīvo zīmi un uzskata to par pozitīvu vērtību.

3. Nākamā formulas daļa norāda programmai Excel, kas jādara, ja vērtība ir lielāka par 0.

4. Lūdzu, skatiet 4. piemēru pievienotajā failā.

Interesanti papildinājumi iepriekš minētajam būtu nosacījuma formatējuma izmantošana, lai mainītu diagrammas krāsu, lai teiktu sarkanu negatīvām vērtībām un zilu - pozitīvām vērtībām. Ļaujiet savai iztēlei vadīt jūs!

Šajā apmācībā tiks aprakstīts, kā izveidot diagrammu šūnā, kas parādīta tabulā slejā “Tendence”.

Diagramma tiek veidota, izmantojot funkciju ar nosaukumu “CellChart”. Jūs to ievadīsit programmā Excel tāpat kā jebkuru citu standarta funkciju, piemēram, SUM, AVERAGE vai VLOOKUP utt. Šo funkciju sauc par “lietotāja definētu funkciju”, un tā nav standarta funkcija, kas pieejama programmā Microsoft Excel. Tas jāizveido lietotājam, izmantojot VBA.

Ievadot programmu Excel, CellChart funkcija izskatās šādi:

Rūpīgāk apskatot funkciju CellChart, diagrammas diapazons ir definēts funkcijas pirmajā daļā, C3: F3 iepriekš minētajā piemērā. Tālāk tiek definēta diagrammas krāsa, 203 izmantojot iepriekš minēto piemēru.

Tagad par VBA lietām

1. Ievadiet VBA projekta logu, ar peles labo pogu noklikšķinot uz lapas nosaukuma un atlasot “Skatīt kodu” vai atlasot “ALT, F11”.

2. Labajā pusē ar peles labo pogu noklikšķiniet uz sava projekta nosaukuma un izvēlieties ievietoto “moduli”.

3. Kopējiet un ielīmējiet šo kodu tikko izveidotajā jaunajā modulī:

"Izveido jaunu funkciju ar nosaukumu Cell Chart Function CellChart (diagrammas kā diapazons, krāsa tik ilgi) kā virkne" Nosaka mainīgos, kas tiks izmantoti vēlāk kodā Const cMargin = 2 Dim rng As Range, arr () Kā Variant, i Tik ilgi, j tik ilgi, k tik ilgi dblMin kā dubultā, dblMax kā dubultā, shp kā forma 'Tālāk tiek aprēķināti diagrammā izmantotie paraugi Set rng = Application.Caller ShapeDelete rng For i = 1 To Plots.Count Ja j = 0, tad j = i ElseIf Zemes gabali (, j)> Zemes gabali (, i) Tad j = i Beigas Ja Ja k = 0 Tad k = i Citādi 
 0 Tad .Line.ForeColor.RGB = Cita krāsa .Line.ForeColor.SchemeColor = -Color End With End With CellChart = "" End Function Sub ShapeDelete (rngSelect As Range) "Nosaka mainīgos, kas tiks izmantoti vēlāk kodā Dim rng kā diapazons, shp kā forma, blnDelete kā Būla katrai shp In rngSelect.Worksheet.Shapes blnDelete = False Set rng = Intersect (Range (shp.TopLeftCell, shp.BottomRightCell), rngSelect) Ja nav rng nav nekas, tad rng .Address = Diapazons (shp.TopLeftCell, shp.BottomRightCell). Adrese Tad blnDelete = Patiess gals Ja, ja blnDelete Tad shp. Dzēst nākamo beigu apakšdaļu

4. Noklikšķiniet uz saglabāšanas pogas.

5. Noklikšķiniet uz mazās Excel ikonas augšējā labajā stūrī zem izvēlnes “Fails”, lai izietu no VBA projekta loga un atgrieztos programmā Excel