/ / Intervalo de pesquisa VBA do Excel, dependendo da hora do dia - excel, excel-vba, vba

Intervalo de pesquisa do Excel VBA dependendo da hora do dia - excel, excel-vba, vba

Eu tenho uma coluna de células no formato "dd / mm / aa HH: MM: SS" e pretendo contar o número de células que possuem data e hora no intervalo a seguir, dependendo da hora do dia.

Se a Hora Atual for <07:00, então

Count Occurances in range between 07:00 the previous day and now

Outro

Count occurances between 07:00 today and now

Fim se

Agradeço antecipadamente.

Respostas:

0 para resposta № 1

Esse código provavelmente funcionará para você. Também é bastante simples e fácil de alterar para fazer referência às planilhas e células apropriadas que você precisa examinar. Espero que isso tenha ajudado!

Sub CountingNumberOfOccurancesWithingRangeDependingOnTime()
Dim curTime As Date
Dim preTime As Date
Dim todayTime As Date
Dim curHour As Integer
Dim counter As Integer

curTime = Now
curHour = Format(curTime, "HH")
preTime = curTime - 1

x = 1

If curHour < 7 Then
Do Until Sheet1.Cells(x, 1).Value = Empty
cellTime = Sheet1.Cells(x, 1).Value

If cellTime > preTime And cellTime < curTime Then
counter = counter + 1
End If
x = x + 1
Loop
Else
todayTime = Date & " " & "07:00:00"
Do Until Sheet1.Cells(x, 1).Value = Empty
cellTime = Sheet1.Cells(x, 1).Value

If cellTime > todayTime And cellTime < curTime Then
counter = counter + 1
End If
x = x + 1
Loop
End If

MsgBox counter "This isn"t necissary, but it just is here to show the number of cells counted



End Sub