|
arhJBPzd.rar
(162.76 KB, 下载次数: 1807)
做了一个比较好玩的实例,可以用函数调用VBA程序或运行工作表中的VBA代码. 模块 Public yunx
Public yunxi As String
Function 运行(a)
On Error GoTo ren
运行 = "运行"
yunxi = "Sub xi()" & Chr(10)
arr = a
For i = 1 To UBound(arr)
If arr(i, 1) Like "range*" Or arr(i, 1) Like "Range*" Then arr(i, 1) = "ActiveSheet." & arr(i, 1)
If arr(i, 1) <> "" Then yunxi = yunxi & arr(i, 1) & Chr(10)
Next i
yunxi = yunxi & "End Sub" & Chr(10)
Set yunx = New css
Set yunx.sht = ActiveSheet
Exit Function
ren:
If a Like "call*" Or a Like "Call*" Then
Application.Run Mid(a, 5, Len(a))
Exit Function
End If
yunxi = "sub xi()" & Chr(10) & a & Chr(10) & "end sub"
Set yunx = New css
Set yunx.sht = ActiveSheet
End Function 类模块css代码
Public WithEvents sht As Worksheet
Private Sub sht_Change(ByVal Target As Range)
On Error GoTo ren
Set yunx.sht = Nothing
Set yunx = Nothing
Set s = CreateObject("MSScriptControl.ScriptControl")
s.Language = "VBScript"
s.AddObject "ActiveWorkbook", ActiveWorkbook
s.AddObject "Application", Application
s.AddObject "Activesheet", ActiveSheet
s.AddObject "sheets", Sheets
s.AddObject "cells", Cells
s.addcode yunxi
s.Run "xi"
s.Reset
ren:
End Sub | 
楼主: 彭希仁
[复制链接]
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2008-7-16 10:16
楼主
