vba - 计数日期早于特定日期

Question

我遇到了问题，我正在努力解决简单的问题。我想按 VBA countif 所有项目早于日期。

我确信我的代码 + excel 文件具有日期格式，但它不起作用。当我寻找确切的日期时 - 它有效，但是当我添加多数符号时 - VBA 在提示窗口中始终显示为零。

你知道问题出在哪里吗？

Sub test()
Set oWorkbook = ActiveWorkbook
Dim suma_processed3 As Integer
Dim Rng As Integer


Rng = Range("A" & Rows.Count).End(xlUp).Row

If IsDate(Range("AH5")) Then
Call MsgBox("its a date")
Else
Call MsgBox("this is not a date")
End If

suma_processed3 = Application.WorksheetFunction.CountIf(Range("AH2:AH" & Rng), ">" & CDate("26.03.2018"))


Call MsgBox(suma_processed3)

End Sub

标签： vbadatecountnumbers