用时间做筛选

sj15627581616

想做一个一键筛选宏，筛选时间大于等于9：00 小于等于18：00的相关数据，关于时间类相关代码研究得比较少，得请老师们出马了


Sub Macro1()
    Selection.AutoFilter
    Cells(1, 5).AutoFilter Field:=1, Criteria1:=">=" & "2020/02/10 9:00:00", Criteria2:="<=" & "2020/02/10 18:00:00"

End Sub

以上代码是从录制宏结合查找的资料得出的，但还有一个缺陷，我不需要带有日期的条件，只要24小时的时间作为条件如“9：00：00”这样的，但是这种写法貌似不成立，请老师指点

chxw68

1. Sub test()
   
2.   Dim r&, i&
   
3.   Dim arr, brr
   
4.   With Worksheets("sheet1")
   
5.     r = .Cells(.Rows.Count, 5).End(xlUp).Row
   
6.     arr = .Range("e2:e" & r)
   
7.     ReDim brr(1 To UBound(arr), 1 To 1)
   
8.     m = 0
   
9.     For i = 1 To UBound(arr)
   
10.       If TimeValue(arr(i, 1)) >= #9:00:00 AM# And TimeValue(arr(i, 1)) <= #6:00:00 PM# Then
    
11.         m = m + 1
    
12.         brr(m, 1) = arr(i, 1)
    
13.       End If
    
14.     Next
    
15.     .Range("f2").Resize(m, 1) = brr
    
16.   End With
    
17.       
    
18. End Sub
    

复制代码

chxw68

详见附件。

sj15627581616

chxw68 发表于 2020-2-12 09:33

谢谢老师，不过我想做的是筛选效果，这样把数据提到另一边在关闭时还要进行删除，且当表格列数内容过多会影响内容阅读，不过老师提供TimeValue这个函数倒是解决了我大部分问题，可以通过隐藏获得与筛选一样的效果，但取消隐藏又得操作一次不能像筛选一样快捷取消

sj15627581616

chxw68 发表于 2020-2-12 09:33
详见附件。

Sub aD()
r = Cells(Rows.Count, 5).End(3).Row
For i = 2 To r
If TimeValue(Cells(i, 5)) >= #9:00:00 AM# And TimeValue(Cells(i, 5)) <= #6:00:00 PM# Then
Rows(i).EntireRow.Hidden = False
Else
Rows(i).EntireRow.Hidden = True
End If
Next
End Sub
这是个人的一种思路，但是取消隐藏还要一次操作或再弄一个取消隐藏的宏，操作上会比筛选多那么点，所以看能不能修改成筛选功能，那样再按一下组合键就完事了

sj15627581616

有没有大佬知道的，求帮

YZC51

建立辅助列，然后筛选！

sj15627581616

YZC51 发表于 2020-2-13 08:39
建立辅助列，然后筛选！

强迫症患者，如果是这样的话，在数据建立时我直接拆分成两组数据就可以了，按日期拆分一组，时间拆分一组，只是单纯的看有没有一次性的解决方法，无视日期只用时间作为筛选也不知道有那没有那操作，反正网上没有找到类似的资料

YZC51

sj15627581616 发表于 2020-2-13 14:07
强迫症患者，如果是这样的话，在数据建立时我直接拆分成两组数据就可以了，按日期拆分一组，时间 ...

感觉筛选是按照整个单元格内容筛选的

YZC51

请参考
http://club.excelhome.net/thread-1378837-1-1.html