✅ Kaavion luominen ja näyttäminen solussa

Sisällysluettelo

Tämä on yksinkertainen opetusohjelma pylväskaavion luomiseksi ja näyttämiseksi solussa; tekniikka, joka toimii erittäin hyvin hallintoraporttien luomisessa.

Askeleet:

1. Kirjoita sarakkeeseen A näytettävät arvot eli soluun A1 syötä arvo 10, soluun A2 20 jne.

2. Kirjoita sarakkeeseen B1 seuraava kaava: = REPT (“n”, A1). Tämä kaava käskee Excelin toistamaan "" välille tallennetun arvon solussa A1 olevalla numerolla.

3. Vaihda fontiksi "Wingdings".

4. Katso esimerkki 1 liitteenä olevassa Excel -tiedostossa.

5. Jos haluat pienentää pylväskaavion pituutta, jaa "A1" yllä olevassa kaavassa 10: llä tai millä tahansa järkevällä luvulla. Kaava näyttää esimerkiksi tältä = REPT ("n", A1/10). Katso esimerkki 2 liitteenä olevassa Excel -tiedostossa.

On huomattava, että muuttamalla "n" yllä mainitussa kaavassa voit näyttää erilaisia kuvia. Esimerkiksi iso kirjain "J" näyttää hymyilevät kasvot ja iso "L" surulliset kasvot. Katso esimerkki 3 liitteenä olevasta Excel -tiedostosta.

Negatiivisten arvojen käsittely

Yllä olevat kaavat toimivat hyvin, kun käsittelet positiivisia arvoja. Jos sarakkeen A arvo on kuitenkin negatiivinen, sarakkeen B kuvaaja muuttuu merkkijonoksi, joka koostuu useista eri symboleista, jolloin haluttu vaikutus häviää (katso esimerkki 4 liitteenä olevasta taulukosta).

Yksi tapa voittaa tämä rajoitus on IF -lausunto, kuten:

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

Selitys yllä olevasta kaavasta:

1. Oletetaan, että arvo, jota yrität näyttää pylväskaaviossa, sijaitsee solussa A21. Tämä arvo on myös negatiivinen.

2. Kaava alkaa sanomalla, jos A21: n arvo on pienempi kuin 0 eli negatiivinen, toista sitten "n" solun A21 absoluuttisella arvolla (ABS) ja jaa sitten tämä luku 10. Käyttämällä absoluuttista arvoa kerro Excelille, että se jättää huomiotta negatiivisen merkin ja käsittelee numeroa positiivisena arvona.

3. Kaavan seuraava osa kertoo Excelille, mitä tehdä, jos arvo on suurempi kuin 0.

4. Katso liitteenä olevan tiedoston esimerkki 4.

Mielenkiintoisia lisäyksiä yllä olevaan olisi käyttää ehdollista muotoilua kaavion värin muuttamiseksi sanomaan punainen negatiivisille arvoille ja siniselle positiivisille arvoille. Anna mielikuvituksesi ohjata sinua!

Seuraavassa opetusohjelmassa kuvataan, kuinka luodaan kaavio soluun, joka näkyy yllä olevassa taulukossa Trend -sarakkeessa.

Kaavio luodaan käyttämällä CellChart -funktiota. Syöttäisit sen Exceliin kuten muutkin vakiotoiminnot, esim. SUMMA, KESKIARVO tai VLOOKUP jne. Tätä toimintoa kutsutaan "käyttäjän määrittämäksi funktioksi", eikä se ole Microsoft Excelin vakiotoiminto. Käyttäjän on luotava se VBA: n avulla.

Kun Exceliin syötetään, CellChart -toiminto näyttää tältä:

Kun tarkastellaan lähemmin CellChart -funktiota, kaavion alue määritellään funktion ensimmäisessä osassa, C3: F3 yllä olevassa esimerkissä. Seuraavaksi määritellään kaavion väri, 203 käyttämällä yllä olevaa esimerkkiä.

Nyt VBA -juttuja

1. Siirry VBA -projektiikkunaan napsauttamalla hiiren kakkospainikkeella taulukon nimeä ja valitsemalla "Näytä koodi" tai valitsemalla "ALT, F11".

2. Napsauta oikealla puolella projektisi nimeä hiiren kakkospainikkeella ja valitse upotettu ”moduuli”.

3. Kopioi ja liitä seuraava koodi juuri luomaasi uuteen moduuliin:

'Luo uuden funktion nimeltä Solukaavio Toiminto CellChart (piirtää alueena, väri niin kauan) merkkijonona' Määrittää muuttujat, joita käytetään myöhemmin koodissa Const cMargin = 2 Dim rng as Range, arr () Variant, i Niin kauan, j Niin kauan, k Niin kauan Dim dblMin Kuten Double, dblMax As Double, shp As Shape 'Seuraava laskee kaaviossa käytettävät käyrät Set rng = Application.Caller ShapeDelete rng For i = 1 to Plots.Count Jos j = 0 Sitten j = i ElseIf Plots (, j)> Tontit (, i) Sitten j = i End If If k = 0 Sitten k = i ElseIf Plots (, k) 
 0 Sitten .Line.ForeColor.RGB = Väri Muu .Line.ForeColor.SchemeColor = -Väri Loppu Lopuksi CellChart = "" Lopetusfunktio Sub ShapeDelete (rngSelect As Range) 'Määrittää muuttujat, joita käytetään myöhemmin koodissa Dim rng as Range, shp As Shape, blnDelete Boolean for each shp In rngSelect.Worksheet.Shapes blnDelete = False Set rng = Intersect (Range (shp.TopLeftCell, shp.BottomRightCell), rngSelect) Jos ei rng ei ole mitään jos rng .Address = Range (shp.TopLeftCell, shp.BottomRightCell) .Address then blnDelete = True End if Jos blnDelete then shp.Delete Next End Sub

4. Napsauta tallennuspainiketta.

5. Sulje VBA -projektiikkuna ja palaa Exceliin napsauttamalla pientä Excel -kuvaketta oikeassa yläkulmassa "Tiedosto" -valikon alla