VBA WorksheetFunction.Countif 不计算列中的变量

Question

目标是计算变量值出现在命名范围（table）中的次数。
预期结果是下面的代码将 return 7 月 1 日的 X 计数，而实际上它给出 0。

见下面的代码（已删除其他代码，在这种情况下只是噪音）

 Dim date1 As Date
 Dim row As Variant
 Dim date_count As Integer
 Dim tbl As ListObject

 Set tbl = Sheets("Sheet3").ListObjects("Table2")
 row=2

 date1=tbl.ListColumns(2).DataBodyRange.Item(row).Value 'date1 successfully recognised by VBA as #1/07/2020# (date type: Date)
 date_count = Application.WorksheetFunction.CountIf(Sheets("Sheet3").Range("dates"), "=" & date1)

尽管 01/07/2020 在命名范围内出现 >20 次，但日期计数被 VBA 编辑为 0（日期类型：整数）。我在 date_count 行做错了什么吗？？

感谢团队

Answer 1

更改 date_count 行如下。

date_count = Application.WorksheetFunction.CountIf(tbl.ListColumns(2).DataBodyRange, date1)

VBA WorksheetFunction.Countif 不计算列中的变量

VBA WorksheetFunction.Countif not counting variable in column

excel

vba

countif