出勤表统计

shinkeyme

出勤表.rar (1.75 KB, 下载次数: 32)

2013-2-24 19:09 上传

点击文件名下载附件

麻烦各位高手帮忙看看这个出勤表怎么统计需求项目？谢谢了！

lzqlaj

附件在哪儿？

shinkeyme

lzqlaj 发表于 2013-2-24 19:45
附件在哪儿？

上传了麻烦帮忙看看

lzqlaj

Private Sub CommandButton1_Click()
    Dim hs1, hs2, w, ks1, s2
    hs1 = Range("A65536").End(xlUp).Row
    hs2 = Range("K65536").End(xlUp).Row
    For w = 2 To hs2
        s1 = 0: s2 = 0
        For k = 2 To hs1
            If Cells(k, 1) = Cells(w, 11) Then
                If Format(Cells(k, 3), "hh:mm:ss") > Format("8:00:00", "hh:mm:ss") Then
                    s1 = s1 + 1
                End If
            End If
            If Cells(k, 1) = Cells(w, 11) Then
                If Format(Cells(k, 4), "hh:mm:ss") < Format("20:00:00", "hh:mm:ss") Then
                    s2 = s2 + 1
                End If
            End If
        Next k
        Cells(w, 12) = s1
        Cells(w, 13) = s2
    Next w
End Sub

lzqlaj

姓名添加后自动统计。见附件。。

shinkeyme

lzqlaj 发表于 2013-2-25 10:20
Private Sub CommandButton1_Click()
    Dim hs1, hs2, w, ks1, s2
    hs1 = Range("A65536").End(xlUp ...

高手！谢了！