VBA日期范围内筛选

ahaoge

完整代码,见附件

LWY003

ahaoge 发表于 2022-10-5 16:41
完整代码,见附件

非常感谢老师的回复，我现在下载试试，真的不胜感激！

ykcbf1100

多条件筛选（所有条件均可为空，为空时为全部记录，可模糊筛选）

ykcbf1100

1. Sub ykcbf5()  '//2025.3.19   多条件筛选,可模糊筛选
   
2.     With Sheets("Sheet1")
   
3.         rq1 = Format(.[d3].Value, "yyyy/m/d"): rq2 = Format(.[e3].Value, "yyyy/m/d")
   
4.         tj1 = .[f3].Value: tj2 = .[g3].Value
   
5.         r = .Cells(Rows.Count, 1).End(3).Row
   
6.         Set Rng = .Range("a5:h" & r)
   
7.         If .FilterMode = True Then .ShowAllData     '//取消筛选状态
   
8.         If rq1 = Empty And rq2 <> Empty Then Rng.AutoFilter Field:=8, Criteria1:="<=" & rq2
   
9.         If rq1 <> Empty And rq2 = Empty Then Rng.AutoFilter Field:=8, Criteria1:=">=" & rq1
   
10.         If rq1 <> Empty And rq2 <> Empty Then Rng.AutoFilter Field:=8, Criteria1:=">=" & rq1, Operator:=xlAnd, Criteria2:="<=" & rq2
    
11.         If tj1 <> Empty Then Rng.AutoFilter Field:=2, Criteria1:="*" & tj1 & "*", Operator:=xlFilterValues
    
12.         If tj2 <> Empty Then Rng.AutoFilter Field:=7, Criteria1:="*" & tj2 & "*", Operator:=xlFilterValues
    
13.         .FilterMode = False
    
14.     End With
    
15. End Sub

复制代码

LWY003

ykcbf1100 发表于 2025-3-19 20:51

感恩老师的回复，一日为师终身为师！在我心中您永远是我的启蒙导师！不胜感激！