关于货物先进先出

lz68688

很好很强大，费了点力气虽然没全懂但可以修改下自己用了，对数组一直看不懂，这次知道点了。

sundaping

为什么复制代码不能用计算呢

zhixu6618

谢谢分享，正是我在找的

jiatengm

收藏，消化好再应用

bluexuemei

1. Sub t()
   
2. '需要安装ACTIVERUBY ，下载地址 http://www.artonx.org/data/asr/Ruby-2.1.1.msi
   
3. Set ojs = CreateObject("scriptcontrol"): ojs.Language = "rubyscript"
   
4. ojs.eval ("def aa(aa,bb);$aa=aa;$bb=bb;end")
   
5. y = ojs.Run("aa", Sheet2.UsedRange.Value, Sheet1.Range("a2", Sheet1.[b2].End(4)).Value)
   
6. y = ojs.eval("h={};$aa[1..-1].each{|x|(h[x[0]]||=[])<<x[1..2]};c=[];$bb.each{|x|b=[];h[x[0]].each{|i|if i[1]<=x[1];b<<[i[0],i[1].to_i].join('/');x[1]=x[1]-i[1];elsif i[1]>x[1];b<<[i[0],x[1].to_i].join('/');break;end};c<<b.join(';')};c.zip")
   
7. Sheet1.[c2].Resize(UBound(y) + 1) = y
   
8. Set ojs = Nothing
   
9. 'Stop
   
10. End Sub

复制代码

kokol333

你好！yangyangzhifeng
求助问题，增加出库日期和出库汇总表，如下：
1.在sheet1中，增加出库日期.
2.在sheet3中，增加出库日期和入库日期。
3.增加1个sheet4，汇总出库记录（记录每一次的出库信息）

yzgx201

如果一张出库单中有一个品种没有库存，怎样提示并终止执行呢？

三联单是是是

高，实在是高

EXCELLMY

先进先出学习

pxw002

yangyangzhifeng 发表于 2012-8-8 22:06

高啊  实在是高