请问怎么用vbscript eval来计算带备注的计算式，代码要怎么写

CrazyD

请问怎么用vbscript eval来计算带备注的计算式，代码要怎么写比如，我要自定义一个函数，来计算  8[长]*9[宽] 而在后一单元格就直接＝自定义函数（计算式所在单元格），就能得出计算结果，不用EVALUATE，这个函数不能超过255字符，主要是想突破EVALUATE计算的255字符限制，而且，计算式带[]中加备注，最好能将[]及里面的备注变颜色。希望能给个代码，谢谢

早早嗲

       Function JG(JSS, Optional x) ’返回计算公式的值或值的计算公式

　　Dim S%, E%

　　Dim JS As String

　　If JSS = "" Then

　　JG = ""

　　Else

　　If IsMissing(x) Then ’返回计算公式的值

　　If Left(JSS.Value, 1) = "=" Then

　　JSS = Mid(JSS, 2)

　　End If

　　Do Until InStr(1, JSS, "[") = 0

　　S = InStr(1, JSS, "[")

　　E = InStr(1, JSS, "]")

　　JSS = Left(JSS, S - 1) & Mid(JSS, E + 1)

　　Loop

　　JG = Evaluate("=" & JSS)

　　ElseIf x = 2 Then ’返回值的计算公式或可计算的表达式或值本身

　　If JSS.HasFormula = True Then

　　JG = Mid(JSS.Formula, 2)

　　Else

　　If IsNumeric(Evaluate(JSS.Value)) = True Then

　　JG = JSS.Value

　　Else

　　JS = JSS.Value

　　Do Until InStr(1, JSS, "[") = 0

　　S = InStr(1, JSS, "[")

　　E = InStr(1, JSS, "]")

　　JSS = Left(JSS, S - 1) & Mid(JSS, E + 1)

　　Loop

　　If IsNumeric(JSS) = True Or IsNumeric(Evaluate(JSS)) = True Then

　　JG = JS

　　End If

　　End If

　　End If

　　End If

　　End If

End Function

xiaobai98

早早嗲 发表于 2012-4-1 13:46
Function JG(JSS, Optional x) ’返回计算公式的值或值的计算公式 　　Dim S%, E% 　　Dim JS As St ...

2楼能不能做个文件上传来  我可耻的伸手了，因为函数实在看不懂 ，不知道怎么操作

keane

马克                                                            

Zamyi

Function Zj(s)
s = Replace(Replace(s, "（", "("), "）", ")")
Set x = CreateObject("MSScriptControl.ScriptControl")
x.Language = "vbscript"
With CreateObject("VBSCRIPT.REGEXP")
  .Global = True
  .Pattern = "\[.*?\]|{(.*?)}|[^0-9.+-/^*()]"
  Zj = x.Eval(.Replace(s, "$1"))
  End With
End Function

wlianke

Zamyi 发表于 2012-11-6 16:39
Function Zj(s)
s = Replace(Replace(s, "（", "("), "）", ")")
Set x = CreateObject("MSScriptControl ...

请问：
    用你的代码计算这个算式会出错：
13.45*3－1.85[局部2线]+0.2[灯头预留]
请告知什么原因，谢谢

Zamyi

wlianke 发表于 2013-12-25 17:10
请问：
    用你的代码计算这个算式会出错：
13.45*3－1.85[局部2线]+0.2[灯头预留]

"－"是全角字符，不是减号。

wlianke

Zamyi 发表于 2013-12-26 08:41
"－"是全角字符，不是减号。

非常感谢啊，原来问题出在这里，谢谢您。
如果您的代码也象EVALUATE一样，不区分这个就好了。您能修改一下吗？

蓝颜知己是他

这个还真不知道啊！

sky2015365

经测试，5楼方案可解决此问题……感谢技术支持！