То, что я пытаюсь сделать, это сначала у меня есть файл CSV, который содержит огромное количество данных.
В первом столбце A дата и время разделены пробелом, как 03/11/2017 12:55:34.
Я хочу выбрать ячейки между двумя датами, например диапазон между 03/11/2017 12:55:34
до 03/11/2017 15:55:34
, а затем разделить дату и время для выбранного диапазона с помощью текста на столбцы и, наконец, построить график для выделенного времени и его соответствующего значения.
Код работает нормально, без преобразования текста в столбцы. Но я не знаю, как продолжить преобразование текста в столбец после выбора диапазона.
Настоящим я приложил код.
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