VBA自定义函数应用

Chinapaul2008

一指禅 发表于 2010-4-28 23:37
支持楼主，俺也凑一个！
Function TQSZ(Srg As String)

一指禅，您好！如果提取数字后再将其相加该怎么写呢，感谢！
如：AAA12.8BB12.2   让其在另一单元格显示：25

ctp_119

1. 
   
2. Function 分离字符(str As String, Optional bl As Boolean = True)
   
3. '函数功能说明：通过正则表达式分离子母或数字。
   
4. '函数参数说明;str表示要分离源字符串，bl是个逻辑性变量，用以提取字符还是提取数字。默认提取字符
   
5. Dim reg As Object
   
6. Set reg = CreateObject("vbscript.regexp")
   
7. With reg
   
8.     .Global = True
   
9.     If bl Then
   
10.         '.Pattern = "\d"
    
11.         .Pattern = "[^a-zA-Z]"
    
12.     Else
    
13.         '.Pattern = "[a-zA-Z]"
    
14.         .Pattern = "\D"
    
15.     End If
    
16.     分离字符 = .Replace(str, "")
    
17. End With
    
18. Set reg = Nothing
    
19. End Function
    
20. Function 分离字符2(str As String, Optional bl As Integer = 0)
    
21. '函数功能说明：通过正则表达式分离子母数字汉字。
    
22. '函数参数说明;str表示要分离源字符串，bl是个整型变量，如果是0则提取数字，如果是1提取子母，如果是2提取汉字。默认提取数字
    
23. Dim reg As Object
    
24. Set reg = CreateObject("vbscript.regexp")
    
25. With reg
    
26.     .Global = True
    
27.     Select Case bl
    
28.     Case 0
    
29.         .Pattern = "\D"
    
30.     Case 1
    
31.         .Pattern = "[^a-zA-Z]"
    
32.     Case 2
    
33.         .Pattern = "[0-9a-zA-Z]"
    
34.     End Select
    
35.     分离字符2 = .Replace(str, "")
    
36. End With
    
37. Set reg = Nothing
    
38. End Function
    
39. 
    

复制代码

这是全新的提取字符串的方法，运用了正则表达式，，，正则表达式功能强大，代码简洁。本人也是刚开始学的。

guojianlin1985

恩不错，学习，多谢楼主分享。

157223157

我们没有你的水平，所以，只有学习学习。。。

abview

谢谢分享{:soso_e163:}

1199

在学习中，谢谢提供

zez

好东西，谢谢分享！

banjinjiu

今天晚上学了好几个自定义函数，有了初步认识，谢谢

name004

提取数字，做个记号

wkp-cs123

谢谢分享！好人啊！