✅ Kako stvoriti i prikazati grafikon u ćeliji

Sadržaj

Ovo je jednostavan vodič o tome kako stvoriti i prikazati stupčasti grafikon u ćeliji; tehnika koja vrlo dobro funkcionira pri izradi izvješća o upravljanju.

Koraci:

1. U stupac A unesite vrijednosti koje želite prikazati, tj. U ćeliju A1 unesite vrijednost 10, u ćeliju A2 20 itd.

2. U stupac B1 unesite sljedeću formulu: = REPT (“n”, A1). Ova formula jednostavno govori Excelu da ponovi vrijednost pohranjenu između "" brojem u ćeliji A1.

3. Promijenite font u “Wingdings”.

4. Pogledajte primjer 1 u priloženoj Excel datoteci.

5. Ako želite smanjiti duljinu trakastog grafikona, jednostavno podijelite "A1" u gornjoj formuli za 10 ili za bilo koji broj koji ima najviše smisla. Primjerice, formula bi izgledala ovako = REPT ("n", A1/10). Pogledajte primjer 2 u priloženoj Excel datoteci.

Valja napomenuti da promjenom "n" u gore spomenutoj formuli možete prikazati različite slike. Na primjer, velikim slovom "J" prikazat će se nasmijano lice, a velikim slovom "L" tužno lice. Pogledajte primjer 3 u priloženoj Excel datoteci.

Suočavanje s negativnim vrijednostima

Gore navedene formule dobro funkcioniraju kada se bavite pozitivnim vrijednostima. Međutim, ako je vrijednost u stupcu A negativna, graf u stupcu B promijenit će se u niz sastavljen od više različitih simbola čime će se izgubiti željeni učinak (vidi primjer 4 u priloženoj proračunskoj tablici).

Jedan od načina za prevladavanje ovog ograničenja je IF izjava poput:

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

Objašnjenje gornje formule:

1. Pretpostavimo da se vrijednost koju pokušavate prikazati na stupčastom grafikonu nalazi u ćeliji A21. Ova vrijednost je također negativna.

2. Formula počinje govoreći ako je vrijednost u A21 manja od 0, tj. Negativna, zatim ponovite „n“ s apsolutnom vrijednošću (ABS) sadržanom u ćeliji A21, a zatim podijelite ovaj broj s 10. Pomoću apsolutne vrijednosti dobivate recite Excelu da zanemari negativni predznak i tretira broj kao pozitivnu vrijednost.

3. Sljedeći dio formule govori Excelu što učiniti ako je vrijednost veća od 0.

4. Molimo pogledajte primjer 4 u priloženoj datoteci.

Zanimljivi dodaci gore navedenom bili bi upotreba uvjetnog oblikovanja za promjenu boje grafikona tako da se za negativne vrijednosti kaže crveno, a za pozitivne plavo. Neka vas vodi mašta!

Sljedeći vodič će opisati kako stvoriti grafikon u ćeliji poput one prikazane u gornjoj tablici u stupcu "Trend".

Grafikon je kreiran pomoću funkcije pod nazivom "CellChart". Unijeli biste je u Excel kao i bilo koju drugu standardnu funkciju, npr. ZBIR, PROSJEK ili VLOOKUP itd. Ova se funkcija naziva "Korisnički definirana funkcija" i nije standardna funkcija dostupna u programu Microsoft Excel. Korisnik ga mora stvoriti pomoću VBA.

Kada se unese u Excel, funkcija CellChart izgleda ovako:

Kad se bolje pogleda funkcija CellChart, raspon grafikona definiran je u prvom dijelu funkcije, C3: F3 u gornjem primjeru. Zatim je definirana boja grafikona, 203 koristeći gornji primjer.

Sada o VBA stvarima

1. Uđite u prozor projekta VBA desnim klikom na naziv lista i odabirom “View Code” ili odabirom “ALT, F11”.

2. S desne strane desnom tipkom miša kliknite naziv projekta i odaberite umetnuti „modul“.

3. Kopirajte i zalijepite sljedeći kôd u novi modul koji ste upravo stvorili:

'Stvara novu funkciju koja se naziva Cell Chart Funkcija CellChart (Plots As Range, Color As Long) As String' Definira varijable koje će se kasnije koristiti u kodu 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 'U nastavku se izračunavaju grafikoni koji će se koristiti za grafikon. Postavite rng = Application.Caller ShapeDelete rng For i = 1 To Plots.Count Ako je j = 0 Tada je j = i Ostali grafikoni (, j)> Grafikoni (, i) Tada je j = i Kraj Ako je k = 0 Tada je k = i OstaloIzrazi (, k) 
 0 Zatim .Line.ForeColor.RGB = Ostala boja. Line.ForeColor.SchemeColor = -Boja Završi sa završetkom s CellChart = "" Završi funkciju Pod ShapeDelete (rngSelect As Range) 'Definira varijable koje će se kasnije koristiti u kodu Dim rng As Range, shp As Shape, blnDelete As Boolean Za svaki shp U rngSelect.Worksheet.Shapes blnDelete = False Set rng = Intersect (Raspon (shp.TopLeftCell, shp.BottomRightCell), rngSelect) Ako nije rng Ništa Tada .Address = Raspon (shp.TopLeftCell, shp.BottomRightCell). Adresa Zatim blnDelete = True End Ako Ako blnDelete Zatim shp.Delete Next End Sub

4. Pritisnite gumb za spremanje.

5. Kliknite na malu ikonu programa Excel u gornjem desnom kutu ispod izbornika “Datoteka” za izlaz iz prozora projekta VBA i za povratak u Excel