Vba: число больше даты

Вы можете использовать следующий базовый синтаксис в VBA для подсчета количества дат, превышающих определенную дату:

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

В этом конкретном примере подсчитывается количество дат в диапазоне A2:A10 , которые больше даты в ячейке C2 .

Затем результат присваивается ячейке D2 .

В следующем примере показано, как использовать этот синтаксис на практике.

Пример: число больше даты с использованием VBA

Предположим, у нас есть следующий список дат в Excel, и мы хотели бы узнать количество дат больше, чем 25.04.2023 :

Для этого мы можем создать следующий макрос:

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

Когда мы запускаем этот макрос, мы получаем следующий вывод:

Ячейка D2 сообщает нам, что в диапазоне A2:A10 есть 6 дат, превышающих 25.04.2023 .

Обратите внимание, что мы можем изменить значение в ячейке C2 и перезапустить макрос, чтобы подсчитать количество дат, превышающих другую конкретную дату.

Например, предположим, что мы изменяем дату в ячейке C2 на 1.10.2023 и снова запускаем макрос:

Мы видим, что есть 3 даты больше, чем 1.10.2023 .

Примечание. Если вы хотите подсчитать количество дат , больших или равных определенной дате, просто замените «>» в функции CountIf на «>=» .

Дополнительные ресурсы

В следующих руководствах объясняется, как выполнять другие распространенные задачи в VBA:

Как сортировать по дате в VBA
Как добавить, если между двумя датами в VBA
Как добавить дни к дате в VBA