✅ Een diagram in een cel maken en weergeven

Inhoudsopgave

Dit is een eenvoudige zelfstudie over het maken en weergeven van een staafdiagram in een cel; een techniek die heel goed werkt bij het maken van managementrapportages.

Stappen:

1. Voer in kolom A de waarden in die u wilt weergeven, d.w.z. voer in cel A1 de waarde 10 in, in cel A2 20 enz.

2. Voer in kolom B1 de volgende formule in: =REPT (“n”, A1). Deze formule vertelt Excel eenvoudig om de waarde tussen " " te herhalen met het getal in cel A1.

3. Wijzig het lettertype in "Wingdings".

4. Raadpleeg voorbeeld 1 in het bijgevoegde Excel-bestand.

5. Als u de lengte van het staafdiagram wilt verkleinen, deelt u "A1" in de bovenstaande formule door 10 of door een willekeurig getal dat het meest logisch is. De formule ziet er bijvoorbeeld als volgt uit =REPT (“n”,A1/10). Zie voorbeeld 2 in het bijgevoegde Excel-bestand.

Opgemerkt moet worden dat door de "n" in de bovengenoemde formule te wijzigen, u verschillende afbeeldingen kunt weergeven. Hoofdletter "J" zal bijvoorbeeld een lachend gezicht tonen, terwijl een hoofdletter "L" een droevig gezicht zal tonen. Zie voorbeeld 3 in het bijgevoegde Excel-bestand.

Omgaan met negatieve waarden

De bovenstaande formules werken goed als je te maken hebt met positieve waarden. Als de waarde in kolom A echter negatief is, verandert de grafiek in kolom B in een reeks bestaande uit een aantal verschillende symbolen, waardoor het gewenste effect verloren gaat (zie voorbeeld 4 in de bijgevoegde spreadsheet).

Een manier om deze beperking te omzeilen is door middel van een IF-statement zoals:

=ALS(A21<0,HERHALEN(“n”,ABS(A21/10)),HERHALEN(“n”,A21/10))

Verklaring van bovenstaande formule:

1. Neem aan dat de waarde die u in een staafdiagram probeert weer te geven, zich in cel A21 bevindt. Ook deze waarde is negatief.

2. De formule begint met te zeggen dat als de waarde in A21 kleiner is dan 0, dwz negatief, herhaal dan "n" met de absolute waarde (ABS) in cel A21 en deel dit getal vervolgens door 10. Door de absolute waarde te gebruiken vertel Excel om het minteken te negeren en het getal als een positieve waarde te behandelen.

3. Het volgende deel van de formule vertelt Excel wat te doen als de waarde groter is dan 0.

4. Raadpleeg voorbeeld 4 in het bijgevoegde bestand.

Interessante toevoegingen aan het bovenstaande zouden zijn om voorwaardelijke opmaak te gebruiken om de kleur van de grafiek te veranderen in rood voor negatieve waarden en in blauw voor positieve waarden. Laat je fantasie je leiden!

In de volgende zelfstudie wordt beschreven hoe u een diagram maakt in een cel zoals weergegeven in de bovenstaande tabel onder de kolom 'Trend'.

De grafiek wordt gemaakt met behulp van een functie genaamd "CellChart". U zou het in Excel invoeren zoals elke andere standaardfunctie, d.w.z. SOM, GEMIDDELDE of VERT.ZOEKEN enz. Deze functie wordt een "Door de gebruiker gedefinieerde functie" genoemd en is geen standaardfunctie die beschikbaar is in Microsoft Excel. Het moet door de gebruiker worden gemaakt met behulp van VBA.

Wanneer ingevoerd in Excel, ziet de CellChart-functie er als volgt uit:

Als we de CellChart-functie nader bekijken, wordt het bereik voor de grafiek gedefinieerd in het eerste deel van de functie, C3:F3 in het bovenstaande voorbeeld. Vervolgens wordt de kleur van de grafiek gedefinieerd, 203 met behulp van het bovenstaande voorbeeld.

Nu voor de VBA-dingen

1. Ga naar het VBA-projectvenster door met de rechtermuisknop op een bladnaam te klikken en "View Code" te selecteren of door "ALT, F11" te selecteren.

2. Klik aan de rechterkant met de rechtermuisknop op uw projectnaam en selecteer inzet “module”.

3. Kopieer en plak de volgende code in de nieuwe module die u zojuist hebt gemaakt:

'Maakt een nieuwe functie met de naam Cell Chart Function CellChart (Plots As Range, Color As Long) As String 'Definieert de variabelen die later in de code zullen worden gebruikt 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 'Het volgende berekent de grafieken die voor de grafiek moeten worden gebruikt Stel rng = Application.Caller ShapeDelete rng For i = 1 To Plots.Count Als j = 0 Dan j = i ElseIf Plots(, j) > Plots(, i) Dan j = i End If Als k = 0 Dan 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) 'Definieert de variabelen die later in de code zullen worden gebruikt Dim rng As Range, shp As Shape, blnDelete As Boolean voor elke shp In rngSelect.Worksheet.Shapes blnDelete = False Set rng = Intersect(Range(shp.TopLeftCell, shp.BottomRightCell), rngSelect) Indien niet rng Niets is .Address = Range(shp.TopLeftCell, shp.BottomRightCell).Address Then blnDelete = True End If If blnDelete Then shp.Delete Next End Sub

4. Klik op de knop Opslaan.

5. Klik op het kleine Excel-pictogram rechtsboven onder het menu "Bestand" om het VBA-projectvenster te verlaten en terug te keren naar Excel