求助大神：考勤统计求助，提取正确考勤时间，谢谢

xxxxxsplider

签到/签退时间	是否正常	考勤
07:36     07:48     13:48	07:36     13:48	正常
05:57     14:03	05:57	异常
07:33     08:45     13:32     14:32	07:33     13"32	正常

如图，早上8点后签到为迟到，下午签到时间为13.30-14.00，在B列提取出上下午各在有效时间段内的一次签到记录即可，舍弃不在规定时间内的记录，以及多余的有效记录。

yewenfeng

你看一下

Option Explicit


Public Function 时间(ss As Variant, Optional sss As Boolean = True)
Dim sz As Variant, i As Integer, zhi1 As String, zhi2 As String
sz = Split(ss, Chr(10))

'早上8点后签到为迟到
For i = 0 To UBound(sz)
If Len(sz(i)) = 5 Then
        If TimeValue(sz(0)) < TimeValue("08:00") Then
        zhi1 = sz(0)
        zhi2 = "正常"
        Else

        zhi2 = "迟到"

        End If

        If TimeValue(sz(i)) > TimeValue("13:30") And TimeValue(sz(i)) < TimeValue("14:00") Then

        zhi1 = zhi1 & sz(i)

        Exit For
        Else
         zhi2 = "异常"
        End If
End If
Next
If sss Then
时间 = zhi1
Else
时间 = zhi2
End If


End Function

yewenfeng

附件上传在这里

tptopy

很难想象，考勤表能记录成这个模样

xxxxxsplider

yewenfeng 发表于 2018-11-6 18:01
附件上传在这里

谢谢大神指导！！！非常感谢

jiayan12345

xxxxxsplider 发表于 2018-11-10 16:04
谢谢大神指导！！！非常感谢

你好，请问你明白大师的操作？我看不懂

lusa

感谢大神，非常感谢