Usando texto em colunas e faça um gráfico a partir do intervalo selecionado

Question

O que eu estou tentando fazer é primeiro eu tenho um arquivo CSV que tem uma enorme quantidade de dados.

A primeira coluna A possui Data e hora separadas por um espaço como 11/03/2017 12:55:34.

Desejo selecionar as células entre duas datas, como o intervalo entre 03/11/2017 12:55:34 e 03/11/2017 15:55:34 . Em seguida, separe a data e a hora do intervalo selecionado usando texto para colunas e finalmente traçar o gráfico para o tempo separado e seu valor correspondente.

O código está funcionando bem sem fazer texto para conversão de colunas. Mas não sei como proceder com a conversão de texto em coluna depois de selecionar o intervalo.

Por meio disso, anexei o código.

 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

    

Answer 1

Solução não VBA que pode ser aplicável às suas necessidades gráficas. Você pode querer testar uma cópia dos seus dados.

1. Filtre suas informações de data / hora. No meu arquivo de exemplo, tenho cerca de 13.000 leituras de temperatura filtradas para 387 valores para plotar com base no meu intervalo.

Altere o formato das informações de data / hora para apenas mostrar a hora. Realce as células e escolha Hora no menu suspenso Formato de número na guia Início.

Você pode traçar a coluna resultante e seus dados associados.

Osdadosdedata/horaantesdoformatodonúmeromudamparaapenasmostrarahora: