[英]Date Filter - Month & Year
使用Criteria1和Criteria2设置日期范围。
dim dt as long
dt = datevalue("1 " & mnth & ", " & yr)
with activesheet
with .range(.cells(1, "A"), .cells(.rows.count, "A").end(xlup))
.autofilter field:=1, criteria1:=">="&dt, operator:=xland, _
criteria2:="<" & dateserial(year(dt), month(dt)+1, 1)
end with
end with
如果记录日期值自动过滤器的设置,则会得到:
Sub DateFiter_Recorded()
'
' DateFiter_Recorded Macro
'
Columns("C:C").ColumnWidth = 16.29
ActiveSheet.Range("A1:A3200").AutoFilter Field:=1, Operator:= _
xlFilterValues, criteria2:=Array(1, "2/4/2019")
ActiveWindow.SmallScroll Down:=153
Range("C194").Select
End Sub
基于此,很容易编写代码并测试例程以设置过滤器:
Option Explicit
Sub SetDateValueRange()
ActiveWorkbook.Names.Add Name:="DateValRange", RefersTo:="=Sheet1!A1:A3200"
End Sub
Sub DateFiter_JAN_2019()
ActiveSheet.Range("DateValRange").AutoFilter Field:=1, Operator:= _
xlFilterValues, criteria2:=Array(1, "1/31/2019")
End Sub
Sub DateFiter_FEB_2019()
Dim criteria2value
criteria2value = Array(1, "2/15/2019")
ActiveSheet.Range("DateValRange").AutoFilter Field:=1, Operator:= _
xlFilterValues, criteria2:=criteria2value
End Sub
Sub DateFiter_AUG_2019()
Dim criteria2value
criteria2value = Array(1, "8/1/2018")
ActiveSheet.Range("DateValRange").AutoFilter Field:=1, Operator:= _
xlFilterValues, criteria2:=criteria2value
End Sub
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.