✅ Hur man skapar och visar ett diagram i en cell

Innehållsförteckning

Detta är en enkel handledning om hur du skapar och visar ett stapeldiagram i en cell; en teknik som fungerar mycket bra när du skapar ledningsrapporter.

Steg:

1. Ange värdena du vill visa i kolumn A, dvs. i cell A1 anger du värdet 10, i cell A2 20 etc.

2. Ange följande formel i kolumn B1: = REPT (“n”, A1). Denna formel säger helt enkelt till Excel att upprepa värdet som lagras mellan "" med numret i cell A1.

3. Ändra teckensnittet till “Wingdings”.

4. Se exempel 1 i den bifogade Excel -filen.

5. Om du vill minska stapeldiagrammets längd delar du bara "A1" i formeln ovan med 10 eller med vilket tal som är mest vettigt. Som exempel skulle formeln se ut så här = REPT (“n”, A1/10). Se exempel 2 i den bifogade Excel -filen.

Det bör noteras att genom att ändra “n” i ovanstående formel kan du visa olika bilder. Till exempel kommer versalerna “J” att visa ett leende medan ett stort ”L” visar ett sorgligt ansikte. Se exempel 3 i den bifogade Excel -filen.

Hantera negativa värden

Ovanstående formler fungerar bra när du har att göra med positiva värden. Om värdet i kolumn A är negativt ändras dock grafen i kolumn B till en sträng som består av ett antal olika symboler och därigenom förlorar den önskade effekten (se exempel 4 i det bifogade kalkylbladet).

Ett sätt att övervinna denna begränsning är genom ett IF -uttalande som:

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

Förklaring av ovanstående formel:

1. Antag att värdet du försöker visa i ett stapeldiagram finns i cell A21. Detta värde är också negativt.

2. Formeln börjar med att säga om värdet i A21 är mindre än 0 dvs negativt, upprepa sedan "n" med det absoluta värdet (ABS) i cell A21 och dividera sedan detta tal med 10. Genom att använda det absoluta värdet är du be Excel att ignorera det negativa tecknet och behandla talet som ett positivt värde.

3. Nästa del av formeln berättar vad Excel ska göra om värdet är större än 0.

4. Se exempel 4 i den bifogade filen.

Intressanta tillägg till ovanstående skulle vara att använda villkorlig formatering för att ändra grafens färg för att säga röd för negativa värden och till blå för positiva värden. Låt din fantasi leda dig!

Följande handledning beskriver hur du skapar ett diagram i en cell som det som visas i tabellen ovan under kolumnen "Trend".

Diagrammet skapas med en funktion som kallas "CellChart". Du skulle ange den i Excel som alla andra standardfunktioner, dvs SUMMA, GENNEMSNITT eller VLOOKUP etc. Den här funktionen kallas en ”användardefinierad funktion” och är inte en standardfunktion tillgänglig i Microsoft Excel. Det måste skapas av användaren med VBA.

När den går in i Excel ser CellChart -funktionen ut så här:

Om vi tittar närmare på CellChart -funktionen definieras intervallet för diagrammet i den första delen av funktionen, C3: F3 i exemplet ovan. Därefter definieras färg på diagrammet, 203 med hjälp av exemplet ovan.

Nu till VBA -grejerna

1. Gå in i VBA -projektfönstret genom att högerklicka på ett bladnamn och välja "Visa kod" eller genom att välja "ALT, F11".

2. Högerklicka på ditt projektnamn till höger och välj infälld ”modul”.

3. Kopiera och klistra in följande kod i den nya modulen du just skapade:

'Skapar en ny funktion som heter Cell Chart Function CellChart (Plots As Range, Color As Long) As String' Definierar de variabler som ska användas senare i koden 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 'Följande beräknar de diagram som ska användas för diagrammet Ange rng = Application.Caller ShapeDelete rng För i = 1 till Plots.Count Om j = 0 Då j = i ElseIf Plots (, j)> Plots (, i) Sedan j = i End If If k = 0 Då k = i ElseIf Plots (, k) 
 0 Sedan .Line.ForeColor.RGB = Color Else .Line.ForeColor.SchemeColor = -Color End With End With CellChart = "" End Function Sub ShapeDelete (rngSelect As Range) 'Definierar de variabler som ska användas senare i koden 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. Klicka på knappen Spara.

5. Klicka på den lilla Excel -ikonen längst upp till höger under "Arkiv" -menyn för att lämna VBA -projektfönstret och återgå till Excel