考勤机导出的考勤表数据自动处理问题？（谢谢大家了）

zengsijun

这是考勤机导出的考勤表，现需对其中的数据进行统计分析，用VBA自动将其结果填入2月份出勤表1、2月出勤异常表、2月年假统计表，数据来源均来自于该表。其中人员、行数均不固定， 要求，能进行动态更新！谢谢了！（附件已更新！）
2月份出勤表修.rar (5.71 KB, 下载次数: 250)

2013-3-11 08:28 上传

点击文件名下载附件

zengsijun

请问哪位大侠能否伸出援助之手，谢谢了！

Gemmy

这个貌似没有太大的必要用VBA,用透视表分类汇总一下就可以了。

zengsijun

透视表太麻烦了，我觉得还是用VBA好些！请大侠出手相助了，谢谢！

zengsijun

顶上去，请大侠关注，谢谢了！！

zengsijun

希望哪位高手能帮忙。。。非常感谢！

mjzxlmg

搞不明白，早退是如何判断的
异常表的开始、结束时间等不清楚是如何得来的

[code=vb]Sub test() '引用 Microsoft Scripting Runtime
    Dim dic As New Dictionary, arr, brr(), i&, j&, m&, s&, crr(), n&, drr, col&
    Sheet1.Activate
    arr = [a1].CurrentRegion.Value
    col = Val(ActiveSheet.Name) + 1
    ReDim brr(1 To UBound(arr), 1 To 7)
    ReDim crr(1 To UBound(arr), 1 To 6)
    ReDim drr(1 To UBound(arr), 1 To 1)
    For i = 2 To UBound(arr)
        s = dic(arr(i, 1))
        If s = Empty Then
            m = m + 1
            dic(arr(i, 1)) = m
            s = m
            brr(s, 1) = arr(i, 1)
        End If
        brr(s, 2) = brr(s, 2) + Val(arr(i, 6))
        brr(s, 3) = brr(s, 3) + Val(arr(i, 7))
        If Len(arr(i, 8)) Then brr(s, 4) = brr(s, 4) + 1
        brr(s, 6) = brr(s, 6) + Val(arr(i, 9))
        brr(s, 7) = brr(s, 7) + Val(arr(i, 10))
        drr(s, 1) = brr(s, 7)
        If Len(arr(i, 10)) Then
            n = n + 1
            crr(n, 1) = arr(i, 2)
            crr(n, 2) = arr(i, 1)
            If arr(i, 4) = "" And arr(i, 5) = "" Then
                crr(n, 3) = "8:30"
                crr(n, 4) = "18:00"
            ElseIf Len(arr(i, 4)) And arr(i, 5) = "" Then
                'crr(n, 3) = "8:30"
                'crr(n, 4) = "12:00"
            ElseIf Len(arr(i, 5)) And arr(i, 4) = "" Then
                crr(n, 3) = "8:30"
                crr(n, 4) = "12:00"
            Else
                crr(n, 3) = arr(i, 4)
                crr(n, 4) = arr(i, 5)
            End If
            crr(n, 5) = "年假"
            crr(n, 6) = arr(i, 10)
        End If
    Next
    Sheet2.[a5].Resize(m, 7).Value = brr
    Sheet3.[a5].Resize(n, 6).Value = crr
    Sheet4.Cells(5, col).Resize(m).Value = drr
    Set dic = Nothing
    Erase arr: Erase brr: Erase crr: Erase drr
End Sub[/code]

huaimiao781

看着 使用 透视表  或者分类汇总 可以得到结果。
不过楼主的 目的是想偷懒， 直接把结果输出到 表中来。
2月表1 中用公式即可。  异常中， 使用一个筛选 差不多 可以了。
年假中  也是 条件求和   
哈哈！ 请问 你还有什么要求么？ 非要VBA  就把 公式 写在代码中 来实现目标！
自己脑子 转转， 别遇到问题 往这里一丢， 人家没有义务，大家在这里是 兴趣和相互帮助！

zengsijun

早退可以不考虑，异常表的开始时间和结束时间都是从表1中查找得来的！

zengsijun

mjzxlmg大侠，我试了一下您的代码，显示定义错误，请问是什么原因？谢谢了！