有些难度的简单凑数？

blackttea1

这是我单位的一个产品的开票往来，由于若干原因存在多次作废重开现象，现作为计算方面的需要，需要从以产品编码为主落实最后的数量（如附表中的黄色部分）所对应最开始开票的数量，以时间最早的为优先秩序，存在着一个不确定的凑数计算，因为数量及产品较多。能否用程序来解脱枯燥的计算，谢谢！

[ 本帖最后由 blackttea1 于 2011-5-12 19:55 编辑 ]

blackttea1

顶一下。争取支持，谢谢！

blackttea1

顶一下。争取支持，谢谢！

siyiqing

看不懂什么意思，你再表述得清楚点

blackttea1

我的意思是：黄色部分为最后开票的，在2009-06-24以'07270016编码的产品有2笔，分别为
1116与480两个数，从没有颜色的部分07270016编码的产品依次以最早的日期为优先顺序去凑分别等于1116与480的数量的组合，如红色部分210+270=480，蓝色部分为1116的组合，谢谢关心！

figfig

1. Sub ruby2()
   
2. '须安装ACTIVERUBY.才能运行
   
3. '下载地址  http://www.artonx.org/data/asr/ActiveRuby.msi
   
4. 
   
5. 
   
6. Set x = CreateObject("scriptcontrol")
   
7. 
   
8. x.Language = "rubyscript"
   
9. 
   
10. y = x.eval("def aa aa,bb,cc ;$aa=aa;$kk=bb;$ll=cc;end;")
    
11. y = x.Run("aa", Sheet1.UsedRange.Value, [j2].Value, [j3].Value)
    
12. y = x.eval("zz=0;arr='';bb=$aa[6..-1].reverse.map{|x|x[10]};catch (:aaa) do;(2..bb.size-1).each{|x|bb.combination(x).to_a.each{|y|mm=y.inject(&:+);arr=mm.to_s+'='+y.inspect.to_s and throw(:aaa) if mm==$kk };};end;arr;")
    
13. MsgBox y
    
14. 
    
15. y = x.eval("zz=0;arr='';bb=$aa[6..-1].reverse.map{|x|x[10]};catch (:aaa) do;(2..bb.size-1).each{|x|bb.combination(x).to_a.each{|y|mm=y.inject(&:+);arr=mm.to_s+'='+y.inspect.to_s and throw(:aaa) if mm==$ll };};end;arr;")
    
16. MsgBox y
    
17. 
    
18. End Sub

复制代码

Ericall

膜拜中，CreateObject哪位高人能讲讲啊

blackttea1

谢谢figfig 老师的指导，能否在将选中的数据分别标以颜色来区分，使能够一目了然的使用，谢谢！

figfig

数据不规范,怎么2,3行跟4,5行一样?

blackttea1

已将4,5行删除。