vba - VBA SumIfs 不适用于日期范围

Question

所以，我尝试了很多变化，但我无法做到这一点：

var_sum = WorksheetFunction.SumIfs(Range("H:H"), Range("B:B"), str_client, Range("A:A"), "<=" & date_var)

这个公式有两个条件。第二个（日期比较）打破它并使总和 = 0。 date_var 是一个 Date 变量。Excel 中的日期范围被格式化为日期。

有什么问题？

Answer 1

我有一种感觉，你有一个日期字符串。

Date_Var = "01/01/2013"

您可以尝试使用CDate(或CLng(将其转换为适当的值，因为 Excel 将日期存储为 1900 年 1 月 1 日之后的天数

var_sum = WorksheetFunction.SumIfs(Range("H:H"), Range("B:B"), str_client, _
    Range("A:A"), "<=" & CLng(date_var))