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

figfig · 发表于 2010-5-19 08:30

原帖由 aidixiao 于 2010-5-18 22:33 发表
请问figfig老师，下面这段求两个数组差集的代码错在哪里？
Sub qiubuji()
Dim arr1, arr2, arr3
arr1 = Application.Transpose(Range("A1:A6")) 'A1至A6的值分别为1、2、3、4、5、6
arr2 = [1,2,3,4,5,6,7,8,9 ...

Sub qiubuji()
Dim arr1, arr2, arr3
arr1 = Array(1, 2, 3, 4, 5)
arr2 = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 0)
Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"
x.eval ("def test(arr1,arr2) arr2-arr1 end;#相当于vba的function; ")
y = x.Run("test", arr1, arr2)

MsgBox Join(y, ",")
End Sub

'vba的数组

joforn · 发表于 2010-5-19 08:45

有个问题没弄明白，如果我使用这个东西后，在发布程序的时候不会还得把它先在客户端全部安装吧？——十几M啊，而且楼主的所有例子全是使用ScriptControl来实现，是不是在其它的程序中只能用这种方式调用运行？
有点孤弱寡闻，让楼主见笑了。

figfig · 发表于 2010-5-19 09:09

10m应该不算大吧,可以设定一个一步安装,比起现在流行的.net 程序需要安装包几百兆,还是可以接受的

aidixiao · 发表于 2010-5-19 09:11

原帖由 figfig 于 2010-5-19 08:30 发表

Sub qiubuji()
Dim arr1, arr2, arr3
arr1 = Array(1, 2, 3, 4, 5)
arr2 = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 0)
Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"
x.eval ("def test(arr1 ...

明白了，谢谢figfig老师。

aidixiao · 发表于 2010-5-19 16:55

再次打扰figfig老师，您在讲“在vba中使用perl“中的一个例子用ruby语言怎样实现：
文件作为数组处理，先创建C:\AA.TXT文件
Sub perl()
Set x = CreateObject("scriptcontrol")
x.Language = "perlscript"
x.eval "open(IN, 'c:\\aa.txt');@file=<IN>; " '文件复制到数组
y = x.eval("@file") '文件行数
MsgBox y
y = x.eval("@file[2]") '文件第二行
MsgBox y
End Sub

[ 本帖最后由 aidixiao 于 2010-5-19 16:57 编辑 ]

figfig · 发表于 2010-5-19 18:52

原帖由 aidixiao 于 2010-5-19 16:55 发表
再次打扰figfig老师，您在讲“在vba中使用perl“中的一个例子用ruby语言怎样实现：
文件作为数组处理，先创建C:\AA.TXT文件
Sub ruby()
Set x = CreateObject("scriptcontrol")
x.Language = "perlscript"
x.ev ...

Sub ruby()
Set x = CreateObject("scriptcontrol")
x.Language = "rubyscript"
y = x.eval("open( 'c:\aa.txt').readlines ") '文件复制到数组
MsgBox y(1) '第2行

End Sub

[ 本帖最后由 figfig 于 2010-5-19 18:54 编辑 ]

yinglai · 发表于 2010-5-20 17:23

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

figfig · 发表于 2010-5-20 17:33

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

请上传附件以便测试

yinglai · 发表于 2010-5-20 18:21

原帖由 figfig 于 2010-5-20 17:33 发表

请上传附件以便测试

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

tihuan.rar (183.13 KB, 下载次数: 20)

[ 本帖最后由 yinglai 于 2010-5-20 20:13 编辑 ]

alixking · 发表于 2010-5-20 20:27

函数功能比较丰富，呵呵

		自动登录	找回密码
密码			免费注册