自定义函数实现:
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 J做画划委基SS.HasFormula = True Then
YCH = Mid(JSS.Formula, 2)
Else
If IsNumeric(Evaluate(JSS.Value)) = True Then
Y掌求阶CH = 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) = Tru者在弱e Or IsNumeric(Evaluate(JSS)) = True Then
YCH = JS
End If
End If
End If
End If
End If
End Function