用EXCEL自定义函数计算结果或得到值的计算表达式

　　有许多朋友想知道计算表达式结果的方法，我自己做了一个，供大家参考,方法如下：
　　打开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
　　（爱上考试网造价）



上一篇：工程量计算基础知识问答（一）
下一篇：经验交流：我做的造价下浮测算（四）