✅ Sådan oprettes og vises et diagram i en celle

Indholdsfortegnelse

Dette er en simpel tutorial om, hvordan du opretter og viser et søjlediagram i en celle; en teknik, der fungerer meget godt, når du opretter ledelsesrapporter.

Trin:

1. I kolonne A skal du indtaste de værdier, du vil vise, dvs. i celle A1 indtaste værdien 10, i celle A2 20 osv.

2. Indtast følgende formel i kolonne B1: = REPT (“n”, A1). Denne formel fortæller simpelthen Excel at gentage værdien, der er gemt mellem "" med tallet i celle A1.

3. Skift skrifttype til "Wingdings".

4. Se venligst eksempel 1 i den vedhæftede Excel -fil.

5. Hvis du ønsker at reducere søjlediagrammets længde, skal du blot dividere "A1" i formlen ovenfor med 10 eller med det tal, der giver mest mening. For eksempel ville formlen se sådan ud = REPT (“n”, A1/10). Se eksempel 2 i den vedhæftede Excel -fil.

Det skal bemærkes, at ved at ændre “n” i ovennævnte formel kan du vise forskellige billeder. For eksempel vil hovedstaden "J" vise et smilende ansigt, mens et stort "L" vil vise et trist ansigt. Se eksempel 3 i den vedhæftede Excel -fil.

Håndtering af negative værdier

Ovenstående formler fungerer godt, når du har at gøre med positive værdier. Men hvis værdien i kolonne A er negativ, ændres grafen i kolonne B til en streng, der består af et antal forskellige symboler og derved mister den ønskede effekt (se eksempel 4 i det vedhæftede regneark).

En måde at overvinde denne begrænsning på er ved hjælp af en IF -erklæring som:

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

Forklaring af ovenstående formel:

1. Antag, at den værdi, du forsøger at vise i et søjlediagram, er placeret i celle A21. Denne værdi er også negativ.

2. Formlen begynder med at sige, at hvis værdien i A21 er mindre end 0 dvs. negativ, gentag derefter "n" med den absolutte værdi (ABS) i celle A21 og divider derefter dette tal med 10. Ved at bruge den absolutte værdi er du bed Excel om at ignorere det negative tegn og behandle tallet som en positiv værdi.

3. Den næste del af formlen fortæller Excel, hvad de skal gøre, hvis værdien er større end 0.

4. Se venligst eksempel 4 i den vedhæftede fil.

Interessante tilføjelser til ovenstående ville være at bruge betinget formatering til at ændre grafens farve for at sige rød for negative værdier og til blå for positive værdier. Lad din fantasi guide dig!

Den følgende vejledning beskriver, hvordan du opretter et diagram i en celle som den, der vises i tabellen ovenfor under kolonnen "Trend".

Diagrammet er oprettet ved hjælp af en funktion kaldet "CellChart". Du ville indtaste det i Excel som enhver anden standardfunktion, dvs. SUM, GENNEMSNIT eller VLOOKUP osv. Denne funktion kaldes en "brugerdefineret funktion" og er ikke en standardfunktion, der er tilgængelig i Microsoft Excel. Det skal oprettes af brugeren ved hjælp af VBA.

Når den indtastes i Excel, ser CellChart -funktionen sådan ud:

Når vi ser nærmere på CellChart -funktionen, er diagrammets område defineret i den første del af funktionen, C3: F3 i eksemplet ovenfor. Dernæst defineres diagrammets farve, 203 ved hjælp af eksemplet ovenfor.

Nu til VBA -tingene

1. Gå ind i VBA -projektvinduet ved at højreklikke på et arknavn og vælge "Vis kode" eller ved at vælge "ALT, F11".

2. I højre side skal du højreklikke på dit projektnavn og vælge indsat “modul”.

3. Kopier og indsæt følgende kode i det nye modul, du lige har oprettet:

'Opretter en ny funktion kaldet Cell Chart Function CellChart (Plots As Range, Color As Long) As String' Definerer de variabler, der senere skal bruges 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ølgende beregner de plots, der skal bruges til diagrammet Sæt rng = Application.Caller ShapeDelete rng For i = 1 Til Plots.Count Hvis j = 0 Så er j = i ElseIf Plots (, j)> Plots (, i) Så j = i End If If k = 0 Så k = i ElseIf Plots (, k) 
 0 Så .Line.ForeColor.RGB = Color Else .Line.ForeColor.SchemeColor = -Color End With End With CellChart = "" End Function Sub ShapeDelete (rngSelect As Range) 'Definerer de variabler, der senere skal bruges 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) .Adresse derefter blnDelete = True End If If blnDelete Så shp.Delete Næste ende Sub

4. Klik på knappen Gem.

5. Klik på det lille Excel -ikon øverst til højre under menuen "Filer" for at forlade VBA -projektvinduet og vende tilbage til Excel