✅ Kako ustvariti in prikazati grafikon v celici

Kazalo

To je preprosta vadnica o tem, kako ustvariti in prikazati stolpčni grafikon v celici; tehnika, ki zelo dobro deluje pri ustvarjanju poročil o upravljanju.

Koraki:

1. V stolpec A vnesite vrednosti, ki jih želite prikazati, tj. V celico A1 vnesite vrednost 10, v celico A2 20 itd.

2. V stolpec B1 vnesite naslednjo formulo: = REPT (“n”, A1). Ta formula preprosto pove Excelu, naj vrednost, shranjeno med "", ponovi s številko v celici A1.

3. Spremenite pisavo v “Wingdings”.

4. Oglejte si primer 1 v priloženi Excelovi datoteki.

5. Če želite zmanjšati dolžino stolpčnega grafikona, preprosto razdelite »A1« v zgornji formuli za 10 ali za katero koli drugo številko, ki je najbolj smiselna. Na primer, formula bi izgledala tako = REPT ("n", A1/10). Glej primer 2 v priloženi Excelovi datoteki.

Treba je opozoriti, da lahko s spreminjanjem "n" v zgoraj omenjeni formuli prikažete različne slike. Na primer velika črka "J" bo prikazala nasmejan obraz, velika "L" pa žalosten obraz. Glej primer 3 v priloženi Excelovi datoteki.

Ukvarjanje z negativnimi vrednostmi

Zgornje formule dobro delujejo, ko se ukvarjate s pozitivnimi vrednostmi. Če pa je vrednost v stolpcu A negativna, se bo graf v stolpcu B spremenil v niz, sestavljen iz številnih različnih simbolov, s čimer se izgubi želeni učinek (glej primer 4 v priloženi preglednici).

Eden od načinov za premagovanje te omejitve je izjava IF, kot je:

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

Pojasnilo zgornje formule:

1. Predpostavimo, da se vrednost, ki jo poskušate prikazati v stolpčnem grafikonu, nahaja v celici A21. Ta vrednost je tudi negativna.

2. Formula se začne tako, da če je vrednost v A21 manjša od 0, tj. Negativna, nato ponovite "n" z absolutno vrednostjo (ABS) v celici A21 in nato to število delite z 10. Z uporabo absolutne vrednosti ste recite Excelu, naj ignorira negativni predznak in obravnava številko kot pozitivno vrednost.

3. Naslednji del formule Excelu pove, kaj naj naredi, če je vrednost večja od 0.

4. Glejte primer 4 v priloženi datoteki.

Zanimivi dodatki k zgornjemu bi bili uporaba pogojnega oblikovanja za spremembo barve grafa, tako da za negativne vrednosti rečemo rdeče, za pozitivne pa modro. Naj vas vodi domišljija!

Naslednja vadnica bo opisala, kako ustvariti grafikon v celici, kot je prikazana v zgornji tabeli pod stolpcem »Trend«.

Grafikon je ustvarjen s funkcijo, imenovano »CellChart«. V Excel bi ga vnesli kot katero koli drugo standardno funkcijo, na primer SUM, POVPREČNO ali VLOOKUP itd. Ta funkcija se imenuje »uporabniško določena funkcija« in ni standardna funkcija, ki je na voljo v programu Microsoft Excel. Ustvariti ga mora uporabnik z uporabo VBA.

Ko vnesete v Excel, funkcija CellChart izgleda tako:

Če podrobneje pogledamo funkcijo CellChart, je obseg grafikona opredeljen v prvem delu funkcije, C3: F3 v zgornjem primeru. Nato je v zgornjem primeru definirana barva grafikona, 203.

Zdaj o stvareh VBA

1. Vstopite v okno projekta VBA tako, da z desno tipko miške kliknete ime lista in izberete »Ogled kode« ali z izbiro »ALT, F11«.

2. Na desni strani z desno miškino tipko kliknite ime svojega projekta in izberite vstavljeni »modul«.

3. Kopirajte in prilepite naslednjo kodo v novi modul, ki ste ga pravkar ustvarili:

"Ustvari novo funkcijo, imenovano Cell Chart Funkcija CellChart (Plots As Range, Color As Long) As String" Določa spremenljivke, ki bodo kasneje uporabljene v kodi Const cMargin = 2 Dim rng As Range, arr () As Variant, i As Long, j As Long, k As Long Dim dblMin As Double, dblMax As Double, shp As Shape 'V nadaljevanju so izračuni ploskve, ki jih je treba uporabiti za grafikon Set rng = Application.Caller ShapeDelete rng For i = 1 To Plots. Če je j = 0, potem j = i Ostale ploskve (, j)> ploskve (, i) Potem j = i Konec Če je k = 0 Potem je k = i Ostalo 
 0. Dim rng As Range, shp As Shape, blnDelete As Boolean Za vsak shp v rngSelect.Worksheet.Shapes blnDelete = False Set rng = Intersect (Range (shp.TopLeftCell, shp.BottomRightCell), rngSelect) Če ni rng, potem ni nič .Address = Obseg (shp.TopLeftCell, shp.BottomRightCell). Naslov Nato blnDelete = True End Če je, če je blnDelete Potem shp.Delete Next End Sub

4. Kliknite gumb shrani.

5. Kliknite na majhno ikono Excel v zgornjem desnem kotu pod menijem »Datoteka«, da zaprete okno projekta VBA in se vrnete v Excel