如何求和

征途2

我这个里有有文本格式，请各位给我提供一下解决方案,补充一下求和的说明;:

要求是：求和：加班小时-休息小时-调休小时-事假小时

2.我还想单独求一下事假小时和调休小时的总和，

sunya_0529

这做统计数据方法，用公式汇总会很纠结。里面的数据混杂在一个单元格里，有文字描述，有数字，而且分隔有的换行，有的用空格。

给你做了一个自定义函数，就事论事地解决问题——


自定义函数的代码如下：

1. Option Explicit
   
2. 
   
3. Function MSUM(rng As Range) As Single
   
4. On Error GoTo 0
   
5. Dim c As Range, d As Single, str$, arr, i%
   
6. If Not rng Is Nothing Then
   
7.   For Each c In rng
   
8.     str = Replace(c.Value, " ", Chr(10))
   
9.     arr = Split(str, Chr(10))
   
10.     For i = 0 To UBound(arr)
    
11.       MSUM = MSUM + CSng(Replace(Replace(Replace(arr(i), "休息", "-"), "调休", "-"), "事假", "-"))
    
12.     Next i
    
13.   Next c
    
14. End If
    
15. End Function

复制代码

具体效果参考附件吧！

征途2

sunya_0529 发表于 2014-10-14 11:26
这做统计数据方法，用公式汇总会很纠结。里面的数据混杂在一个单元格里，有文字描述，有数字，而且分隔有的 ...

谢谢，帮了大忙，工作效率会提高很多

征途2

sunya_0529 发表于 2014-10-14 11:26
这做统计数据方法，用公式汇总会很纠结。里面的数据混杂在一个单元格里，有文字描述，有数字，而且分隔有的 ...

在吗，能否把你设置这个公式的步骤告诉我一下，这个VBA我还没有学过，呵呵

sunya_0529

征途2 发表于 2014-10-15 22:29
在吗，能否把你设置这个公式的步骤告诉我一下，这个VBA我还没有学过，呵呵

这个自定义函数就像普通函数一样使用，这个函数只有一个参数，就是要求和的单元格区域（必须是连续区域），函数的代码在后台VBE窗口里可见，要用到其他的表格中，只要将模块拖过去就好了。

打开带有VBA代码的文件必须要设置允许宏，并在打开宏时允许宏运行才行。

征途2

sunya_0529 发表于 2014-10-16 09:42
这个自定义函数就像普通函数一样使用，这个函数只有一个参数，就是要求和的单元格区域（必须是连续区域） ...

如果这个公式里，我还想单独求调休小时之各，休息小时之和，请假小时之和，如何计算啊，之前用的这个公式化，但是有的时候会有错误SUM(-TEXT(0&MID(I29:AM29,FIND("调休",I29:AM29&"调休")+2,3),"0.0"))

征途2

sunya_0529 发表于 2014-10-14 11:26
这做统计数据方法，用公式汇总会很纠结。里面的数据混杂在一个单元格里，有文字描述，有数字，而且分隔有的 ...

我可不可以同时建立多个这样的设置，例如求调休合计数，休息合计数，事假合计数，请问如何设置啊，能否帮忙设计一下，只要在单元格里输入就可以啦

sunya_0529

征途2 发表于 2014-10-16 20:28
我可不可以同时建立多个这样的设置，例如求调休合计数，休息合计数，事假合计数，请问如何设置啊，能否帮 ...

把上面的自定义函数稍微修改一下，增加一个可选参数，如果填“事假”、“调休”、“休息”中的任意一个，则会单独计算对应的数值，不填则默认求和，效果如下所示——



自定义函数的代码更新如下——

1. Function MSUM(rng As Range, Optional flag As String) As Single
   
2. On Error Resume Next
   
3. Dim c As Range, str$, arr, i%, x!, y!
   
4. If Not rng Is Nothing Then
   
5.   For Each c In rng
   
6.     str = Replace(c.Value, " ", Chr(10))
   
7.     arr = Split(str, Chr(10))
   
8.     For i = 0 To UBound(arr)
   
9.       If Len(flag) > 0 And InStr(arr(i), flag) > 0 Then x = x + CSng(Replace(arr(i), flag, ""))
   
10.       y = y + CSng(Replace(Replace(Replace(arr(i), "休息", "-"), "调休", "-"), "事假", "-"))
    
11.     Next i
    
12.   Next c
    
13.   MSUM = IIf(Len(flag) > 0, x, y)
    
14. End If
    
15. End Function

复制代码

征途2

sunya_0529 发表于 2014-10-17 10:56
把上面的自定义函数稍微修改一下，增加一个可选参数，如果填“事假”、“调休”、“休息”中的任意一个， ...

我还是用不了啦，我发附件给你看一下，能否告诉我问题出现在哪里啊

征途2

这个是附件，按你写的最新的VBA修改了，但是好像不能用，麻烦你查看一下，谢谢