【发布时间】:2018-11-27 13:24:23
【问题描述】:
我想制作宏,按日期过滤表。一切正常,只是过滤后不显示数据。但是当我手动查看该列时,过滤器设置是正确的,单击“确定按钮”后将显示数据。下面是我的代码。感谢您的帮助:)
Sub Filter ()
Dim myDate As Date
myDate= InputBox("Your date? (Format 00.00.0000)")
Range("C1").AutoFilter
Range("C1").AutoFilter Field:=3, Criteria1:=">=01.01.2018", _
Criteria2:="<=" & myDate
'I also tried "Format([myDate], "dd-mm-yyyy")"
End sub
【问题讨论】:
-
Ashleedawg,感谢您的帮助。现在它工作正常:)