Question

这会产生错误：运行时错误＆＃39; 424＆＃39;：对象必需

Private Function Y_Mode() As Double
    Dim MaxGrad As Double
    MaxGrad = WorksheetFunction.Max(Graduation_Series)
    Y_Mode = WorksheetFunction.SumIf(Graduation_Series, MaxGrad, Y_Series)
End Function

这条线路失败了：

Y_Mode = WorksheetFunction.SumIf(Graduation_Series, MaxGrad, Y_Series)

似乎所有东西都被正确定义和实例化，每个数组的元素都是Variant / Double

类型

Watch : + :     Graduation_Series :  : Variant/Variant(0 to 14) : SU_Solution.Y_Mode
Watch :   :     MaxGrad : 474.281204765715 : Double : SU_Solution.Y_Mode    
Watch : + :     Y_Series :  : Variant/Variant(0 to 14) : SU_Solution.Y_Mode

我尝试将MaxGrad放入Range中，然后在SUMIF中引用Range，但这也不起作用。

Answer 1

您不能将SUMIF用于数组。

可以与SUMIF（）工作表函数一起使用的条件是仅限于文本，数字或范围，并且该功能无法使用数组常量。

https://support.microsoft.com/en-us/help/275165/when-to-use-a-sum-if-array-formula

Excel VBA SUMIF运行时错误＆＃39; 424＆＃39;：对象必需

1 个答案: