vb6.0/vba中 计算公式字符串转化为可执行的计算公式输出结果

vb6.0/vba中 计算公式字符串转化为可执行的计算公式输出结果

vb6.0中 将计算公式字符串转化为可执行的计算公式输出结果方法如下：
Private Sub command1_click()
Set My_Script = CreateObject(“scriptcontrol”)
My_Script.Language = “VBscript”
Run_Str = “msgbox 1+1”
My_Script.executestatement Run_Str
End Sub

可惜的是scriptcontrol控件没有64位版本，也就是说在64位的excel中是无法使用的

但在VBA（excel）中有这样一个函数：Evaluate(“计算式”）
Sub 测试()
For Each r In Selection
MeValue = “(” & r.Value & “)”
r.Value = Evaluate(MeValue & “*2”)
Next
End Sub