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 на 10/1/2023 і знову запустимо макрос:

Ми бачимо, що є 3 дати, більші за 1.10.2023 .

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

Додаткові ресурси

У наступних посібниках пояснюється, як виконувати інші типові завдання у VBA:

Як сортувати за датою у VBA
Як додати if між двома датами у VBA
Як додати дні до дати у VBA