✅ Diagram létrehozása és megjelenítése egy cellában

Tartalomjegyzék

Ez egy egyszerű oktatóanyag arról, hogyan hozhat létre és jeleníthet meg oszlopdiagramot egy cellában; olyan technika, amely nagyon jól működik a vezetői jelentések készítésekor.

Lépések:

1. Az A oszlopba írja be a megjeleníteni kívánt értékeket, azaz az A1 cellába írja be a 10 értéket, az A2 20 cellába stb.

2. A B1 oszlopba írja be a következő képletet: = REPT („n”, A1). Ez a képlet egyszerűen azt mondja az Excelnek, hogy ismételje meg a „” között tárolt értéket az A1 cella számával.

3. Módosítsa a betűtípust „Wingdings” -re.

4. Lásd a mellékelt Excel fájl 1. példáját.

5. Ha csökkenteni szeretné az oszlopdiagram hosszát, egyszerűen ossza el a fenti képletben szereplő „A1” -t 10 -gyel vagy bármilyen számmal, amely a legértelmesebb. Például a képlet így nézne ki = REPT („n”, A1/10). Lásd a 2. példát a csatolt Excel fájlban.

Meg kell jegyezni, hogy a fent említett képlet „n” megváltoztatásával különböző képeket jeleníthet meg. Például a „J” betű mosolygós arcot, míg az „L” szomorú arcot jelenít meg. Lásd a 3. példát a csatolt Excel fájlban.

Negatív értékek kezelése

A fenti képletek jól működnek, ha pozitív értékekkel van dolgunk. Ha azonban az A oszlop értéke negatív, a B oszlop grafikonja számos különböző szimbólumból álló karakterlánccá változik, ezáltal elveszítve a kívánt hatást (lásd a 4. példát a mellékelt táblázatban).

Ennek a korlátozásnak az egyik módja az IF utasítás, mint például:

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

A fenti képlet magyarázata:

1. Tegyük fel, hogy az oszlopdiagramon megjeleníteni kívánt érték az A21 cellában található. Ez az érték is negatív.

2. A képlet azzal kezdődik, hogy ha az A21 értéke kisebb, mint 0, azaz negatív, akkor ismételje meg az „n” -t az A21 cellában található abszolút értékkel (ABS), majd ossza el ezt a számot 10 -gyel. Az abszolút érték használatával mondja meg az Excelnek, hogy hagyja figyelmen kívül a negatív jelet, és kezelje a számot pozitív értékként.

3. A képlet következő része megmondja az Excelnek, hogy mit kell tennie, ha az érték nagyobb, mint 0.

4. Lásd a 4. példát a csatolt fájlban.

A fentiek érdekes kiegészítései lennének, ha feltételes formázással módosítanánk a grafikon színét, és azt mondjuk, hogy piros a negatív értékeknél, és kék a pozitív értékeknél. Engedd, hogy a fantáziád vezessen!

A következő oktatóanyag leírja, hogyan lehet diagramot létrehozni egy cellában, mint amilyen a fenti táblázatban a „Trend” oszlopban látható.

A diagram a „CellChart” nevű függvény segítségével jön létre. Ezt az Excelbe írja be, mint bármely más szabványos funkciót, például ÖSSZEG, ÁTLAG vagy VLOOKUP stb. Ezt a funkciót „Felhasználó által definiált funkciónak” hívják, és nem a Microsoft Excelben elérhető szabványos funkció. Ezt a felhasználónak kell létrehoznia a VBA használatával.

Az Excelbe való belépéskor a CellChart függvény így néz ki:

Ha közelebbről megvizsgáljuk a CellChart függvényt, a diagram tartományát a függvény első része határozza meg, a fenti példában a C3: F3. Ezután a diagram színét határozzuk meg, 203 a fenti példa segítségével.

Most a VBA -ról

1. Lépjen be a VBA projekt ablakába a jobb egérgombbal kattintva a munkalap nevére, és válassza a „Kód megtekintése” lehetőséget, vagy az „ALT, F11” lehetőséget.

2. A jobb oldalon kattintson a jobb gombbal a projekt nevére, és válassza a beillesztett „modult”.

3. Másolja ki és illessze be a következő kódot az imént létrehozott új modulba:

'Létrehoz egy új függvényt, Celladiagram Funkció CellChart (Tartományként ábrázolja, Színe, amíg hosszú) Stringként' Meghatározza azokat a változókat, amelyeket a későbbiekben használni fog a Const cMargin = 2 Dim rng mint tartomány, arr () Változatként, i Amilyen hosszú, j olyan hosszú, k olyan hosszú halvány dblMin, mint kettős, dblMax, mint kettős, shp, mint alakzat 'Az alábbiakban kiszámítjuk a diagramhoz használandó görbéket Set rng = Application.Caller ShapeDelete rng For i = 1 To Plots.Count Ha j = 0, akkor j = i ElseIf Plots (, j)> Plots (, i) Akkor j = i End If If k = 0 then k = i ElseIf Plots (, k) 
 0 Majd .Line.ForeColor.RGB = Színes más .Line.ForeColor.SchemeColor = -Color End With End With CellChart = "" End Function Sub ShapeDelete (rngSelect As Range) 'Meghatározza a kód későbbi felhasználására szolgáló változókat Dim rng as Range, shp As Shape, bln .Address = Range (shp.TopLeftCell, shp.BottomRightCell) .Address then blnDelete = True End If If blnDelete then shp. Next end Sub törlése

4. Kattintson a mentés gombra.

5. Kattintson a kis Excel ikonra a jobb felső sarokban a „Fájl” menü alatt, hogy kilépjen a VBA projekt ablakából és visszatérjen az Excel programba