同时对多列进行筛选

office8424

dajiaolaotai 发表于 2014-5-4 10:27
Sub aa()
With Sheets("sheet1")
For i = 1 To .[a65536].End(3).Row

单引号为的是使其变成文本格式,不用那么纠结这个问题,直接用#时间#就可以了,你这样改出现这个问题
单元格显示是23:30:41而你的查询显示'23:30:41,显然不可能查到!!

dajiaolaotai

office8424 发表于 2014-5-4 10:33
单引号为的是使其变成文本格式,不用那么纠结这个问题,直接用#时间#就可以了,你这样改出现这个问题
单元格 ...

Sub aa()
With Sheets("sheet1")
For i = 1 To .[a65536].End(3).Row
If (.Cells(i, 4).Value > #11:10:00 PM# And .Cells(i, 4).Value <= #11:59:59 PM#) Or (.Cells(i, 5).Value > #11:10:00 PM# And .Cells(i, 5).Value <= #11:59:59 PM#) Then
If (.Cells(i, 5).Value > #11:10:00 PM# And .Cells(i, 5).Value <= #11:59:59 PM#) And .Cells(i, 4).Value < #10:00:00 AM# Then
Cells([a65536].End(3).Row + 1, 1).Resize(1, 10) = .Range("A" & i & ":J" & i).Value
End If
End If
Next
End With
End Sub
用了这个代码，确实可以查出来，但是结果是
浮选车间        范建东        2014/4/15        8:24:51        23:20:35
尾煤        韩秀芝        2014/4/15        8:36:26        23:13:00
尾煤        陈淑龙        2014/4/15        8:14:55        23:13:32
尾煤        薛国平        2014/4/15        8:41:27        23:19:02
尾煤        任勇杰        2014/4/15        8:38:45        23:21:35
重介        卫胜兵        2014/4/15        8:34:41        23:10:20
重介        张贵山        2014/4/15        8:57:03        23:13:04
重介        陈记元        2014/4/15        8:30:59        23:17:41
重介        田新丽        2014/4/15        8:39:04        23:17:45
浮选        胡瑞婧        2014/4/15        8:45:10        23:20:26
浮选        王双双        2014/4/15        8:45:20        23:20:30
浮选        梁勇丽        2014/4/15        8:51:29        23:20:20
浮选        张晋明        2014/4/15        8:46:03        23:12:13
浮选        樊智会        2014/4/15        8:45:44        23:26:47
干燥        张志愿        2014/4/15        8:30:41        23:12:17
干燥        张金华        2014/4/15        8:30:49        23:12:32
只出了E列的查询结果，D列没有出？

office8424

dajiaolaotai 发表于 2014-5-4 10:59
Sub aa()
With Sheets("sheet1")
For i = 1 To .[a65536].End(3).Row

我明白的你意思了
能否详细点,上班下班的打卡时间段写下!!!
时间段怎么打卡算一个班次
第一次打卡几点到几点
第二次打卡几点到几点
第三次打卡几点到几点
第四次打卡几点到几点
我以前做过考勤了解点这个

dajiaolaotai

office8424 发表于 2014-5-4 12:25
我明白的你意思了
能否详细点,上班下班的打卡时间段写下!!!
时间段怎么打卡算一个班次

前辈，这个是之前我已经做好交了的，只统计了D列即当天第一次考勤的人，使用中发现有人晚上23点30上班考勤是当天第一次打卡，信息在D列，有人是第二次打卡，信息在E列。
每天上班打卡时间是分三次，
07:30:00到08:00:00上班打卡的，16:00:00到16:30:00下班打卡
15:30:00到16:00:00上班打卡的，24:00:00到00:30:00下班打卡
23:30:00到24:00:00上班打卡的，08:00:00到08:30:00下班打卡，
现在就是要把夜班的单独做一次筛选，把详单拉出来，我原来是把信息复制到“结果”这张工作表中了，前辈辛苦辛苦

office8424

dajiaolaotai 发表于 2014-5-4 15:24
前辈，这个是之前我已经做好交了的，只统计了D列即当天第一次考勤的人，使用中发现有人晚上23点30上班考勤 ...

我拿我车间的考勤系统打个比方，不知道你这里有没有排班的如果没有最好进行排班！我是否只要筛选出符合三个班次上班下班的打卡时间就可以了？

office8424

所有打卡记录都出来，用这个可以参照！！！
Function aa(aa1)
If aa1 >= #7:30:00 AM# And aa1 <= #8:00:00 AM# Then
ab = "A"
If aa1 >= #3:30:00 PM# And aa1 <= #4:00:00 PM# Then
ab = "B"
If aa1 >= #11:30:00 PM# And aa1 <= #12:00:00 PM# Then
ab = "C"
Else
ab = 0
End If
End If
End If
End Function
Function bb(bb1)
If bb1 >= #4:00:00 PM# And bb1 <= #4:30:00 PM# Then
ab = "a"
If bb1 >= #12:00:00 PM# And bb1 <= #12:30:00 PM# Then
ab = "b"
If bb1 >= #8:00:00 AM# And bb1 <= #8:30:00 AM# Then
ab = "c"
Else
ab = 0
End If
End If
End If
End Function
Sub aaaa()
On Error Resume Next
For i = 1 To [a65536].End(3).Row
For j = 4 To Cells(i, 4).End(2).Column
aaa = aaa & " " & aa(Cells(i, j).Value)
bbb = bbb & " " & bb(Cells(i, j).Value)
Next j
If (InStr(1, aaa, "A") Or InStr(1, aaa, "B") Or InStr(1, aaa, "C")) And (InStr(1, bbb, "a") Or InStr(1, bbb, "b") Or InStr(1, bbb, "c")) Then
Cells(i, 14).Value = "打卡正常"
Else
Cells(i, 14).Value = "打卡不正常"
aaa = ""
bbb = ""
End If
Next i
End Sub

dajiaolaotai

office8424 发表于 2014-5-4 17:30
所有打卡记录都出来，用这个可以参照！！！
Function aa(aa1)
If aa1 >= #7:30:00 AM# And aa1 = #3:30:0 ...

哇，好崇拜，我先试试，研究研究

jmisnis

不错就是没看懂，大声都部上附件的？