Cum se creează și se afișează o diagramă într-o celulă

Acesta este un tutorial simplu despre cum să creați și să afișați o diagramă cu bare într-o celulă; o tehnică care funcționează foarte bine la crearea rapoartelor de management.

Pași:

1. În coloana A introduceți valorile pe care doriți să le afișați, adică în celula A1 introduceți valoarea 10, în celula A2 20 etc.

2. În coloana B1 introduceți următoarea formulă: = REPT („n”, A1). Această formulă îi spune pur și simplu Excel să repete valoarea stocată între „„ după numărul din celula A1.

3. Schimbați fontul în „Wingdings”.

4. Vă rugăm să consultați exemplul 1 din fișierul Excel atașat.

5. Dacă doriți să micșorați lungimea diagramei, pur și simplu împărțiți „A1” în formula de mai sus cu 10 sau cu orice număr are cel mai mult sens. Ca exemplu, formula ar arăta astfel = REPT („n”, A1 / 10). Vezi exemplul 2 din fișierul Excel atașat.

Trebuie remarcat faptul că prin schimbarea „n” din formula menționată mai sus puteți afișa diferite imagini. De exemplu, „J” cu majusculă va afișa o față zâmbitoare, în timp ce „L” cu majusculă va afișa o față tristă. Vezi exemplul 3 din fișierul Excel atașat.

Tratarea valorilor negative

Formulele de mai sus funcționează bine atunci când aveți de-a face cu valori pozitive. Cu toate acestea, dacă valoarea din coloana A este negativă, graficul din coloana B se va transforma într-un șir format dintr-un număr de simboluri diferite, pierzând astfel efectul dorit (a se vedea exemplul 4 din foaia de calcul atașată).

O modalitate de a depăși această limitare este prin intermediul unei declarații IF cum ar fi:

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

Explicația formulei de mai sus:

1. Să presupunem că valoarea pe care încercați să o afișați într-un grafic cu bare se află în celula A21. Această valoare este, de asemenea, negativă.

2. Formula începe prin a spune dacă valoarea în A21 este mai mică de 0 adică negativă, apoi repetați „n” cu valoarea absolută (ABS) conținută în celula A21 și apoi împărțiți acest număr la 10. Prin utilizarea valorii absolute sunteți spuneți Excel să ignore semnul negativ și să trateze numărul ca pe o valoare pozitivă.

3. Următoarea parte a formulei spune Excel ce trebuie să facă dacă valoarea este mai mare de 0.

4. Vă rugăm să consultați exemplul 4 din fișierul atașat.

Adăugări interesante la cele de mai sus ar fi utilizarea formatării condiționate pentru a schimba culoarea graficului pentru a spune roșu pentru valorile negative și pentru albastru pentru valorile pozitive. Lasă-ți imaginația să te ghideze!

Următorul tutorial va descrie cum să creați o diagramă într-o celulă precum cea afișată în tabelul de mai sus sub coloana „Tendință”.

Diagrama este creată utilizând o funcție numită „CellChart”. O veți introduce în Excel ca orice altă funcție standard, adică SUM, MEDIE sau VLOOKUP etc. Această funcție se numește „Funcție definită de utilizator” și nu este o funcție standard disponibilă în Microsoft Excel. Acesta trebuie creat de către utilizator utilizând VBA.

Când este introdusă în Excel, funcția CellChart arată astfel:

Aruncând o privire mai atentă la funcția CellChart, intervalul pentru diagramă este definit în prima parte a funcției, C3: F3 în exemplul de mai sus. În continuare se definește culoarea graficului, 203 folosind exemplul de mai sus.

Acum, pentru lucrurile VBA

1. Introduceți fereastra proiectului VBA făcând clic dreapta pe numele unei foi și selectând „View Code” sau selectând „ALT, F11”.

2. În partea dreaptă, faceți clic dreapta pe numele proiectului și selectați inserarea „modul”.

3. Copiați și lipiți următorul cod în noul modul pe care tocmai l-ați creat:

„Creează o nouă funcție numită Cell Chart Function CellChart (Plots as Range, Color As Long) As String” Definește variabilele care vor fi utilizate ulterior în cod Const cMargin = 2 Dim rng As Range, arr () Ca variantă, i At Long, j As Long, k As Long Dim dblMin As Double, dblMax As Double, shp As Shape 'Următorul calculează graficele care urmează să fie utilizate pentru graficul Set rng = Application.Caller ShapeDelete rng For i = 1 To Plots.Count Dacă j = 0 Atunci j = i ElseIf Plots (, j)> Plots (, i) Atunci j = i End Dacă If k = 0 Atunci k = i ElseIf Plots (, k) 
 0 În continuare. Dim rng As Range, shp As Shape, blnDelete As Boolean Pentru fiecare shp din rngSelect.Worksheet.Shapes blnDelete = False Set rng = Intersect (Range (shp.TopLeftCell, shp.BottomRightCell), rngSelect) Dacă nu rng nu este nimic atunci dacă rng .Adresă = Interval (shp.TopLeftCell, shp.BottomRightCell). Adresă Atunci blnDelete = Sfârșit adevărat Dacă Dacă blnDelete Apoi shp.Delete Următorul sfârșit Sub 

4. Faceți clic pe butonul de salvare.

5. Faceți clic pe mica pictogramă Excel din dreapta sus sub meniul „Fișier” pentru a ieși din fereastra proiectului VBA și pentru a reveni la Excel

6. Introduceți funcția CellChart în orice celulă, așa cum este afișat mai sus.

7. Consultați registrul de lucru atașat pentru un exemplu de lucru din cele de mai sus.

Pentru informații suplimentare despre acest tip de diagramă de celule, vizitați:

În Cartografierea celulelor