Sumif 和 countif 标准在 Excel VBA 中不起作用

Question

我正在编写一个 excel vba 代码来评估预期的不足。

我的 sumif 和 countif 函数返回值 0 如果我输入标准 '"") 这些函数对范围内的所有值求和/计数。

我找不到错误，有人可以帮忙吗？ 以下是部分代码：

Dim RiskHorizon As Integer
RiskHorizon = InputBox("Set the Risk Horizon!", "Risk Horizon", 10)
Dim SigLev As Double
SigLev = InputBox("Set the Significance Level!", "Significance Level", 0.025)
Dim CountDates As Integer
CountDates = Application.CountIf(Sheets("ExpSh").Columns("A"), "<>" & "") - 1
Dim ReturnRange As Range
Set ReturnRange = Sheets("ExpSh").Range("C2:C" & CountDates - RiskHorizon + 1)
Dim Var As Double
Dim ES As Double
Dim Sums As Double
Dim Counts As Double
Var = Application.WorksheetFunction.Percentile(ReturnRange, SigLev)
Sums = Application.WorksheetFunction.SumIf(ReturnRange, "<" & Var)
Counts = Application.WorksheetFunction.CountIf(ReturnRange, "<" & Var)
ES = Sums / Counts

Answer 1

也许：

Sums = Application.WorksheetFunction.SumIf(ReturnRange, ""<"" & Var)
Counts = Application.WorksheetFunction.CountIf(ReturnRange, ""<"" & Var)