同时对多列进行筛选

dajiaolaotai

各位前辈，附件里的表，需要筛选出D列或E列时间在23:30:00到23:59:59的内容。但是E列多一个条件，就是当E列在该时间段内同时D列时间应小于10:00:00，谢谢各位前辈了，VBA的
考勤机出来的时间格式是“'23:00:00”,前面有个英文格式的单引号

LIUZHU

到底是筛选什么，是F列，还是D列？

office8424

新建一个表格
复制粘贴代码您看看
Sub aa()
With Sheets("sheet1")
For i = 1 To .[a65536].End(3).Row
If (.Cells(i, 4).Value < #11:30:00 PM# And .Cells(i, 4).Value <= #11:59:59 PM#) Or (.Cells(i, 6).Value < #11:30:00 PM# And .Cells(i, 6).Value <= #11:59:59 PM#) Then
If (.Cells(i, 6).Value < #11:30:00 PM# And .Cells(i, 6).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

dajiaolaotai

LIUZHU 发表于 2014-5-4 08:52
到底是筛选什么，是F列，还是D列？

同时筛选两列，这是个签到表，有人晚上23点30才第一次签到信息在D列，有人早上8点多刚下班签过一次到，签到了D列，晚上23点30第二次签到上班，信息在F列

dajiaolaotai

office8424 发表于 2014-5-4 08:59
新建一个表格
复制粘贴代码您看看
Sub aa()

前辈，不可以啊，运行没有结果，

dajiaolaotai

dajiaolaotai 发表于 2014-5-4 09:22
同时筛选两列，这是个签到表，有人晚上23点30才第一次签到信息在D列，有人早上8点多刚下班签过一次到，签 ...

前辈，我错了，不是F列，是E列

dajiaolaotai

LIUZHU 发表于 2014-5-4 08:52
到底是筛选什么，是F列，还是D列？

前辈，我错了，是D列和E列，不是F列，考勤机出来的时间格式是“'23:00:00”,前面有个英文格式的单引号

office8424

新建一个表格
复制粘贴代码您看看
Sub aa()
With Sheets("sheet1")
For i = 1 To .[a65536].End(3).Row
If (.Cells(i, 4).Value < #11:30:00 PM# And .Cells(i, 4).Value <= #11:59:59 PM#) Or (.Cells(i, 6).Value < #11:30:00 PM# And .Cells(i, 6).Value <= #11:59:59 PM#) Then
If (.Cells(i, 6).Value < #11:30:00 PM# And .Cells(i, 6).Value <= #11:59:59 PM#) And .Cells(i, 4).Value < #10:00:00 AM# ThenCells([a65536].End(3).Row + 1, 1).Resize(1, 10) = .Range("A" & i & ":J" & i).Value
End If
End If
Next
End With
End Sub
你在红色里面改,出现cells(i,6)就是F列,相应改成cells(i,5)就可以了
最好把你的要求重新说下我已经凌乱了

dajiaolaotai

office8424 发表于 2014-5-4 09:45
新建一个表格
复制粘贴代码您看看
Sub aa()

这个是我们考勤机出来的，三班倒，有人晚上23点30第一次上班考勤，信息在D列是当天第一次打卡，有人早上8点多第一次打卡时下班，信息在D列，晚上23点30又上班了，为当天第二次打卡信息在E列。其实目的就是要筛选晚上23点30打卡上班的人

dajiaolaotai

office8424 发表于 2014-5-4 09:45
新建一个表格
复制粘贴代码您看看
Sub aa()

Sub aa()
With Sheets("sheet1")
For i = 1 To .[a65536].End(3).Row
If (.Cells(i, 4).Value > "'" & "23:30:00" And .Cells(i, 4).Value <= "'" & "23:59:59") Or (.Cells(i, 5).Value > "'" & "23:30:00" And .Cells(i, 5).Value <= "'" & "23:59:59") Then
If (.Cells(i, 5).Value > "'" & "23:30:00" And .Cells(i, 5).Value <= "'" & "23:59:59") And .Cells(i, 4).Value < "'" & "10:00:00" 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
我这样改的，为的就是加上那个单引号，可是不出结果了