工程计算中非常实用的函数

flybutcher

工具-宏-Visual Basic编辑器-插入-模块
然后复制以下内容进去就可以用了。

Function zvalue(s As String) As Double
'去除计算式中的其它字符并返回计算结果
    Dim str As String
    str = ""
    s = Strings.Replace(s, "＋", "+")
    s = Strings.Replace(s, "－", "-")
    s = Strings.Replace(s, "×", "*")
    s = Strings.Replace(s, "÷", "/")
    s = Strings.Replace(s, "／", "/")
    s = Strings.Replace(s, "（", "(")
    s = Strings.Replace(s, "）", ")")
    s = Strings.Replace(s, "％", "%")
    s = Strings.Replace(s, ",", "")
    For i = 1 To Len(s)
        If Strings.Asc(Mid(s, i, 1)) > 39 And Strings.Asc(Mid(s, i, 1)) < 58 Or Strings.Mid(s, i, 1) = "^" Or Strings.Mid(s, i, 1) = "%" Then
            str = str + Mid(s, i, 1)
        End If
    Next i
    str = Evaluate(str)
    zvalue = str
End Function

示例，在A1中输入“12米长×5米宽”，在B1中输入“=zvalue(A1)”即可得到结果60

[ 本帖最后由 flybutcher 于 2009-7-2 09:16 编辑 ]

gouweicao78

EVALUATE受公式长度影响，不能计算超过255个字符的公式。

papapa1001

我还以为是讲工程函数呢

zienmc

喜欢顶上，正好可以直接使用呵。

LCY-726

用这段代码计算出的结果怎么没法设置保留小数的位数。

LCY-726

能帮我看看吗？

LCY-726

原帖由 LCY-726 于 2009-6-20 21:00 发表
用这段代码计算出的结果怎么没法设置保留小数的位数。

这个问题已解决，在代码中设置了！

flybutcher

不知道你那边是怎么回事，我在2000和2003测试都可以设置保留小数位数

flybutcher

我发现了，原来我自己的已经改过了，以前的确实不能设置保留位数，现在把新的发上去了