SumProduct在VBA中的写法

红衣公主

=SUMPRODUCT((G1:G17>=10)*(G1:G17<=15))

这个函数公式在单元格中运行是正确的，可换到VBA中就报错，请问到底是错在哪里呢？


i = ActiveSheet.Range("G65536").End(xlUp).Row 'B列最后一行的行值
[E8] = WorksheetFunction.SumProduct((Range("G1:G" & i & ">=10")) * (Range("G1:G" & i & "<=15")))

蓝桥玄霜

建议用录制宏的方法获得代码，学会了录制宏，可以解决很多问题，这是VBA特有的功能。

ykcbf1100

改成这样再试试：
with ActiveSheet
i = .Range("G65536").End(xlUp).Row 'B列最后一行的行值
.[E8] = WorksheetFunction.SumProduct((.Range("G1:G" & i )& ">=10")) * (.Range("G1:G" & i) & "<=15")))
end with

木槿花西月锦绣

i = ActiveSheet.Range("G65536").End(xlUp).Row 'B列最后一行的行值
[E8].Formula = "=SUMPRODUCT((G1:G" & i & ">=10)*(G1:G" & i & "<=15))"

baofa2

Sub test0()  '摒弃函数思维
  Dim ar, i As Long, k As Long
  ar = Range("G1", Cells(Rows.Count, "G").End(xlUp))
  For i = 1 To UBound(ar)
    If ar(i, 1) >= 10 Then
      If ar(i, 1) <= 15 Then
        k = k + 1
      End If
    End If
  Next
  Range("E8") = k
End Sub

红衣公主

蓝桥玄霜 发表于 2024-5-8 20:34
建议用录制宏的方法获得代码，学会了录制宏，可以解决很多问题，这是VBA特有的功能。

这个方法我是知道的，实操后的结果还是在单元格中输入公式，但是用WorksheetFunction调取函数公式直接计算结果的方法是什么呢？

prome3

Range的参数错了，跟SumProduct函数无关。改一下就行了，没什么复杂的

红衣公主

知道错误在什么地方了，谢谢帮助！不过我发现
[C25] = WorksheetFunction.SumProduct((Range("A20:A25")), (Range("B20:B25")))这句可以执行而改成
[C25] = WorksheetFunction.SumProduct((Range("A20:A25"))*(Range("B20:B25")))后就类型不匹配了
而增加条件后不论是用逗号还是星号则都是错误的
[E8] = WorksheetFunction.SumProduct((Range("G1:G16") >= 10), (Range("G1:G16") <= 15))
[E8] = WorksheetFunction.SumProduct((Range("G1:G16") >= 10)* (Range("G1:G16") <= 15))

红衣公主

知道错在什么地方了，感谢帮助！但发现个有意思的地方
[C25] = WorksheetFunction.SumProduct((Range("A20:A25")), (Range("B20:B25")))这句是可以执行的而改成星号后就报错了
[C25] = WorksheetFunction.SumProduct((Range("A20:A25"))* (Range("B20:B25")))
而增加了条件后不论是逗号还是星号都报错！！！？
[E8] = WorksheetFunction.SumProduct((Range("G1:G16") >= 10), (Range("G1:G16") <= 15))
[E8] = WorksheetFunction.SumProduct((Range("G1:G16") >= 10)*(Range("G1:G16") <= 15))

沈默00

既然用VBA了，这个可以不用函数处理了吧，，，，