考勤问题：文本提取数据求和

chinayoung1

最近小弟有一问题困扰，如附件描述，考勤问题，文本提取数据求和，谢谢各位了。

youliqi

考勤表.rar (7.21 KB, 下载次数: 74)

2010-6-23 23:17 上传

点击文件名下载附件

chinayoung1

小弟找对地方了

chinayoung1

如果我不想加一行呢 先取出数字 而是直接在红色区域求和呢？该如何处理（因为是考勤表，我不可能每个人都要加一行）

稻香老农

学习了~~

Ada0318

根据2楼朋友的方法  我有稍加改变了一下 应该好理解吧

Ada0318

不好意思 没看到你追加的问题   我再研究研究

selva_xue

呵呵，把6楼的稍加修改就可以了。

sunya_0529

原帖由 chinayoung1 于 2010-6-24 10:48 发表
如果我不想加一行呢 先取出数字 而是直接在红色区域求和呢？该如何处理（因为是考勤表，我不可能每个人都要加一行）

感觉用自定义函数会比较容易一些：

1. 
   
2. Option Explicit
   
3. Function SumOT(rngTemp As Range)
   
4. Application.Volatile (False)
   
5. If rngTemp Is Nothing Then Exit Function
   
6. Dim k As Range, objRegExp
   
7. Set objRegExp = CreateObject("VBScript.RegExp")
   
8. With objRegExp
   
9.   .Pattern = "[^(\d|.)]"
   
10.   .IgnoreCase = True
    
11.   .Global = True
    
12.   For Each k In rngTemp
    
13.     SumOT = SumOT + Val(.Replace(k.Value, ""))
    
14.   Next
    
15. End With
    
16. Set k = Nothing
    
17. Set objRegExp = Nothing
    
18. End Function
    

复制代码

效果如附件所示：

chinayoung1

太好了，谢谢各位了