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

很多朋友想知道表达式结果的计算方法。我做了一个给你参考。方法如下:
打开excel，打开Tools _ Macros _Visual Basic编辑器，在左侧工程浏览器中右键单击该文件的名称，选择Insert _ Module。将以下代码粘贴到添加的模块的空白色代码窗口中:
函数YCH (JSS，可选x)'返回计算公式的值或计算公式的值
Dim S%，E%
dimjs作为字符串
ifjss = " " then
ych = " "
else
如果缺少(x) then '返回计算公式的值
ifleft (jss..1) = "= "然后
JSS = Mid(JSS，2)
End If
Do Until InStr(1，JSS，"["]S = InStr(1，JSS，"["["]]E = InStr(1，JSS，"]"
JSS = Left(JSS，S - 1) & Mid(JSS，E+1)
loop
YCH = evaluate(" = " & JSS)
Formula，2)
Else
If is numeric(Evaluate(JSS。Value)) = True，那么
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或IsNumeric(Evaluate(JSS))= True Then
YCH = JS
End If