제가 하려는 것은 먼저 엄청난 양의 데이터가 포함된 CSV 파일을 만드는 것입니다.
첫 번째 열 A에는 2017년 3월 11일 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
답변1
그래프 작성 요구 사항에 적용할 수 있는 비 VBA 솔루션입니다. 데이터 복사본을 테스트할 수도 있습니다.
- 날짜/시간 정보를 필터링하세요. 내 예제 파일에는 내 범위에 따라 플롯하기 위해 387개 값으로 필터링된 약 13,000개의 온도 판독값이 있습니다.
- 시간만 표시하도록 날짜/시간 정보의 형식을 변경합니다. 셀을 강조 표시하고 홈 탭의 숫자 형식 드롭다운에서 시간을 선택합니다.
- 결과 열과 관련 데이터를 차트로 표시할 수 있습니다.
숫자 형식이 시간만 표시하도록 변경되기 전의 날짜/시간 데이터:
