1-12月的考勤如何计算

sunny_3521

请教各位大侠
附件中的表格由1-12月出勤统计的sheet,小妹想把1-12月的请假时数等汇总到一张表上，用各个表格直接想加的话不可以，因为每个表格对应人员的姓名不一样，用sumif公式太长了。请教大虾有没有更更简单的统计公式
请参考附件
期待各位大侠的指点

alzeng

起码应该放一部分有效数据供测试，而不是几张没有关键数据的空表……

sunya_0529

原帖由 sunny_3521 于 2010-6-25 17:34 发表
请教各位大侠
附件中的表格由1-12月出勤统计的sheet,小妹想把1-12月的请假时数等汇总到一张表上，用各个表格直接想加的话不可以，因为每个表格对应人员的姓名不一样，用sumif公式太长了。请教大虾有没有更更简单的统 ...

莎莎？

用自定义函数帮你做了一个，数据量大的时候计算可能有点慢，不过把函数设置成非易失性函数了，不动源数据就不会触发公式计算。

1. 
   
2. Function TEST(rngName As Range, intCol As Integer)
   
3. Application.Volatile (False)
   
4. Dim i%, wst As Worksheet, k As Range
   
5. For i = 1 To 12
   
6.   Set wst = Sheets("考勤表" & i & "月")
   
7.   Set k = wst.[G:G].Find(rngName.Value, LookIn:=xlValues)
   
8.   If Not k Is Nothing Then
   
9.     TEST = TEST + wst.Cells(k.Row, intCol)
   
10.   End If
    
11. Next
    
12. Set wst = Nothing
    
13. Set k = Nothing
    
14. End Function
    

复制代码

函数说明——
TEST(rngName, intCol)
rngName是指要查找的人名，单元格引用
intCol是指要查找的数据对应各月份表中的列标，为整数值

友情提醒，工作表名称中最好不要有空格，否则容易出意外!!

详细应用见附件——

[ 本帖最后由 sunya_0529 于 2010-6-26 15:25 编辑 ]

sunny_3521

请问大侠怎么知道我是莎莎？
呵呵
小妹会仔细研究的

sunny_3521

我看了附件。。附件内没有什么函数设置啊，，启用了宏也没有任何改观
恕小妹愚钝
请大侠再次指教

sunny_3521

呵呵侠圣
我在4,5,6月都有数据
麻烦侠圣指点一二

sunny_3521

这个自定义函数应该如何使用？
该把以上内容复制到那呢？
不可以直接用公式啊？

sunya_0529

莎莎，抱歉，可能是上传附件时搞错了，3楼附件已更新，请重新下载。

sunny_3521

请各位大侠指点

sunny_3521

大侠
我看了你做的
可是汇总的数据为什么有错误呢
这个自定义函数是怎么设的
我该如何更改呢
急求大侠指点