Indholdsfortegnelse
I denne artikel vil jeg vise dig, hvordan du kan oprette et dynamisk diagram i Excel ved hjælp af VBA .
Download arbejdsbog til øvelser
Download denne arbejdsbog til træning, så du kan øve dig, mens du læser denne artikel.
Dynamisk diagram i Excel.xlsm5 nemme trin til at oprette et dynamisk diagram ved hjælp af Excel VBA
Her har vi et regneark, der hedder Ark1 der indeholder en tabel med de indtægter og indtjening i en virksomhed i nogle år.
Vores mål i dag er at skabe et dynamisk diagram fra denne tabel ved hjælp af Excel VBA .
⧪ Trin 1: Åbning af Visual Basic-vinduet
Tryk på ALT+F11 på dit tastatur for at åbne Visual Basic vindue.
⧪ Trin 2: Indsættelse af et nyt modul
Gå til Indsæt> Modul i værktøjslinjen. Klik på Modul Et nyt modul kaldet Modul1 vil blive indsat.
⧪ Trin 3: Indsætning af VBA-koden
Dette er det vigtigste trin. Sæt følgende ind VBA Kode i modulet.
⧭ VBA-kode:
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 End If End With 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 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 
⧪ Trin 4: Gem arbejdsbogen i XLSM-format
Vend derefter tilbage til arbejdsbogen og gem den som en Excel-arbejdsmappe med makroaktivering .
⧪ Trin 5: Endelig output
Kør koden fra Kør Sub / UserForm i værktøjslinjen.
Du finder et dynamisk diagram, der er oprettet på grundlag af tabellen i Ark2 af regnearket.
Ting at huske
En tabel er den bedste måde at skabe et dynamisk diagram på. Hvis du tilføjer eller fjerner et element fra tabellen, vil tabellen automatisk blive tilpasset, og det samme gælder for diagrammet. Men der er også andre måder at opnå dette på, f.eks. ved hjælp af en Navngivet område .
