进销存管理（移动加权法）纯excel的VBA (ado+字典）-有注释

gjj136138139

对于喜欢用3张表来记库存的朋友来说，本表格可以借鉴一下儿（当然专业的软件里其实就是一张收发存表来解决）。原先看到的用exce解决移动加权问题的，很多都是遍历，代码很长。--至于进销存汇总表，在这里就很简单了。各人自己写个Sql就可以搞定了(用sum,group by 一下儿）。
只用sql

[ 本帖最后由 gjj136138139 于 2011-7-29 09:49 编辑 ]

gjj136138139

前提条件是:一个产品不能有负库存（出库时要有库存），最重要的就是入库时要填上单价。不然有被0除的错误，代码就运行有误（未提供容错代码），只是简单的循环。当然对于大数据量，可能效率也不高。在此只是作为大家借鉴。有觉得好的，可以的，一定要回复哦，大家共同学习。

zhaogang1960

谢谢分享，不懂财务，不知道后面两列（结存数量、成本单价）是什么意思，建议这两列也用Sql或使用数组以加快运行速度

gjj136138139

sql功底太差，想了很久也没想出来，最后只好弄个循环来解决。如果是纯sql写出来的话，当然最好了。期待有sql高手来一次性解决这个问题。相对于先进先出来讲，移动加权在sql语句上可能是最简单的一种了。每进货一次，成本变动一次。按时间先后来就可以了。

gjj136138139

有帮助。差不多是先进先出法的那个意思，对sql语句还是很有帮助的。谢谢版主了。

zhaogang1960

原帖由 gjj136138139 于 2011-7-28 18:48 发表
sql功底太差，想了很久也没想出来，最后只好弄个循环来解决。如果是纯sql写出来的话，当然最好了。期待有sql高手来一次性解决这个问题。相对于先进先出来讲，移动加权在sql语句上可能是最简单的一种了。每进货一次， ...

我不理解后面两列是怎么回事儿，前几天我写了一个与时间先后有关的，看看有没有帮助：
http://club.excelhome.net/viewth ... p;page=1#pid5020799

gjj136138139

看了，好多相关的贴子，其实都没有明白的解释先进先出法结转成本的计算方法。先进先出法确实太难，如果某个产品没出库之前进了很多批次（每批单价都不一样），那么在出库时要从第1批到第n批出起，有的要出好几个批次的才可能出的完，这些都是不确定的。如果再加上产品众多，我想这个语句是真的太难写出来了，至少我没有得到满意的答案。

zhaogang1960

原帖由 gjj136138139 于 2011-7-28 19:44 发表
看了，好多相关的贴子，其实都没有明白的解释先进先出法结转成本的计算方法。先进先出法确实太难，如果某个产品没出库之前进了很多批次（每批单价都不一样），那么在出库时要从第1批到第n批出起，有的要出好几个批次 ...

成本单价计算方法实在太复杂了，不好用Sql方法，如果能从前面那个联合查询中求出就好办了
结存数量可以用Sql方法:
Sql = Sql1 & " union all " & Sql2 & " union all " & Sql3
Sql = "select * from(" & Sql & ") order by 产品编号,日期"
Sql = "select a.*,(select sum(期初数量)+sum(入库数量)-sum(发出数量) from (" & Sql & ") where 产品编号=a.产品编号 and 日期<=a.日期) as 结存数量 from (" & Sql & ") a"

gjj136138139

嗯，很对。直接用sql就可以计算出数量。如果再直接用sql把成本单价结算进去就好了。就是一个完整的移动加权法了。我觉得应该可以实现的。相对来说，移动加权法比先进先出法要好做些，毕竟只要入库，成本才变动，至少在结存数量上不用再计算要出要一批入库的。期待有sql语句直接写出成本单价的代码出来。期待中..................

[ 本帖最后由 gjj136138139 于 2011-7-29 09:53 编辑 ]

kuto

您好,我想问下 你这个进销存 那个表格的单价我是不需要的 所以我删除了 不过在收发存的表格里面 结存数量和金额都可以改变单元额 偏偏就是下面的数据无法移动 请问怎么修改 还有那个金额我也不需要 请问怎么删除?