有些难度的简单凑数？

figfig

1. Sub ruby2()
   
2. '须安装ACTIVERUBY.才能运行
   
3. '下载地址  http://www.artonx.org/data/asr/ActiveRuby.msi
   
4. Set x = CreateObject("scriptcontrol")
   
5. x.Language = "rubyscript"
   
6. Row = [a4].End(xlDown).Row
   
7. Range("A4:K" & Row).Interior.ColorIndex = 2
   
8. [l2:l888] = Empty
   
9. y = x.eval("def aa aa,bb,cc ;$aa=aa;$kk=bb;$ll=cc;end;")
   
10. y = x.Run("aa", Sheet1.UsedRange.Value, [j2].Value, [j3].Value)
    
11. y = x.eval("zz=[];yy=[];kk='';arr='';brr=$aa.map{|x|x[10]};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(&:+);zz=y and throw(:aaa) if mm==$kk };};end;arr;zz.each{|x|yy<<brr.index(x)+1};yy")
    
12. For Each yy In y
    
13. Range("A" & yy & ":K" & yy).Interior.ColorIndex = 4
    
14. Cells(yy, 12) = [j2].Value
    
15. Next
    
16. y = x.eval("zz=[];yy=[];kk='';arr='';brr=$aa.map{|x|x[10]};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(&:+);zz=y and throw(:aaa) if mm==$ll };};end;arr;zz.each{|x|yy<<brr.index(x)+1};yy")
    
17. For Each yy In y
    
18. Range("A" & yy & ":K" & yy).Interior.ColorIndex = 8
    
19. Cells(yy, 12) = [j3].Value
    
20. Next
    
21. End Sub
    
22. 
    

复制代码

[ 本帖最后由 figfig 于 2011-5-11 17:18 编辑 ]

blackttea1

谢谢figfig 老师的指导，已完全达到我的要求，有一个不情之请，能否给程序作一个注释，以便认真学习。