161个VBA 自定义函数

YZLSZAJ · 发表于 2010-9-17 16:25

不错，谢谢分享。

林志雄 · 发表于 2010-9-17 18:12

多谢楼主分享

jl128 · 发表于 2010-12-17 17:04

谢谢，学习了

天下第一素 · 发表于 2010-12-17 17:21

ExcelHome里这种分享的精神真好！

hsc500 · 发表于 2010-12-17 21:09

谢谢分享 161个VBA 自定义函数

ljx63426 · 发表于 2010-12-17 21:17

谢谢楼主分享！

阿里山1234 · 发表于 2010-12-17 22:10

返回计算公式的值，代码如下：
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

li720608 · 发表于 2010-12-31 09:04

多谢楼主分享

多多2011 · 发表于 2010-12-31 12:01

谢谢楼主，祝新年快乐

ljx63426 · 发表于 2010-12-31 14:49

真不错，感谢分享

		自动登录	找回密码
密码			免费注册

[分享] 161个VBA 自定义函数

谢谢！

这个代码怎么运行不了？