|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
这个代码怎么运行不了?
返回计算公式的值,代码如下:
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 |
|