Wenn Sie ein Dashboard mit einem Diagramm erstellen möchten, das seine Daten gemäß den ausgewählten Optionen ändert, können Sie die Ereignisse in VBA verwenden. Ja, es ist machbar. Wir werden kein Dropdown-, Slicer- oder Kombinationsfeld benötigen. Wir werden Zellen anklickbar machen und Daten ändern, um ein Diagramm aus der ausgewählten Zelle zu erstellen.
Befolgen Sie die folgenden Schritte, um dynamische Diagramme in Excel zu erstellen, die sich gemäß der Zellenauswahl ändern.
Schritt 1: Bereiten Sie die Daten in einem Blatt als Quelle für das Diagramm vor.
Hier habe ich einige Beispieldaten aus verschiedenen Regionen in einem Blatt. Ich habe es Quelldaten genannt.
Schritt 2: Rufen Sie die Daten einer Region gleichzeitig auf einem anderen Blatt ab.
- Fügen Sie nun ein neues Blatt ein. Benennen Sie es entsprechend. Ich habe es als "Dashboard" bezeichnet.
- Kopieren Sie alle Monate in eine Spalte. Schreiben Sie den Namen einer Region neben den Monat.
- Jetzt wollen wir Daten der Region in Zelle D1 ziehen. Wir möchten, dass sich die Daten ändern, wenn sich die Region in D1 ändert. Dafür können wir das Two Way Lookup verwenden.
Da sich meine Quelldaten in A2: D8 auf dem Quelldatenblatt befinden. Ich verwende die folgende Formel.
| =SVERWEIS(C2,'Quelldaten'!$A$2:$D$8,SPIEL($D$1,'Quelldaten'!$A$1:$D$1,0)) |
Hier verwenden wir die dynamische Spaltenindizierung für SVERWEIS. Sie können hier darüber lesen.
- Fügen Sie ein Diagramm mit diesen Daten in das Dashboard-Blatt ein. Ich verwende ein einfaches Liniendiagramm. Blenden Sie die Quelle des Diagramms aus, wenn Sie sie nicht anzeigen möchten.
Wenn Sie nun den Regionsnamen in D1 ändern, ändert sich das Diagramm entsprechend. Der nächste Schritt besteht darin, den Regionsnamen in D1 zu ändern, während Sie eine Option aus der angegebenen Zelle auswählen.
Schritt 3: Ändern Sie die Region, während Sie einen Regionsnamen im angegebenen Bereich auswählen.
- Schreibe alle Namen der Region in einen Bereich, ich schreibe sie in den Bereich A2:A4.
- Klicken Sie mit der rechten Maustaste auf den Dashboard-Blattnamen und klicken Sie auf die Option "Code anzeigen", um direkt in das Arbeitsblattmodul in VBE einzutreten, damit wir das Arbeitsblattereignis verwenden können.
- Schreiben Sie nun den folgenden Code im VB-Editor.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A2:A4")) Is Nothing Then Range("A2:A4").Interior.ColorIndex = xlColorIndexNone Dim region As Variant region = Target.value On Error GoTo err: Select Case Region Case Is = "Central" Range("D1").value = Region Case Is = "East" Range("D1").value = Region Case Is = "West" Range("D1 ").value = region Case Else MsgBox "Ungültige Option" End Select Target.Interior.ColorIndex = 8 End If err: End Sub
Und es ist vollbracht. Wenn Sie nun eine Zelle im Bereich A2:A4 auswählen, wird ihr Wert D1 zugewiesen und die Daten des Diagramms ändern sich entsprechend.
Ich habe unten erklärt, wie dieser Code funktioniert. Sie können es verstehen und Änderungen gemäß Ihren Anforderungen vornehmen. Ich habe Links zu Hilfethemen bereitgestellt, die ich hier in diesem Beispiel verwendet habe. Überprüfen Sie sie also.
Wie funktioniert der Code?
Hier habe ich das Event von Excel verwendet. Ich habe ein Arbeitsblattereignis "SelectionChange" verwendet, um die Ereignisse auszulösen.
Wenn kein Schnittpunkt (Ziel, Bereich ("A2: A4")) ist, dann ist nichts
Diese Zeile legt den Fokus auf den Bereich A2:A4 fest, sodass das SelectionChange-Ereignis nur ausgelöst wird, wenn sich die Auswahl im Bereich A2:A4 befindet. Der Code zwischen If und End wird nur ausgeführt, wenn die Auswahl im Bereich A2:A4 liegt. Sie können es jetzt gemäß Ihren Anforderungen einstellen, um Ihr Diagramm dynamisch zu gestalten.
Range("A2:A4").Interior.ColorIndex = xlColorIndexNone
Diese Zeile setzt die Farbe des Bereichs A2:A4 auf nichts.
region = Target.value On Error GoTo-Fehler:
In den beiden obigen Zeilen erhalten wir den Wert der ausgewählten Zellen im variablen Bereich und ignorieren alle auftretenden Fehler. Verwenden Sie die Zeile "On Error GoTo err:" nicht, bis Sie sicher sind, dass Sie alle auftretenden Fehler ignorieren möchten. Ich habe es verwendet, um einen Fehler zu vermeiden, wenn ich mehrere Zellen auswähle.
Case-Region auswählen Case Is = "Central" Range("D1").value = Region Case Is = "East" Range("D1").value = Region Case Is = "West" Range("D1").value = region Case Else MsgBox "Ungültige Option" End Select
In den obigen Zeilen verwenden wir die Select Case-Anweisung von Excel, um den Wert des Bereichs D1 festzulegen.
Target.Interior.ColorIndex = 8 End If err: End Sub
Vor der End If-Anweisung ändern wir die Farbe der ausgewählten Option, sodass sie hervorgehoben wird. Dann If-Anweisung endet und err: Tag beginnt. Die On Error-Anweisung springt zu diesem Tag, wenn während der select-Anweisung ein Fehler auftritt.
Laden Sie die Arbeitsdatei unten herunter.
Eingebettete Diagrammereignisse mit VBA in Microsoft Excel| Die eingebetteten Diagrammereignisse können Ihr Diagramm interaktiver, dynamischer und nützlicher machen als normale Diagramme. Um die Ereignisse auf Charts zu aktivieren, haben wir…
Die Ereignisse in Excel VBA |Es gibt sieben Arten von Ereignissen in Excel. Jede Veranstaltung befasst sich in einem anderen Umfang. Application Event behandelt auf Arbeitsmappenebene. Arbeitsmappe auf Blattebene. Arbeitsblattereignis auf Bereichsebene.
Die Arbeitsblattereignisse in Excel VBA|Das Arbeitsblattereignis ist sehr nützlich, wenn Sie möchten, dass Ihre Makros ausgeführt werden, wenn ein bestimmtes Ereignis auf dem Blatt auftritt.
Arbeitsmappenereignisse mit VBA in Microsoft Excel | Die Arbeitsmappenereignisse wirken sich auf die gesamte Arbeitsmappe aus. Da alle Blätter Teil der Arbeitsmappe sind, funktionieren diese Ereignisse auch auf ihnen.
Verhindern, dass ein automatisches Makro/Ereignismakro mit VBA in Microsoft Excel ausgeführt wird| Um die Ausführung des Makros auto_open zu verhindern, verwenden Sie die Umschalttaste.
Diagrammobjektereignisse mit VBA in Microsoft Excel| Die Diagramme sind komplexe Objekte und es gibt mehrere Komponenten, die Sie an sie angehängt haben. Um die Chart-Events zu erstellen, verwenden wir das Class-Modul.
Populäre Artikel:
50 Excel-Kurzbefehle zur Steigerung Ihrer Produktivität | Werden Sie schneller bei Ihrer Aufgabe. Diese 50 Tastenkombinationen machen Ihre Arbeit in Excel noch schneller.
Die SVERWEIS-Funktion in Excel | Dies ist eine der am häufigsten verwendeten und beliebtesten Funktionen von Excel, die verwendet wird, um Werte aus verschiedenen Bereichen und Blättern zu suchen.
ZÄHLENWENN in Excel 2016 | Zählen Sie Werte mit Bedingungen mit dieser erstaunlichen Funktion. Sie müssen Ihre Daten nicht filtern, um einen bestimmten Wert zu zählen. Die Countif-Funktion ist unerlässlich, um Ihr Dashboard vorzubereiten.
So verwenden Sie die SUMIF-Funktion in Excel | Dies ist eine weitere wesentliche Funktion des Dashboards. Dies hilft Ihnen, Werte unter bestimmten Bedingungen zusammenzufassen.
