✅ Jak vytvořit a zobrazit graf v buňce

Obsah

Toto je jednoduchý návod, jak vytvořit a zobrazit sloupcový graf v buňce; technika, která funguje velmi dobře při vytváření zpráv o správě.

Kroky:

1. Do sloupce A zadejte hodnoty, které chcete zobrazit, tj. Do buňky A1 zadejte hodnotu 10, do buňky A2 20 atd.

2. Do sloupce B1 zadejte následující vzorec: = REPT („n“, A1). Tento vzorec jednoduše říká Excelu, aby zopakoval hodnotu uloženou mezi „“ číslem v buňce A1.

3. Změňte písmo na „Wingdings“.

4. Viz příklad 1 v přiloženém souboru aplikace Excel.

5. Pokud si přejete zmenšit délku sloupcového grafu, jednoduše vydělte „A1“ ve výše uvedeném vzorci číslem 10 nebo jakýmkoli číslem, které dává největší smysl. Jako příklad by vzorec vypadal takto = REPT („n“, A1/10). Viz příklad 2 v přiloženém souboru aplikace Excel.

Je třeba poznamenat, že změnou „n“ ve výše uvedeném vzorci můžete zobrazit různé obrázky. Například velké písmeno „J“ zobrazí usmívající se tvář, zatímco velké písmeno „L“ smutnou tvář. Viz příklad 3 v přiloženém souboru aplikace Excel.

Nakládání s negativními hodnotami

Výše uvedené vzorce fungují dobře, pokud máte co do činění s kladnými hodnotami. Pokud je však hodnota ve sloupci A záporná, graf ve sloupci B se změní na řetězec tvořený řadou různých symbolů, čímž ztratí požadovaný efekt (viz příklad 4 v přiložené tabulce).

Jedním ze způsobů, jak toto omezení překonat, je prohlášení IF, jako je:

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

Vysvětlení výše uvedeného vzorce:

1. Předpokládejte, že se hodnota, kterou se pokoušíte zobrazit ve sloupcovém grafu, nachází v buňce A21. Tato hodnota je také záporná.

2. Vzorec začíná tím, že je -li hodnota v A21 menší než 0, tj. Záporná, opakujte „n“ absolutní hodnotou (ABS) obsaženou v buňce A21 a poté toto číslo vydělte 10. Použitím absolutní hodnoty jste řekněte Excelu, aby ignoroval záporné znaménko a považoval číslo za kladnou hodnotu.

3. Další část vzorce říká Excelu, co má dělat, pokud je hodnota větší než 0.

4. Viz příklad 4 v přiloženém souboru.

Zajímavým dodatkem k výše uvedenému by bylo použití podmíněného formátování ke změně barvy grafu na červenou pro záporné hodnoty a modrou pro kladné hodnoty. Nechte se vést svou představivostí!

Následující tutoriál popíše, jak vytvořit graf v buňce, jako je ta, která je zobrazena v tabulce výše ve sloupci „Trend“.

Graf je vytvořen pomocí funkce nazvané „CellChart“. Zadali byste jej do aplikace Excel jako jakoukoli jinou standardní funkci, tj. SUMA, PRŮMĚR nebo VLOOKUP atd. Tato funkce se nazývá „Funkce definovaná uživatelem“ a není standardní funkcí dostupnou v aplikaci Microsoft Excel. Musí být vytvořen uživatelem pomocí VBA.

Po zadání do Excelu vypadá funkce CellChart takto:

Při bližším pohledu na funkci CellChart je rozsah grafu definován v první části funkce, C3: F3 ve výše uvedeném příkladu. Dále je definována barva grafu, 203 pomocí výše uvedeného příkladu.

Nyní k věcem VBA

1. Vstupte do okna projektu VBA kliknutím pravým tlačítkem na název listu a výběrem „Zobrazit kód“ nebo výběrem „ALT, F11“.

2. Na pravé straně klikněte pravým tlačítkem na název projektu a vyberte vložený „modul“.

3. Zkopírujte a vložte následující kód do nového modulu, který jste právě vytvořili:

'Vytvoří novou funkci nazvanou Funkce buněčného grafu CellChart (vykreslí jako rozsah, barva jako dlouhý) jako řetězec' Definuje proměnné, které budou použity později v kódu Const cMargin = 2 Dim rng jako rozsah, arr () jako varianta, i Jak dlouhý, j jako dlouhý, k Jako dlouhý Dim dblMin jako dvojitý, dblMax jako dvojitý, shp jako tvar 'Následující vypočítá grafy, které mají být použity pro graf Set rng = Application.Caller ShapeDelete rng For i = 1 To Plots.Count If j = 0 Then j = i ElseIf Plots (, j)> Plots (, i) Then j = i End If If k = 0 Then k = i ElseIf Plots (, k) 
 0 Then .Line.ForeColor.RGB = Color Else .Line.ForeColor.SchemeColor = -Color End With End With CellChart = "" End Function Sub ShapeDelete (rngSelect As Range) 'Defines the variables that will be used later on in the code Dim rng As Range, shp As Shape, blnDelete as Boolean For each 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. Klikněte na tlačítko Uložit.

5. Kliknutím na malou ikonu Excelu vpravo nahoře pod nabídkou „Soubor“ ukončíte okno projektu VBA a vrátíte se do Excelu