在VBA中使用JAVASCRIPT和VBSCRIPT.docVIP

在VBA中使用JAVASCRIPT和VBSCRIPT（1） 1)以数组为例，用JAVASCRIPT排序 Sub fig8() Set x = CreateObject(msscriptcontrol.scriptcontrol) x.Language = javascript arr = Array(aa, cc, bb, 1a) kk = Join(arr, ,) x.addcode function aa(bb){x=bb.split(,);x.sort();return x;} cc = x.eval(aa( kk )) MsgBox cc End Sub 2)1)以数组为例，用JAVASCRIPT倒序 Sub fig8() Set x = CreateObject(msscriptcontrol.scriptcontrol) x.Language = javascript arr = Array(aa, cc, bb, 1a) kk = Join(arr, ,) x.addcode function aa(bb){x=bb.split(,);x.reverse();return x;} cc = x.eval(aa( kk )) MsgBox cc End Sub 用VBSCRIPT的简单例子 Sub fig8() Set x = CreateObject(msscriptcontrol.scriptcontrol) x.Language = vbscript x.addcode sub aa(): msgbox hello..:end sub x.Run aa End Sub 以前需要分开好几个模块，函数，现在可以统统放在一起了。。。。。 Sub fig8() Set x = CreateObject(msscriptcontrol.scriptcontrol) x.Language = vbscript x.addcode sub aa(): msgbox hello..:end sub : sub bb:msgbox 3:end sub :sub cc: msgbox cc:end sub x.Run aa x.Run bb x.Run cc End Sub 自定义函数的用法 Sub fig8() Set x = CreateObject(msscriptcontrol.scriptcontrol) x.Language = vbscript x.addcode function sum(x,y):sum=x+y:end function bb = x.Run(sum, 2, 3) MsgBox bb End Sub 动态改变窗口，文本框，单元格，range属性， 本例改[A1:z888]单元格为红色 Sub fig88() Set X = CreateObject(msscriptcontrol.scriptcontrol) X.Language = vbscript X.addcode SUB AA:XX.INTERIOR.COLORINDEX=3:END SUB X.ADDOBJECT XX, [A1:z888] X.Run AA End Sub 设置和调用全局变量 Sub figvb() Set x = CreateObject(msscriptcontrol.scriptcontrol) x.Language = vbscript x.addcode public x: sub aa(bb):x=bb*100:end sub x.Run aa, 3 b = x.codeobject.x MsgBox b End Sub 代码放在单元格里不再是笑话：） Sub figvbs() Set x = CreateObject(msscriptcontrol.scriptcontrol) x.Language = vbscript [a1] = a1=3 [a2] = b1=4 [a3] = msgbox a1+b1 For i = 1 To 3 x.executestatement Cells(i, 1) Next End Sub 新建类可以不再需要类模块 Sub figvbs() Set X = CreateObject(msscriptcontrol.scriptcontrol) X.Language = vbscript X.ADDCODE CLASS AA:PUBLIC SUB TEST():MSGBOX 类模块:END SUB:END CLASS X.ADDCODE SET YY=NEW AA Set RR =