具有通配符条件的Excel VBA Countifs-用于日期

Question

I would like to know if I can use a wildcard for dates?

I have dates with time stored on A1:A5 and I want to count how many items are
there with criteria "8/12/2015" regardless of the time, the output compl should be 2 as A1 and A4 contains the date "8/12/2015"

A1 = 8/12/2015 12:00 AM

A2 = 8/25/2015 3:00 PM

A3 = 8/23/2015 4:00 AM

A4 = 8/12/2015 1:30 AM

A5 = 8/20/2015 12:00 AM

            Sub counter()

            With Sheet1
            Dim compl As String
            Dim xdate As String, xdate2 As String
            xdate = "08/12/2015"
            xdate2 = xdate & "*"

            compl = WorksheetFunction.CountIfs(Range("a1:a5"), xdate2)
                Debug.Print compl
            End With

            End Sub

Answer 1

Make sure your date is a date, not a string.

Make sure to use ISO standard formats, not some random date order.

Dim xdate As date
xdate = "2015-08-12"

compl = WorksheetFunction.CountIfs(Range("a1:a5"), ">=" & xdate, _
                                   Range("a1:a5"), "<" & (xdate + 1))

Also, you don't need VBA for this, simply use the Excel's COUNTIFS function like this:

=COUNTIFS(a1:a5,">=2015-08-28",a1:a5,"<2015-08-29")

Edit For me, adding the Format function was necessary to keep the date in a human format for Excel to understand. Change the Worksheetfunction line like this, if you want to make sure it works:

WorksheetFunction.CountIfs(Range("a1:a5"), ">=" & Format(xdate, "yyyy-mm-dd"), _
                           Range("a1:a5"), "<" & Format(xdate + 1, "yyyy-mm-dd"))

Answer 2

In Excel the date are stored as numbers since 1/1/1970. this means that the date you wrote is 42239. When the the 2 decimal digits are the hours. sou you can use the function round (with 0 digits) when this number will include all the cells in the specific date.

Answer 3

如果不必在VBA和countif中使用（我看不到目标是什么）：= sumproduct（（floor（value（A1：A5），1）= date（2015,8,20））* 1）否则会有周期等选项，但是如果没有目的，很难指出正确的方向