求助！VBA多条件求和

宽一123

lsc900707 发表于 2018-7-23 06:07
附件供测试：

谢谢大神！用着没问题。
还有下面两个功能想实现，能否再给帮帮忙。
现在得到的是总的计划数量，还想得到1.总缺件数=库存数-该代号该列日期及之前的计划数。
2.每天缺件数。如果（库存数-该代号该日期及之前的计划数）>=0，那么每天缺件数=空值；
如果负的当天该代号的计划数<（库存数-该代号该日期及之前的计划数）<0,那么每天缺件数=库存数-该代号该日期及之前的计划数；
如果（库存数-该代号该列日期及之前的计划数）<负的当天该代号的计划数，那么每天缺件数=负的当天该代号的计划数

梦远方

chis3 发表于 2018-7-22 19:31
Sub test()
    Dim i As Integer, arr, dic As Object, brr(1 To 6, 1 To 13), j As Byte
    Set dic = ...

要是每句都能加个批注就最好了     VBA初学者，有些看不太懂  【害羞】