Sum IF VBA 错误 '438' - 对象不支持此属性或方法答案

【问题标题】：Sum IF VBA error '438' - object doesn't support this property or methodSum IF VBA 错误 '438' - 对象不支持此属性或方法
【发布时间】：2016-07-04 13:38:17
【问题描述】：

我不知道为什么它给我 '438' - 对象不支持此属性或方法错误，在“Sumif”函数行中。

如何在 VBA 中执行 sumif 函数？

Application.WorksheetFunction.SumIfs(Range("N2:N" & RSum), Range("C" & rw), Range("S2:S" & RSum))

这是整个代码：

 Sub Macro1()
    Dim LR As Integer
    Dim rw As Integer
    Dim RSum As Integer

    LR = Range("C" & Rows.Count).End(xlUp).Row
    RSum = Range("n" & Rows.Count).End(xlUp).Row
        For rw = 2 To LR

            If Not IsEmpty(Range("C" & rw).Value) Then

            Range("G" & rw).Value = Application.WorksheetFunction.SumIfs(Range("N2:N" & RSum), Range("C" & rw), Range("S2:S" & RSum))

            End If

            If Range("G" & rw).Value = 0 Then
                Range("G" & rw).Value = "-"
                Range("F" & rw).Value = "No"
            ElseIf Range("G" & rw).Value <> 0 Then
                Range("F" & rw).Value = "Yes"

            End If
        Next rw
    End Sub

Excel 2002 版。

【问题讨论】：

试试 application.sumifs ，经常 application.worksheetfunction 不起作用。
自 Excel 2002 以来已经更新了很多，我建议使用更新的版本，以便将来更多的人可以帮助您，因为大多数人至少有 Excel 2007。

标签： vba sumifs

【解决方案1】：

也许你的第二个和第三个参数被调换了？

第二个参数应该是 Range criteria_range1，第三个参数应该是 criteria1。

试试：

 Range("G" & rw).Value = Application.WorksheetFunction.SumIfs(Range("N2:N" & RSum), Range("S2:S" & RSum), Range("C" & rw))

【讨论】：

我在发布后就看到了，修复它但仍然给我相同的消息
@L.Fim 请使用更新后的代码编辑您的原始帖子，因为它仍然存在错误。这样，其他用户就可以将目光移开，专注于其他原因
@L.Fim 检查我修改后的代码和上面的解释
试过了，还是一样的信息。 =/
明白了！它不是'sumifs'......它只是'sumif'并且顺序是正确的。谢谢！

【解决方案2】：

这似乎是正确的，只是您需要了解 Sumifs 公式的标准。 Sumifs的顺序是- 1.Sum_range 2.Criteria_range 3.标准等。所以正确的语法应该是-

Range("G" & rw).Value = Application.WorksheetFunction.SumIfs(Range("N2:N" & RSum), Range("S2:S" & RSum), Range("C" & rw) )

有关更多此类问题，您可以查看- https://knowledgebase.techandmate.com

谢谢，

【讨论】：