有许多朋友想知道计算表达式结果的方法，我自己做了一个，供大家参考,方法如下：
打开excel，打开“工具_宏_Visual Basic编辑器”，在左侧的工程资源管理器中本文件名称上点击右键，选择“插入_模块”，在添加的模块的空白代码窗口中粘贴如下代码：
Function YCH(JSS, Optional x) ’返回计算公式的值或值的计算公式
Dim S%, E%
Dim JS As String
If JSS = "" Then
YCH = ""
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
YCH = Evaluate("=" & JSS)
ElseIf x = 2 Then ’返回值的计算公式或可计算的表达式或值本身
If JSS.HasFormula = True Then
YCH = Mid(JSS.Formula, 2)
Else
If IsNumeric(Evaluate(JSS.Value)) = True Then
YCH = 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
YCH = JS
End If
End If
End If
End If
End If
End Function
查询造价工程师考试信息到中国资格考试网
2009年造价工程师考试网上远程培训：点击这里进入免费试听
购买2009年造价工程师考试用书请到树人考试书店
