麻烦大家帮忙下，谢谢。

w385814726

想要做个考勤表，上班时间8点，下班时间17:00,17:00以后算加班，还要有个汇总，加班时长是多久，早退，迟到也要有，没有打卡，要显示未打卡，我用数据透视表做了下，但是做不出来，只能做到最大值和最小值，然后我也在站里搜索了，没有适合我这个打卡机的版本，谢谢各位大神。

3190496160

考勤问题本身就很复杂，还随便弄点数据上来，什么也看不懂哟，
请上传真实的表格，姓名可以随便用什么代替都行，

w385814726

本来就已经传了啊，就是那个数据啊。123这样的就是名字，然后是打卡时间和日期呢。

w385814726

3190496160 发表于 2020-12-5 14:09
考勤问题本身就很复杂，还随便弄点数据上来，什么也看不懂哟，
请上传真实的表格，姓名可以随便用什么代替 ...

你看下看，我这样传对不对了呀

3190496160

Sub kaoqin()
ks = "8:00:00"
js = "17:00:00"
With Sheets("1_attlog")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    .Range("c2:f" & r) = Empty
    ar = .Range("a1:f" & r)
    For i = 2 To UBound(ar)
        If Trim(ar(i, 2)) <> "" Then
            ar(i, 3) = Format(ar(i, 2), "yyyy/mm/dd")
            ar(i, 4) = Format(ar(i, 2), "h:mm:ss")
            If TimeValue(ar(i, 4)) > TimeValue(ks) And TimeValue(ar(i, 4)) < TimeValue("12:00:00") Then
                ar(i, 5) = "迟到"
            ElseIf TimeValue(ar(i, 4)) > TimeValue("12:00:00") And TimeValue(ar(i, 4)) < TimeValue(js) Then
                ar(i, 5) = "早退"
            ElseIf TimeValue(ar(i, 4)) > TimeValue(js) Then
                ar(i, 6) = Format(TimeValue(ar(i, 4)) - TimeValue(js), "h:mm:ss")
            End If
        End If
    Next i
    .Range("a1:f" & r) = ar
End With
End Sub

3190496160

3190496160

w385814726

3190496160 发表于 2020-12-5 15:32

你好，大神那这个未打卡还有加班到凌晨都没办法算时间哎，还有加班时间有没有个统计的办法，让加班时间直接统计完呢？