Inhaltsverzeichnis
In diesem Artikel zeige ich Ihnen, wie Sie ein dynamisches Diagramm in Excel erstellen können, indem Sie VBA .
Download Arbeitsbuch Praxis
Laden Sie dieses Übungsheft herunter, um zu üben, während Sie diesen Artikel lesen.
Dynamisches Diagramm in Excel.xlsm5 einfache Schritte zur Erstellung eines dynamischen Diagramms mit Excel VBA
Hier haben wir ein Arbeitsblatt namens Blatt1 die eine Tabelle enthält, die die Umsatz und Erträge eines Unternehmens seit einigen Jahren.
Unser Ziel ist es heute, Folgendes zu erreichen eine dynamische Karte aus dieser Tabelle mit Excel VBA .
⧪ Schritt 1: Öffnen des Visual Basic-Fensters
Presse ALT+F11 auf Ihrer Tastatur, um die Visual Basic Fenster.
⧪ Schritt 2: Einfügen eines neuen Moduls
Gehen Sie zum Einfügen> Modul in der Symbolleiste und klicken Sie auf Modul Ein neues Modul namens Modul1 eingefügt werden.
⧪ Schritt 3: Einfügen des VBA-Codes
Dies ist der wichtigste Schritt: Setzen Sie Folgendes ein VBA Code im Modul.
⧭ 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 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 With Next i If UBound(Sequence)> 0 Then ReDim Preserve Sequence(UBound(Sequence) - 1)Worksheets("Sheet1").ListObjects("Tabelle1").Range.AutoFilter Field:=1 Worksheets("Sheet1").ListObjects("Tabelle1").Range.AutoFilter _ Field:=1, Criteria1:=Sequence, Operator:=xlFilterValues Application.ScreenUpdating = True End Sub 
⧪ Schritt 4: Speichern der Arbeitsmappe im XLSM-Format
Kehren Sie dann zur Arbeitsmappe zurück und speichern Sie sie als Excel Makro-aktivierte Arbeitsmappe .
⧪ Schritt 5: Endgültige Ausgabe
Führen Sie den Code aus der Sub / UserForm ausführen Option in der Symbolleiste.
Sie finden ein dynamisches Diagramm, das auf der Grundlage der Tabelle in Blatt2 des Arbeitsblattes.
Dinge zum Merken
Eine Tabelle ist der beste Weg, um ein dynamisches Diagramm zu erstellen, denn wenn Sie ein Element aus der Tabelle hinzufügen oder entfernen, passt sich die Tabelle automatisch an und damit auch das Diagramm. Es gibt aber auch andere Möglichkeiten, dies zu erreichen, wie die Verwendung einer Benannter Bereich .
