/ / Excel Plage de recherche VBA en fonction de l'heure de la journée - excel, excel-vba, vba

Plage de recherche Excel VBA en fonction de l'heure de la journée - excel, excel-vba, vba

J'ai une colonne de cellules au format "jj / mm / aa HH: MM: SS" et je souhaite compter le nombre de cellules dont la date et l'heure sont comprises dans la plage suivante en fonction de l'heure.

Si l'heure actuelle est <07:00 alors

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

Autre

Count occurances between 07:00 today and now

Fin si

Merci d'avance.

Réponses:

0 pour la réponse № 1

Ce code fonctionnera probablement pour vous. Il est également assez simple et facilement modifiable pour faire référence aux feuilles et cellules appropriées que vous devez regarder. J'espère que cela a aidé!

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