VBA新人~仓库进销表请各位帮我看下

苍小白

刚学VBA不久，皮毛都不太懂，这个表格是网上找的，也是请人小小的修改过的，但是不够全面，所以请各位帮我做好，谢谢各位{:soso_e183:}

主要问题出在结存工作表中，在录入完进仓和出仓后，结存工作表没法自动结算剩余的库存，以及还有很多小瑕疵的地方，请各位帮小弟斧正斧正，谢谢大家了

苍小白

自己顶个，大家快来棒棒忙~

苍小白

各位朋友，帮帮忙呀，{:soso_e183:}

hehex

简单看了下，楼主的程序读起来真是费劲，几乎全篇用vba 调用vlookup 工作表函数，这样的话，还不如直接用vlookup 得了。我看到一个work_change 事件，是录入单据的时候自动拿取清单上的类别的，这就一vlookup 函数搞定了，还弄什么程序，看的人头大。
入库模块，出库模块都是对入库单和出库单用vlookup 写入的，有从结存单读取数据的也是用vlookup，就是没有vlookup 往结存单里写的，结存单当然不会有记录了。所以你的程序是不是漏了一个操作结存单的模块啊？
要改写，那就麻烦了，所有变量都没声明，程序里突然就出现了，类型不用说了全是变体，内容会是什么基本靠猜，倒进表去查vlookup，累死不说，这些vlookup 体现了怎样的逻辑关系啊？ 一头雾水。

苍小白

hehex 发表于 2012-11-16 11:03
简单看了下，楼主的程序读起来真是费劲，几乎全篇用vba 调用vlookup 工作表函数，这样的话，还不如直接用vl ...

请大侠帮我改改，谢谢

hehex

苍小白 发表于 2012-11-16 16:44
请大侠帮我改改，谢谢

你把入库，出库，结存的逻辑关系具体说明一下，我尽量帮你试试看。
你原来的代码如果能用，我尽量用，如果实在费劲，干脆重写算了。

苍小白

hehex 发表于 2012-11-16 16:50
你把入库，出库，结存的逻辑关系具体说明一下，我尽量帮你试试看。
你原来的代码如果能用，我尽量用，如 ...

结存等于入库数量减去出库数量，正常经营情况下，总的入库数量一定大于总的出库数量。我对VBA不熟，能做好这张进销表，怎么改都行。谢谢大侠了！

hehex

苍小白 发表于 2012-11-17 10:51
结存等于入库数量减去出库数量，正常经营情况下，总的入库数量一定大于总的出库数量。我对VBA不熟，能做好 ...

参考附件，基本上只对入库和出库模块做了极小修改，完全用原来的代码和逻辑。
做了一个自定义函数来填写结存单，并判断出库逻辑是否正确。
由于你以前的程序是没有结存模块的，所有出库单中填写了内容，结存中没有，出库填写了内容，结存可能也没有，这些在现在应该是不可能发生的。请清空录入表外所有表格重新进行出入库测试。

注：为保持原来的逻辑没有对录入表是否有重复产品号做判断，录入表相同产品号不要重复，合并为一条记录录入。

hehex

Forgot the Attachment

苍小白

hehex 发表于 2012-11-17 13:32
Forgot the Attachment

谢谢大侠，基本一样，还有些小问题，不会我在来请教，谢谢