✅ Ako vytvoriť a zobraziť graf v bunke

Obsah

Toto je jednoduchý návod, ako vytvoriť a zobraziť stĺpcový graf v bunke; technika, ktorá funguje veľmi dobre pri vytváraní správ o správe.

Kroky:

1. Do stĺpca A zadajte hodnoty, ktoré chcete zobraziť, tj. Do bunky A1 zadajte hodnotu 10, do bunky A2 20 atď.

2. Do stĺpca B1 zadajte nasledujúci vzorec: = REPT („n“, A1). Tento vzorec jednoducho hovorí Excelu, aby zopakoval hodnotu uloženú medzi „“ číslom v bunke A1.

3. Zmeňte písmo na „Wingdings“.

4. Pozrite si príklad 1 v priloženom súbore programu Excel.

5. Ak chcete skrátiť dĺžku stĺpcového grafu, jednoducho delte „A1“ vo vyššie uvedenom vzorci číslom 10 alebo akýmkoľvek číslom, ktoré dáva najväčší zmysel. Vzorec by napríklad vyzeral takto = REPT („n“, A1/10). Pozrite si príklad 2 v priloženom súbore programu Excel.

Je potrebné poznamenať, že zmenou „n“ vo vyššie uvedenom vzorci môžete zobraziť rôzne obrázky. Napríklad veľké písmeno „J“ bude zobrazovať usmievajúcu sa tvár, zatiaľ čo veľké písmeno „L“ bude zobrazovať smutnú tvár. Pozrite si príklad 3 v priloženom súbore programu Excel.

Zaobchádzanie s negatívnymi hodnotami

Vyššie uvedené vzorce fungujú dobre, ak pracujete s kladnými hodnotami. Ak je však hodnota v stĺpci A záporná, graf v stĺpci B sa zmení na reťazec tvorený niekoľkými rôznymi symbolmi, čím stratí požadovaný účinok (pozri príklad 4 v priloženej tabuľke).

Jedným zo spôsobov, ako prekonať toto obmedzenie, je vyhlásenie IF, ako napríklad:

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

Vysvetlenie vyššie uvedeného vzorca:

1. Predpokladajme, že hodnota, ktorú sa pokúšate zobraziť v stĺpcovom grafe, sa nachádza v bunke A21. Táto hodnota je tiež záporná.

2. Vzorec začína tým, že ak je hodnota v A21 menšia ako 0, tj. Záporná, potom zopakujte „n“ v absolútnej hodnote (ABS) obsiahnutej v bunke A21 a potom toto číslo delte číslom 10. Použitím absolútnej hodnoty ste povedzte Excelu, aby ignoroval záporné znamienko a považoval číslo za kladnú hodnotu.

3. Ďalšia časť vzorca hovorí Excelu, čo má robiť, ak je hodnota väčšia ako 0.

4. Pozrite si príklad 4 v priloženom súbore.

Zaujímavým doplnkom vyššie uvedeného by bolo použitie podmieneného formátovania na zmenu farby grafu tak, aby bola červená pri záporných hodnotách a modrá pri kladných hodnotách. Nechajte sa viesť svojou predstavivosťou!

Nasledujúci tutoriál popíše, ako vytvoriť graf v bunke, ako je tá, ktorá je zobrazená v tabuľke vyššie v stĺpci „Trend“.

Graf je vytvorený pomocou funkcie s názvom „CellChart“. Zadali by ste ho do programu Excel ako každú inú štandardnú funkciu, tj. SUMA, PRIEMER alebo VLOOKUP atď. Táto funkcia sa nazýva „funkcia definovaná používateľom“ a nie je štandardnou funkciou dostupnou v programe Microsoft Excel. Musí ho vytvoriť používateľ pomocou VBA.

Keď vstúpite do programu Excel, funkcia CellChart vyzerá takto:

Pri bližšom pohľade na funkciu CellChart je rozsah pre graf definovaný v prvej časti funkcie, C3: F3 vo vyššie uvedenom príklade. Ďalej je definovaná farba grafu, 203 pomocou vyššie uvedeného príkladu.

Teraz k veciam VBA

1. Vstúpte do okna projektu VBA kliknutím pravým tlačidlom na názov listu a výberom „Zobraziť kód“ alebo výberom „ALT, F11“.

2. Na pravej strane kliknite pravým tlačidlom myši na názov projektu a vyberte vložený „modul“.

3. Skopírujte a prilepte nasledujúci kód do nového modulu, ktorý ste práve vytvorili:

„Vytvorí novú funkciu s názvom Funkcia grafu bunky CellChart (grafy ako rozsah, farba ako dlhé) ako reťazec“ Definuje premenné, ktoré sa neskôr použijú v kóde Const cMargin = 2 Dim rng Ako rozsah, arr () Ako variant, i Ako dlhé, j Ako dlhé, k Ako dlhé Dim dblMin Ako Double, dblMax As Double, shp As Shape 'Nasledujúci výpočet grafov, ktoré sa majú použiť pre graf Set rng = Application.Caller ShapeDelete rng For i = 1 To Plots.Count If j = 0 Then j = i ElseIf Plots (, j)> plotts (, i) Then j = i End If If k = 0 Then k = i ElseIf plotts (, k) 
 0 Then .Line.ForeColor.RGB = Color Else .Line.ForeColor.SchemeColor = -Color End With End With CellChart = "" End Function Sub ShapeDelete (rngSelect As Range) 'Definuje premenné, ktoré budú použité neskôr v kóde Dim rng As Range, shp As Shape, blnDelete as Boolean for every shp In rngSelect.Worksheet.Shapes blnDelete = False Set rng = Intersect (Range (shp.TopLeftCell, shp.BottomRightCell), rngSelect) If Not rng Is nothing Then If rng .Address = Range (shp.TopLeftCell, shp.BottomRightCell) .Address Then blnDelete = True End If If blnDelete Then shp.Delete Next End Sub

4. Kliknite na tlačidlo uložiť.

5. Kliknutím na malú ikonu programu Excel v pravom hornom rohu pod ponukou „Súbor“ ukončíte okno projektu VBA a vrátite sa do programu Excel.