麻烦大神老师帮忙弄个考勤外出情况统计，非常感谢！

z3661000

记录建立在必须进、出均刷卡的情况下，计算出“出勤记录详情”表内每个人每月的中途外出次数。
1、首先去掉备注栏的重复记录，空白（正常）和无效记录保留，
2、时间在8:30-11：30之间和14:30-17:30之间出现设备名称栏下“闸道（出门）”的记录，求出与下一条记录“闸道（进门）”的时间间隔，
3、若只有“闸道（出门）”的记录，无“闸道（进门）”的记录，则外出时长，上午计算“闸道（出门）”的记录与11:30的时间间隔，下午计算“闸道（出门）”与17:30之间的间隔。
4、时间间隔大于10分钟，次数+1。


将计算出的次数，通过人员编号对应填入考勤汇总表。

以上是需求。

个人想法，上面第三点是不是可以直接忽略，把时间段调整为8:30-11：20之间和14:30-17:20之间，一旦出现设备名称栏下“闸道（出门）”的记录，求出与下一条记录的时间间隔，如果时间间隔大于10分钟，则次数+1。

yynrzwh

仅供参考
考勤表.zip (302.65 KB, 下载次数: 27)

2024-5-23 22:55 上传

点击文件名下载附件

z3661000

yynrzwh 发表于 2024-5-23 22:55
仅供参考

非常感谢！

usedrange

Sub t()
    Dim arr, brr(), crr, m%, r%, c%, dic, rr%, cc%
    Set dic = CreateObject("Scripting.Dictionary")
    With Sheets(1)
        m = .Range("a1").End(4).Row
        arr = .Range("a2").Resize(m, 8)
        r = 1: c = 8: rr = 2
        ReDim brr(1 To m, 1 To c)
        For i = 1 To m
            If arr(i, 7) <> "重复" Then
                For j = 1 To c
                    brr(r, j) = arr(i, j)
                Next j
                r = r + 1
            End If
        Next i
        For i = 1 To UBound(brr)
            If rr = m Then rr = i
            If brr(i, 8) <> "" Then
                    cm = Left(Split(brr(i, 8), "（")(1), 2)
            End If
            If cm = "出门" And brr(i, 2) = brr(rr, 2) Then
                t1 = FormatDateTime(brr(i, 4), 4)
                t2 = FormatDateTime(brr(rr, 4), 4)
                ti = DateDiff("s", t1, t2) / 60
                If t1 > "08:30" And t1 < "11:30" And ti >= 10 Then
                    dic(brr(i, 1) & "|" & brr(i, 2) & "|" & brr(i, 3)) = dic(brr(i, 1) & "|" & brr(i, 2) & "|" & brr(i, 3)) + 1
                End If
            End If
            rr = rr + 1
        Next
        Sheet1.[k1].Resize(UBound(brr), UBound(brr, 2)) = brr
        ReDim crr(1 To dic.Count, 1 To 4)
        cc = 1
        For Each k In dic.keys
            p = Split(k, "|")
            For i = 0 To UBound(p)
                crr(cc, i + 1) = p(i)
            Next i
            crr(cc, 4) = dic(k)
            cc = cc + 1
        Next k
        Sheet2.[f1].Resize(UBound(crr), UBound(crr, 2)) = crr
    End With
    Set dic = Nothing
End Sub

z3661000

yynrzwh 发表于 2024-5-23 22:55
仅供参考

您好，可以再请教下吗，
就是如果在现有的基础上，有次数，然后还需要计算出外出的时长，应该怎么改呢。就是上午8:30-11:30之间出去进来的时长，或者出去，未归，然后时间计算到出门时间至11:30的时长；下午14:30-17:30之间出去进来的时长，或者出去，未归，然后时间计算到出门时间至17:30的时长。
最后统计总次数和总时长。

yynrzwh

增加了离岗时长，修改了逻辑。
请自行仔细验证，结果不一定正确。
考勤表.zip (294.94 KB, 下载次数: 8)

2024-5-29 10:00 上传

点击文件名下载附件

z3661000

yynrzwh 发表于 2024-5-29 10:02
增加了离岗时长，修改了逻辑。
请自行仔细验证，结果不一定正确。

谢谢大神，我研究下

z3661000

yynrzwh 发表于 2024-5-29 10:02
增加了离岗时长，修改了逻辑。
请自行仔细验证，结果不一定正确。

发现上午9：00多有出门记录的，中途无进门记录，然后下午17:30之后出门记录，比如17:41出门，计算时长会算出-11.
应该是算出上午有2个半小时外出，下午是正常的。

yynrzwh

按照11：20,17:20计算的
要按11：30计算，你可以在代码中自己改。
代码开始定义了上下班时间。

z3661000

yynrzwh 发表于 2024-5-29 15:42
按照11：20,17:20计算的
要按11：30计算，你可以在代码中自己改。
代码开始定义了上下班时间。

上下班时间是改了的。没改之前时长算的是-21.
比如104号的这个5月16日的记录就是忽略上午的外出，直接算下午18:18下班，得出-48