Dim s
If Text1 = "" Then Exit Sub
On Error GoTo errHandler
Set s = CreateObject("ScriptControl")
s.Language = "VBScript"
Text1 = s.Eval(Text1)
Set s = Nothing
flag = True
Exit Sub
errHandler: Text1 = "E"
text根据公式自动计算。
最新推荐文章于 2022-08-11 09:42:07 发布