Vba: liczba większa niż data

Aby policzyć liczbę dat większą niż określona data, możesz użyć następującej podstawowej składni w VBA:

 Sub CountifGreaterDate()
Range(" D2 ") = WorksheetFunction.CountIf(Range(" A2:A10 "), ">" & Range(" C2 "))
End Sub

W tym konkretnym przykładzie zliczana jest liczba dat w zakresie A2:A10 , które są większe niż data w komórce C2 .

Wynik jest następnie przypisywany do komórki D2 .

Poniższy przykład pokazuje, jak zastosować tę składnię w praktyce.

Przykład: Liczba większa niż data przy użyciu VBA

Załóżmy, że mamy następującą listę dat w Excelu i chcielibyśmy poznać liczbę dat większych niż 25.04.2023 :

W tym celu możemy utworzyć następujące makro:

 Sub CountifGreaterDate()
Range(" D2 ") = WorksheetFunction.CountIf(Range(" A2:A10 "), ">" & Range(" C2 "))
End Sub

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Komórka D2 informuje nas, że w zakresie A2:A10 znajduje się 6 dat większych niż 25.04.2023 .

Zauważ, że możemy zmienić wartość w komórce C2 i ponownie uruchomić makro, aby policzyć liczbę dat większą niż inna konkretna data.

Załóżmy na przykład, że zmienimy datę w komórce C2 na 1.10.2023 i ponownie uruchomimy makro:

Widzimy, że są 3 daty większe niż 10.10.2023 .

Uwaga: Jeśli chcesz policzyć liczbę dat większą lub równą określonej dacie, po prostu zamień „>” w funkcji CountIf na „>=” .

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

Jak sortować według daty w VBA
Jak dodać if między dwiema datami w VBA
Jak dodać dni do daty w VBA