求VBA多条件求和

442173622

我有一个销售表，每销售一个商品，就填开一个销售单，并将销售日期、品名、销售数量、销售金额、收款方式、货单号、客户名称、备注及打印时间记录到销售表（表1）中，该表的列标及代表的字段名具体如下所示：

表1（销售基本数据表）：

列标       A列              B列        C列        D列                     E列               F列        G列              H列              I列

字段名    日期       品名       数量       销售额           收款方式       货单号    客户       备注       录入时间

2017-1-31   丰乐       1000       2140              2                   5207                                   10：27：18

2017-2-1     绿丰       310         187                3                   5208       门市部                  8：48：21

2017-2-3     茉莉香    20           50                  1                   5209                                   8：48：45

2017-2-5     绿源香    100         208                1                   5210                                   16：01：15

2017-2-6     青花瓷    6300       14025            2                   5211              家佳                     9：04：01

问题1：

希望查询指定的日期段内（比如从2017-2-1至2017-2-15日）各商品（按名称事先列好，见“指定日期段内的销售汇总表”即表2）的：①销售数量、②现金销售收入、③银行销售收入、④赊销收入、以及赊销收入中赊销售给门市部的赊销⑤门市部、⑥现金收入笔数、⑦银行收入笔数、⑧赊销笔数

表2原来是用SUMPRODUCT函数做的，但统计范围扩大到上万行以后，怕影响运行速度，想改用VBA不懂得怎么编写，请老师们能在百忙之中给予帮助（另外，因为我是个菜鸟，希望老师能在代码里加上附注，我想借此机会能学习一二）

问题2：

希望查询任意指定的日期段内（比如从2017-2-1至2017-2-15日）的销售情况并将此结果复制到“指定日期段内的销售结果”表即表3，也就是按顺序直接罗列各销货单。

另外，我用的是2003版（2007开始按钮乱七八糟，不喜欢）

grf1973

原汇总表里有保护有密码。新建了个汇总表。

442173622

还没打开看，不过先要谢谢你啦

442173622

老师你好！
VB真的很强大！运算很快！真的非常感谢！
一、“指定日期段内销售汇总表”运行结果是：
1、数量统计完全正确
2、销售收入合计数完全正确，但分方式统计不正确，均小于实际金额
3、业务笔数统计完全正确
二、“指定日期段内的销售结果”表，点按钮后弹出一个消息框（标题是Microsoft Visual Basic,图标是一个红色叉叉，叉叉右侧无文字，下面是两“确定”和“帮助”两个按钮），没有结果

442173622

将代码“brr(k, 2 + fs) = brr(k, 2 + fs) + arr(i, 3) '各方式对应的金额”中的+arr(i,3)改为+arr(i,4)后各销售收款方式就全对了，整体上感觉代码很难，因为是个菜鸟……正在拜读中、非常感谢！

九天之外

老师你好！
VB真的很强大！运算很快！真的非常感谢！

九天之外

grf1973 发表于 2017-3-8 16:56
原汇总表里有保护有密码。新建了个汇总表。

VB真的很强大！运算很快！真的非常感谢！