给vba插上翅膀，---在VBA中使用RUBY

aidixiao

figfig老师，下面的这个贴子http://club.excelhome.net/thread-274302-1-1.html
我用ruby做了一下，用时0.48s没有狼版的运行速度快(0.18s)，不过算法简洁容易理解，我想问一下大师，这段代码用ruby还可以优化提速吗？
Sub RUBY()
    t = Timer
    Application.ScreenUpdating = False
    a = Application.Transpose([a1:a60000])
    b = Application.Transpose([b1:b60000])
    c = Application.Transpose([c1:c60000])
    Set x = CreateObject("scriptcontrol")
    x.Language = "rubyscript"
    x.eval ("def test(aa,bb,cc) a & b & c end;")
    y = x.Run("test", a, b, c)
    [d1].Resize(UBound(y) + 1) = Application.Transpose(y)
    Application.ScreenUpdating = ture
    t = Timer - t
    MsgBox t
End Sub

[ 本帖最后由 aidixiao 于 2010-5-21 08:50 编辑 ]

老伙计2008

好东西，收藏了

yinglai

原帖由 yinglai 于 2010-5-20 17:23 发表
有个问题请教figfig大侠：在sheet1的[a1:z10000]单元格中都是一些0至100的数字，我想将数值小于5的替换为A,小于10的替换为B,小于15的替换为C,其余的替换为D,用ruby的正则表达式怎样实现？谢谢了。

文件已上传，受上传文件大小限制，我将[a1:z10000]改成了[a1:z100],请大师帮忙测试。

[ 本帖最后由 yinglai 于 2010-5-21 15:12 编辑 ]

aidixiao

用正则表达式处理数据应该是ruby的强项，期待figfig大师能给出几个这方面的例子。

figfig

用正则判断数字大小好像不合适吧,这个建议用VBA方法

yinglai

原帖由 figfig 于 2010-5-22 09:15 发表
用正则判断数字大小好像不合适吧,这个建议用VBA方法

figfig老师，我是看了这个贴子http://club.excelhome.net/viewth ... D%D4%F2%B1%ED%B4%EF中用VBSCRIPT的正则来进行数字的替换，就是想跟老师学习一下用ruby的正则怎么处理类似的问题。

easyclasses

看了大师的介绍，真是大开眼界。

thtfzhaobo

留下脚印，慢慢学习

ggtang

学习了……………………

alphy

学习，函数功能比较强大