In dit artikel laat ik u zien hoe u een dynamische grafiek in Excel kunt maken met behulp van VBA .

Download Praktijk Werkboek

Download dit oefenwerkboek om te oefenen terwijl u dit artikel leest.

In 5 eenvoudige stappen een dynamische grafiek maken met Excel VBA

Hier hebben we een werkblad met de naam Blad1 die een tabel bevat met de inkomsten en inkomsten van een bedrijf gedurende enkele jaren.

Ons doel vandaag is het genereren van een dynamische grafiek uit deze tabel met behulp van Excel VBA .

⧪ Stap 1: Het Visual Basic-venster openen

Druk op ALT+F11 op uw toetsenbord om de Visual Basic raam.

⧪ Stap 2: Een nieuwe module invoegen

Ga naar de Invoegen> Module optie in de werkbalk. Klik op Module Een nieuwe module genaamd Module1 zal worden ingevoegd.

⧪ Stap 3: De VBA-code plaatsen

Dit is de belangrijkste stap. Doe het volgende. VBA Code in de module.

⧭ VBA-code:

 Sub Create_Dynamic_Chart() Application.ScreenUpdating = False With ActiveSheet.Shapes(Application.Caller).Fill.ForeColor If .Brightness = 0 Then .Brightness = -0.150000006 Else .Brightness = 0 End If Dim Sequence() As String Desired_Shapes = Array("Rounded Rectangle 1", "Rounded Rectangle 2", "Rounded Rectangle 3") For i = LBound(Desired_Shapes) ToUBound(Desired_Shapes) With ActiveSheet.Shapes(Desired_Shapes(i)) If .Fill.ForeColor.Brightness = -0.150000006 Then Sequence(UBound(Sequence)) = .TextFrame2.TextRange.Characters.Text ReDim Preserve Sequence(UBound(Series) + 1) End If End With Next i If UBound(Sequence)> 0 Then ReDim Preserve Sequence(UBound(Sequence) - 1)Worksheets("Sheet1").ListObjects("Table1").Range.AutoFilter Field:=1 Worksheets("Sheet1").ListObjects("Table1").Range.AutoFilter _ Field:=1, Criteria1:=Sequence, Operator:=xlFilterValues Application.ScreenUpdating = True End Sub 

⧪ Stap 4: De werkmap opslaan in XLSM-formaat

Ga vervolgens terug naar de werkmap en sla deze op als een Excel werkmap met macro's .

⧪ Stap 5: Definitieve output

Voer de code uit van de Run Sub / UserForm optie in de werkbalk.

U vindt een dynamische grafiek die is gemaakt op basis van de tabel in Sheet2 van het werkblad.

Dingen om te onthouden

Een tabel is de beste manier om een dynamische grafiek te maken. Want als je een element uit de tabel toevoegt of verwijdert, past de tabel zich automatisch aan, en zo ook de grafiek. Maar er zijn ook andere manieren om dit te bereiken, zoals het gebruik van een Naambereik .