|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
根本不存在根据两列数据的数量判断,来选择运行两个程序。你要的结果如果是D列减去D列中和E列相同的元素,那就是$aa-$bb;你要的结果如果是E列减去E列中和D列相同的元素,那就是$bb-$aa- Sub t()
- '需要安装ACTIVERUBY ,下载地址 http://www.artonx.org/data/asr/Ruby-2.1.1.msi
- Set ojs = CreateObject("scriptcontrol"): ojs.Language = "rubyscript"
- y = ojs.eval("def aa(aa,bb);$aa=aa.flatten;$bb=bb.flatten;end")
- y = ojs.Run("aa", Sheet1.Range("d4", [d4].End(4)).Value, Range("e4", [e4].End(4)).Value)
- y = ojs.eval("Dir.chdir('" & ThisWorkbook.Path & "');f=File.new('1.txt','w');f.puts ($aa-$bb).each_slice(10).to_a.map{|k|k.map{|x|x.is_a?(Float)?(x.to_i):x}.join(9.chr)}.join(10.chr);f.close")
- y = ojs.eval("($aa-$bb).zip")
- [g4].Resize(UBound(y) + 1).NumberFormatLocal = "@"
- [g4].Resize(UBound(y) + 1) = y
- Set ojs = Nothing
- Shell "notepad " & ThisWorkbook.Path & "\1.txt", 1
- 'Stop
- End Sub
复制代码 ) |
评分
-
1
查看全部评分
-
|