如何用代码执行SUMIF 汇总信息数据

hmc530

如何用VBA代码代替SUMIF  组合条件公式汇总数据，最好直接识别【数据区】的“条件数据”+“批次号”+“状态”

不用重新在【数据区】的Q列重新组合条件


例子1.zip (24.51 KB, 下载次数: 13)

2023-2-27 00:09 上传

点击文件名下载附件

liulang0808

https://club.excelhome.net/threa ... tml?_dsign=b73ad3d6
https://club.excelhome.net/threa ... tml?_dsign=070dfca3
字典的案例，楼主可以参考下

mmwwdd

Sub SUMIFS_Example()
    Dim ws As Worksheet
    Dim condition1 As String
    Dim condition2 As String
    Dim condition3 As String
    Dim sum_range As Range
    Dim result_range As Range
   
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    condition1 = ws.Range("A1").Value
    condition2 = ws.Range("B1").Value
    condition3 = ws.Range("C1").Value
    Set sum_range = ws.Range("D1:D10")
    Set result_range = ws.Range("E1")
   
    result_range.Value = Application.WorksheetFunction.SumIfs(sum_range, ws.Range("A1:A10"), condition1, ws.Range("B1:B10"), condition2, ws.Range("C1:C10"), condition3)
End Sub

hmc530

mmwwdd 发表于 2023-2-27 07:51
Sub SUMIFS_Example()
    Dim ws As Worksheet
    Dim condition1 As String

出错了。。我哪里弄错了呀？？

mmwwdd

hmc530 发表于 2023-2-27 09:20
出错了。。我哪里弄错了呀？？

你那个表的名字是什么，你填写什么

ykcbf1100

这个适合用字典

hmc530

ykcbf1100 发表于 2023-2-27 15:12
这个适合用字典

如果求的不是数量，而是他们在数据区出现的次数，，如何实现？？？谢谢！！

ykcbf1100

hmc530 发表于 2023-2-28 00:33
如果求的不是数量，而是他们在数据区出现的次数，，如何实现？？？谢谢！！

统计个数，只要把arr(i,4)改成1就行了。

代码已简化成一个字典。

yuason

ykcbf1100 发表于 2023-2-27 15:12
这个适合用字典

老师，问个题外话，这个字体颜色看起来很舒服，这个编辑器是EXCEL自带的编辑器吗，我这个自带的设置不了这样的颜色

ykcbf1100

yuason 发表于 2023-3-1 09:02
老师，问个题外话，这个字体颜色看起来很舒服，这个编辑器是EXCEL自带的编辑器吗，我这个自带的设置不了 ...

不是自带的，用的是VBA代码编辑管理器。