Verwenden Sie Text in Spalten und erstellen Sie ein Diagramm aus dem ausgewählten Bereich

2024-7-8 • tag-icon

microsoft-excel vba charts

Verwenden Sie Text in Spalten und erstellen Sie ein Diagramm aus dem ausgewählten Bereich

Was ich versuche, ist zunächst, dass ich eine CSV-Datei habe, die eine enorme Datenmenge enthält.

In der ersten Spalte A sind Datum und Uhrzeit durch ein Leerzeichen getrennt, also 03.11.2017 12:55:34.

Ich möchte die Zellen zwischen zwei Daten auswählen, beispielsweise den Bereich zwischen03/11/2017 12:55:34Zu03/11/2017 15:55:34, trennen Sie dann Datum und Uhrzeit für den ausgewählten Bereich mithilfe von Text in Spalten und zeichnen Sie schließlich das Diagramm für die getrennte Zeit und den entsprechenden Wert.

Der Code funktioniert einwandfrei, ohne dass Text in Spalten konvertiert wird. Ich weiß jedoch nicht, wie ich nach Auswahl des Bereichs mit der Konvertierung von Text in Spalten fortfahren soll.

Den Code habe ich hiermit angehängt.

 Function getData()


Dim findrow As Long, findrow2 As Long
Dim dataTable As Range

findrow = Range("A:B").Find("3/13/2017 15:49:57.108", Range("A1")).Row
findrow2 = Range("A:B").Find("3/13/2017 16:04:57.098", Range("A" & findrow)).Row
Set dataTable = Range("A" & findrow + 1 & ":B" & findrow2 - 1)
Set getData = dataTable
End Function

Sub SelectBetween()
Dim rng As Range
Dim cht As Object

'Your data range for the chart
 Set rng = getData()
 rng.Select

'Create a chart
 Set cht = ActiveSheet.Shapes.AddChart2

 'Give chart some data
  cht.Chart.SetSourceData Source:=rng

 'Determine the chart type
  cht.Chart.ChartType = xlLine

  cht.Chart.ChartTitle.Text = Cells(1, 1).Value



  cht.Chart.SetElement (msoElementLegendBottom)

  cht.Chart.SeriesCollection(1).Name = "=""CPU Processor Time"""

   cht.Chart.Axes(xlValue).MinimumScale = 0
   cht.Chart.Axes(xlValue).MaximumScale = 100


 End Sub

Antwort1

Nicht-VBA-Lösung, die für Ihre Grafikanforderungen geeignet sein könnte. Sie sollten sie möglicherweise an einer Kopie Ihrer Daten testen.

Filtern Sie Ihre Datums-/Zeitinformationen. In meiner Beispieldatei habe ich etwa 13.000 Temperaturwerte auf 387 Werte gefiltert, die ich basierend auf meinem Bereich darstellen kann.

Ändern Sie das Format der Datums-/Uhrzeitinformationen, um nur die Uhrzeit anzuzeigen. Markieren Sie die Zellen und wählen Sie „Uhrzeit“ aus der Dropdown-Liste „Zahlenformat“ auf der Registerkarte „Start“.

Sie können die resultierende Spalte und die zugehörigen Daten in einem Diagramm darstellen.

Datums-/Uhrzeitdaten vor der Änderung des Zahlenformats zur reinen Zeitanzeige:

verwandte Informationen