[已解决]如何在VBA中使用SUMIF函数

cxloen

如何在VBA中生成公式，使G13=SUMIF(H7:H12,"设备",G7:G12)

I定义为输入公式上一个单元格行号
=SUMIF(cellS（7，8）:cellS(I,8),"设备",cellS(7,7):celSl(I,7))*2.21%

最佳答案

月排行榜 / 总排行榜

windimi007

2013-8-16 22:02

cxloen 发表于 2013-8-16 21:57
基本正确，谢谢，但设备要写成“设备”才能运行，怎么加？

失误了，请再测试！{:1812:}

1. Sub test()
   
2.     Dim i As Long
   
3.     i = 12
   
4.     Cells(13, "G") = "=SUMIF(H7:H" & i & ",""设备"",I7:I" & i & ")*2.21%"
   
5. End Sub

复制代码

跳转到最佳答案楼层

windimi007

这个意思吗？{:2312:}

1. Sub test()
   
2.     Dim i As Long
   
3.     i = 12
   
4.     Cells(13, "G") = "=SUMIF(H7:H" & i & ",设备,I7:I" & i & ")*2.21%"
   
5. End Sub

复制代码

lyf7276

这两种用法都可以
Sub sumif用法()
Range("h13") = "=SUMIF(H7:H12,""设备"",G7:G12)"
Range("h14") = Application.SumIf(Range("h7:h12"), "设备", Range("g7:g12"))
End Sub

cxloen

windimi007 发表于 2013-8-16 21:46
这个意思吗？

基本正确，谢谢，但设备要写成“设备”才能运行，怎么加？

cxloen

lyf7276 发表于 2013-8-16 21:49
这两种用法都可以
Sub sumif用法()
Range("h13") = "=SUMIF(H7:H12,""设备"",G7:G12)"

谢谢，我要加入变量才行

windimi007

cxloen 发表于 2013-8-16 21:57
基本正确，谢谢，但设备要写成“设备”才能运行，怎么加？

失误了，请再测试！{:1812:}

1. Sub test()
   
2.     Dim i As Long
   
3.     i = 12
   
4.     Cells(13, "G") = "=SUMIF(H7:H" & i & ",""设备"",I7:I" & i & ")*2.21%"
   
5. End Sub

复制代码

cxloen

windimi007 发表于 2013-8-16 22:02
失误了，请再测试！

谢谢，可以了，多谢老师

爱很简单

windimi007 发表于 2013-8-16 22:02
失误了，请再测试！{:1812:}

老师您好，
   如果 A3:A100000= 3组   并且 B3:B100000 > 60    则  A1= 符合条件的C 列之和。
Range("A1") = Application.WorksheetFunction.SumIfs(Sheet17.Range("C3:C100000"), Sheet17.Range("a3:a100000"), "3组", Sheet17.Range("b3:b100000"), ">60")
  上述代码是对的

  问题
    如果 A3:A100000= 3组  or   A3:A100000= 2组   并且 B3:B100000 > 60    则  A1= 符合条件的C 列之和。
  应该怎么写？？？ 谢谢   
VBA自带的函数从来没有用过，决定挺好用的。