发货明细统计

heaven_911

我有一个表格，需要统计结存数及明细，数据表如下：

日期	品名	单位	入库数量	出库数量	备注
9月1日	基布	米	1000		50*10+40*10+56+44
9月2日	浆料	KG	1000		50*20
9月3日	皮革	米	1000		40*20+35+36+37+38+39+15
9月4日	基布	米		626	50*5+40*8+56
9月5日	浆料	KG		750	50*15
9月6日	皮革	米		645	40*13+35+37+38+15

根据以上统计，在基础表中算出结存数及明细，如下：

基础表中数量
品名	单位	结存	备注
基布	米	374	50*5+40*2+44
浆料	KG	250	50*5
皮革	米	355	40*7+36+39

关键技术是如何统计类似乘号（*）的数量，能否判断有*就把前面的拆成数组，比如50*20 就是50 50 50。。。（20个），后面有+的就接着数组算，然后发货明细也类似，比如浆料发了50*15，然后2个数组比对，去掉重复的，获取剩余的，然后对剩余明细处理，把有相同数量的再用*连接起来，比如浆料剩余50*5。
还有个难点，目前举例是只有一进一出，以后如果是多进多出的话，该如何统计，考虑到引用基础表中数据，这样算起来是快点，但如果基础表明细不准了，可否增加重新汇算的功能，就是统计所有的入库，出库明细，然后计算，这个数据量就比较大了。
附件如下：

heaven_911

第一次没发上来 继续补上

momoca2006

上个附件吧

小花鹿

“还有个难点，目前举例是只有一进一出，以后如果是多进多出的话，该如何统计，考虑到引用基础表中数据，这样算起来是快点，但如果基础表明细不准了，可否增加重新汇算的功能，就是统计所有的入库，出库明细，然后计算，这个数据量就比较大了。”

把这种情况也做到附件中，便于一次性把代码写出来，不然，只写附件中的情况，以后再改也麻烦。

LIUZHU

heaven_911 发表于 2012-9-4 09:26
第一次没发上来 继续补上

貌似有点麻烦，既要处理“+”号，又要处理“*”号，还有做加减法

yangyangzhifeng

用Evaluate

1. Sub test()
   
2.     Dim Str$
   
3.     Str = "50*10+40*10+56+44"
   
4.     Str = "=" & Str
   
5.     MsgBox Evaluate(Str)
   
6. End Sub
   

复制代码

蓝桥玄霜

建议参照进销存的实例做，虽然计算式可用Evaluate得到，但是这种算式有什么意义？这种做法会给后续的统计造成不可预见的麻烦。

840205910

总账和明细账为何要在一块？不像是规范的账本。
备注栏的好像是码单？盘库单？

840205910

日期        品名        单位        规格        入库数        入库量        出库数        出库量        库存数        库存量
9月1日        基布        米        50        10        500                                                                10        500
9月1日        基布        米        40        10        400                                                                10        400
9月1日        基布        米        56        1        56                                                                    1        56
9月1日        基布        米        44        1        44                                                                    1        44
把表做成这样，后面的数据运算就很方便

KCFONG

see if help you