考勤统计表求助

静要爱学习8910

大家好，最近遇到一个难题，公司的刷脸考勤机只能刷出考勤时间，我们公司有三个班，每隔几天就会换班，现在领导让我统计出每月每位员工出勤天数，未考卡天数，迟到早退次数，弄的头都大了，实在无从下手，想要请大家帮忙，如果有人能提供实用EXCEL统计方法，解决我的燃眉之急，愿意提供50元人民币奖励，请大家帮忙！！附件是我们公司的考勤记录。
白班8:00-16:00   中班：16:00-24:00  大夜班：00：00-8:00   下班提前5分钟为早退，上班晚5分钟为迟到。后勤部门都是白班

zhouxiao

楼主没有说明哪些部门是后勤部门,也没有说明哪些部门上中班和夜班.
按照自己的思路,把考勤的格式转换成了2维表.
剩下的由楼主自己去整理.
代码供参考

1. Sub 转换考勤格式()
   
2.     Dim Arr, Brr
   
3.     Arr = Sheet1.UsedRange
   
4.     ReDim Brr(1 To UBound(Arr) / 2 * UBound(Arr, 2), 1 To 7)
   
5.     Brr(1, 1) = "日期": Brr(1, 2) = "工号": Brr(1, 3) = "姓名": Brr(1, 4) = "部门": Brr(1, 5) = "上班": Brr(1, 6) = "下班": Brr(1, 7) = "部门性质"
   
6.     k = 2
   
7.     For i = 2 To UBound(Arr)
   
8.         If Arr(i, 1) = "工 号：" And Arr(i, 9) = "姓 名:" And Arr(i, 19) = "部 门:" Then
   
9.             s1 = Arr(i, 3)
   
10.             s2 = Arr(i, 11)
    
11.             s3 = Arr(i, 21)
    
12.         End If
    
13.         For j = 1 To UBound(Arr, 2)
    
14.             Brr(k, 1) = j
    
15.             Brr(k, 2) = s1
    
16.             Brr(k, 3) = s2
    
17.             Brr(k, 4) = s3
    
18.             Select Case s3
    
19.             Case "行政人事部", "卫生", "食堂", "安保", "供应部", "职能室", "维修工段"
    
20.                 Brr(k, 7) = "后勤部门"
    
21.             Case Else
    
22.                 Brr(k, 7) = "非后勤部门"
    
23.             End Select
    
24.             If (Arr(i + 1, j)) <> "" Then
    
25.                 If Split(Arr(i + 1, j), Chr(10))(0) < "12:00:00" Then
    
26.                 Brr(k, 5) = Split(Arr(i + 1, j), Chr(10))(0)
    
27.                 Else
    
28.                 Brr(k, 5) = 0
    
29.                 Brr(k, 6) = Split(Arr(i + 1, j), Chr(10))(0)
    
30.                 GoTo 100
    
31.                 End If
    
32.                 If (UBound(Split(WorksheetFunction.Replace(Arr(i + 1, j), Len(Arr(i + 1, j)), 1, ""), Chr(10)))) > 0 Then
    
33.                     Brr(k, 6) = Split(WorksheetFunction.Replace(Arr(i + 1, j), Len(Arr(i + 1, j)), 1, ""), Chr(10))(UBound(Split(WorksheetFunction.Replace(Arr(i + 1, j), Len(Arr(i + 1, j)), 1, ""), Chr(10))))
    
34.                 Else
    
35.                     Brr(k, 6) = 0
    
36.                 End If
    
37.             Else
    
38.                 Brr(k, 5) = 0
    
39.                 Brr(k, 6) = 0
    
40.             End If
    
41. 100:            k = k + 1
    
42.         Next
    
43.         i = i + 1
    
44.     Next
    
45.     Sheet2.[a1].Resize(UBound(Brr), UBound(Brr, 2)) = Brr
    
46. End Sub

复制代码

zhouxiao

附件供参考
06汇总表.rar (132.13 KB, 下载次数: 26)

2017-7-19 11:31 上传

点击文件名下载附件

静要爱学习

zhouxiao 发表于 2017-7-19 11:31
附件供参考

谢谢，看了您转换的，觉得正是我想改成的格式，不知道您有没有时间继续指导下，可以支付给您指导费用，每个月这么一个个看过去，挑出迟到早退，和出勤天数，很痛苦，您的代码看不明白，方便加我QQ吗？864251585