Vba：数字大于日期

您可以在 VBA 中使用以下基本语法来计算大于特定日期的日期数：

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

此特定示例计算A2:A10范围内大于单元格C2中的日期的日期数。

然后将结果分配给单元格D2 。

以下示例展示了如何在实践中使用此语法。

示例：使用 VBA 计数大于日期

假设我们在 Excel 中有以下日期列表，我们想知道大于04/25/2023的日期数量：

我们可以创建以下宏来执行此操作：

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

当我们运行这个宏时，我们会收到以下输出：

单元格D2告诉我们A2:A10范围内有6 个日期大于04/25/2023 。

请注意，我们可以更改单元格C2中的值并重新运行宏来计算大于不同特定日期的日期数。

例如，假设我们将单元格C2中的日期更改为10/1/2023并再次运行宏：

我们看到有3 个日期大于10/1/2023 。

注意：如果要计算大于或等于特定日期的日期数，只需将CountIf函数中的“>”替换为“>=”即可。

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

如何在VBA中按日期排序
如何在VBA中的两个日期之间添加if
如何在VBA中添加迄今为止的天数