✅ Hvordan lage og vise et diagram i en celle

Innholdsfortegnelse

Dette er en enkel opplæring i hvordan du lager og viser et stolpediagram i en celle; en teknikk som fungerer veldig bra når du lager ledelsesrapporter.

Trinn:

1. Skriv inn verdiene du vil vise i kolonne A, dvs. i celle A1, angi verdien 10, i celle A2 20 osv.

2. Skriv inn følgende formel i kolonne B1: = REPT (“n”, A1). Denne formelen forteller ganske enkelt Excel å gjenta verdien som er lagret mellom "" med tallet i celle A1.

3. Endre skrifttypen til “Wingdings”.

4. Se eksempel 1 i den vedlagte Excel -filen.

5. Hvis du ønsker å redusere lengden på stolpediagrammet, deler du "A1" i formelen ovenfor med 10 eller med hvilket tall som er mest fornuftig. For eksempel vil formelen se slik ut = REPT (“n”, A1/10). Se eksempel 2 i den vedlagte Excel -filen.

Det skal bemerkes at ved å endre "n" i formelen ovenfor kan du vise forskjellige bilder. For eksempel vil hovedstaden "J" vise et smilende ansikt, mens en stor "L" vil vise et trist ansikt. Se eksempel 3 i den vedlagte Excel -filen.

Å håndtere negative verdier

Formlene ovenfor fungerer godt når du har å gjøre med positive verdier. Men hvis verdien i kolonne A er negativ, vil grafen i kolonne B endres til en streng som består av et antall forskjellige symboler og dermed miste ønsket effekt (se eksempel 4 i det vedlagte regnearket).

En måte å overvinne denne begrensningen på er ved en IF -setning som:

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

Forklaring av formelen ovenfor:

1. Anta at verdien du prøver å vise i et søylediagram er plassert i celle A21. Denne verdien er også negativ.

2. Formelen begynner med å si at verdien i A21 er mindre enn 0 dvs. negativ, gjenta deretter "n" med den absolutte verdien (ABS) i celle A21 og del deretter dette tallet med 10. Ved å bruke den absolutte verdien er du be Excel om å ignorere det negative tegnet og behandle tallet som en positiv verdi.

3. Den neste delen av formelen forteller Excel hva du skal gjøre hvis verdien er større enn 0.

4. Se eksempel 4 i den vedlagte filen.

Interessante tillegg til ovennevnte ville være å bruke betinget formatering for å endre fargen på grafen for å si rød for negative verdier og til blå for positive verdier. La fantasien lede deg!

Den følgende opplæringen vil beskrive hvordan du oppretter et diagram i en celle som den som vises i tabellen ovenfor under "Trend" -kolonnen.

Diagrammet er opprettet ved hjelp av en funksjon som heter "CellChart". Du vil skrive den inn i Excel som alle andre standardfunksjoner, SUM, GJENNOMSNITT eller VLOOKUP osv. Denne funksjonen kalles en "brukerdefinert funksjon" og er ikke en standardfunksjon tilgjengelig i Microsoft Excel. Det må opprettes av brukeren ved hjelp av VBA.

Når du går inn i Excel, ser CellChart -funksjonen slik ut:

Når vi ser nærmere på CellChart -funksjonen, er området for diagrammet definert i den første delen av funksjonen, C3: F3 i eksemplet ovenfor. Deretter er fargen på diagrammet definert, 203 ved hjelp av eksemplet ovenfor.

Nå for VBA -ting

1. Gå inn i VBA -prosjektvinduet ved å høyreklikke på et arknavn og velge "Vis kode" eller ved å velge "ALT, F11".

2. Høyreklikk på prosjektnavnet på høyre side og velg innfelt “modul”.

3. Kopier og lim inn følgende kode i den nye modulen du nettopp opprettet:

'Oppretter en ny funksjon som heter Cell Chart Function CellChart (Plots As Range, Color As Long) As String' Definerer variablene som skal brukes senere 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 plottene som skal brukes for diagrammet Sett rng = Application.Caller ShapeDelete rng For i = 1 To Plots.Count Hvis j = 0 Deretter j = i ElseIf Plots (, j)> Plots (, i) Deretter j = i End If If k = 0 Da k = i ElseIf Plots (, k) 
 0 Deretter .Line.ForeColor.RGB = Color Else .Line.ForeColor.SchemeColor = -Color End With End With CellChart = "" End Function Sub ShapeDelete (rngSelect As Range) 'Definerer variablene som skal brukes senere 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. Klikk på lagre -knappen.

5. Klikk på det lille Excel -ikonet øverst til høyre under "Fil" -menyen for å gå ut av VBA -prosjektvinduet og gå tilbake til Excel