VBA自定义函数应用

一指禅

Q：如何用自定义函数计算单元格内的数字公式表达式？
A：

1. Function eval(TQSZ As String)
   
2. Set evl = CreateObject("MSScriptControl.ScriptControl"): evl.Language = "vbscript": eval = evl.eval(TQSZ)
   
3. End Function

复制代码

ctp_119

好，又是一种新方法！！值得学习了！
谢谢大家的支持！！！

ctp_119

本函数是一个综合分离函数！希望给大家有所帮助和启示！！

'本函数的关节点是运用了默认参数,当缺省时就用默认值.
'第二点是充分运用了ASCⅡ码来判断.
Function fenli(a As String, Optional x As Integer = 0, Optional f As Boolean = True)
Dim b As String
Dim i As Integer
Dim j As Integer
Dim c As String
i = Len(a)
Select Case x
Case 1
If f Then
For j = 1 To i
    b = Mid(a, j, 1)
    If Asc(b) >= 48 And Asc(b) <= 57 Then c = c + b
Next j
Else
For j = i To 1 Step -1
    b = Mid(a, j, 1)
    If Asc(b) >= 48 And Asc(b) <= 57 Then c = c + b
Next j
End If
fenli = Val(Trim(c))
Case 2
If f Then
For j = 1 To i
    b = Mid(a, j, 1)
    If (Asc(b) >= 65 And Asc(b) <= 90) Or (Asc(b) >= 97 And Asc(b) <= 122) Then c = c + b
Next j
Else
For j = i To 1 Step -1
    b = Mid(a, j, 1)
    If (Asc(b) >= 65 And Asc(b) <= 90) Or (Asc(b) >= 97 And Asc(b) <= 122) Then c = c + b
Next j
End If
fenli = Trim(c)
Case Else
If f Then
For j = 1 To i
    b = Mid(a, j, 1)
    If Asc(b) < 0 Then c = c + b
Next j
Else
For j = i To 1 Step -1
    b = Mid(a, j, 1)
    If Asc(b) < 0 Then c = c + b
Next j
End If
fenli = Trim(c)
End Select
End Function

weixingming0405

好贴我喜欢~~

blackttea1

分享一下，谢谢。

lpy6666

感谢楼主分享。

120HYH

谢谢分享，不错学习了。

winds.ch

Good stuff, mark.

冲天妖狐

收藏备用……

limao29

我了收藏，学习！EXCEL初级！