Erstellen Sie ein dynamisches Excel-Diagramm VBA

ich ein Diagramm erstellen möchten, die zum Beispiel wie dieses 2016.01.01 ich haben möchte meine Daten soErstellen Sie ein dynamisches Excel-Diagramm VBA

Auf meiner x-Achse sieht On meine y-Achse sollte aa Zahl an, wie viel dieses Ereignis zum Beispiel zu diesem Zeitpunkt aufgetreten 4

so weit so gut, wie meine Daten so aussehen ich versuche, meine obige Tabelle zu erstellen:

FailureLogStart 
2017-01-09 18:20 
2017-01-14 14:23 
2017-01-14 15:14 
2017-01-15 11:05 
2017-01-16 09:36 
2017-01-16 10:02 
2017-01-16 10:23

Dies ist die einzige Spalte, die ich verwenden kann, um mein Diagramm zu erstellen, also die Werte für die Y: -Achse sollten die Daten ohne Zeit sein und die X-Achse ist die Anzahl der Vorkommen pro Datum als ein Beispiel auf der 14 würde dort sein .

Was ich bisher getan haben:

Sub Test() 
    Range("Table_Query_from_WatchDog_DB_1[[#All],[FailureLogStart]]").Select 
    ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select 
    ActiveChart.SetSourceData Source:=Range("'Controll & Data'!$C$18:$C$25") 
    ActiveSheet.Shapes("Chart 6").IncrementLeft 518.4782677165 
    ActiveSheet.Shapes("Chart 6").IncrementTop -308.4782677165 
End Sub

Was ich jetzt habe, ist das Gegenteil, Ich mag würde die Daten haben, sind auf der Y: Axix und die Vorkommen sind auf der X: Achse

(Btw, wie kann ich nur das Datum ohne die Zeit wählen)

Quelle

2017-01-23 Niko.K

Haben Sie darüber nachgedacht, eine Pivot-und Pivot-Chart zu benutzen? – Wujaszkun

@Wujaszkun überhaupt nicht denken, dass das mein Leben leichter machen würde? –

Die Art, wie ich es tun würde ist, eine Tabelle zu setzen, wo die Quelldaten gespeichert werden, dann verbinden Sie eine Pivot-Tabelle mit (so der Quellbereich wird dynamisch basierend auf der Datensatznummer in der Tabelle ändern) und schließlich ein Pivot-Diagramm hinzufügen . Es ist viel einfacher einzurichten und zu warten als in VBA. – Wujaszkun

wie ich bereits in dem Befehl an den ersten Beitrag erwähnt i Pivot-Tabelle/Grafik diese Daten zu zeigen, verwenden würde:

Die kurze Datum wird mit der Formel gezählt: =ROUNDDOWN([@FailureLogStart],0)

Pivot-Tabellen-Konfiguration:

Row Labels -> Short Date

Werte -> Graf von Short Date

Quelle -> Tabelle1 (geben Sie hier den Namen Ihrer Tabelle an)

EDIT: Schritt für Pivot-Tabellenvorbereitungsschritt:

Planen Sie Ihre Eingabe -> Format Ihre Daten als Tabelle

Markieren Sie Ihre Tabelle -> (Ribbon) Einfügen -> PivotTable:

a. Set Table/Range-Feld -> Table1 (oder Ihr Tabellenname)

b. Klicken Sie unten auf "Vorhandenes Arbeitsblatt" und geben Sie eine Zellenadresse an, an der Sie den Drehpunkt platzieren möchten.

c. Sobald dies erledigt ist, wird ein leerer Drehpunkt in Ihr Blatt eingefügt. Ziehen Sie nun im rechten Bereich das Feld "Kurzes Datum" in die Felder "Zeilenbeschriftungen" und "Werte".
Klicken Sie auf die Pivot -> (Ribbon) Pivot-Tabelle Optionen -> Pivotchart

Quelle

2017-01-23 11:04:46 Wujaszkun

btw dieses Stück von Code für die automatische Aktualisierung des Schwenk Tabel hinzu: Privat Sub Worksheet_Activate() Sheets ("Pivot-Tabelle") Pivot-Tabellen ("PivotTable1") Refresh End Sub –

Das Diagramm in der Pivot-Tabelle verbunden ist.. , so reagiert es nur auf Pivot-Filter. Wenn Sie die Datensätze hinter der Zusammenfassung in Pivot-Tabelle sehen müssen, doppelklicken Sie einfach auf die Nummer, z. B. in '2017-01-16 \t 3' klicken Sie auf die' 3' und Sie erhalten ein neues Blatt mit den Quelldaten. – Wujaszkun

Vielen Dank für Ihre Mühe und Zeit, um mir zu helfen !!! –

Erstellen Sie ein dynamisches Excel-Diagramm VBA

Antwort

Verwandte Themen