正如标题所述,我正在尝试通过 VBA 使用过滤器来隐藏过滤表中的所有日期条目,这些条目将在未来进行计数,但我尝试过的任何方式都无法使用代码。
我目前的做法如下:
Dim wbkPlanning As Workbook
Dim wksPlanning As Worksheet
Dim FilterValue as Integer
Workbooks.Open (.... Some Path...) 'this works as i have several other Autofilters in this macro that do the job just fine)
Set wbkPlanning = Workbooks("NAMEOFWORKBOOK.xlsx")
Set wksPlanning = wbkPlanning.Worksheets("NameOfWorksheet")
wksPlanning.Range("$A$4:$AS$600").AutoFilter Field:=24, Criteria1:="=<" & CDbl(Date)
FilterValue = wksPlanning.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count - 1
MsgBox FilterValue
当我在工作表中手动设置过滤器时,结果很好,但是当我这样设置时,我得到零结果..
我有点难过,非常感谢一些提示。
谢谢!
工作表中的不同过滤器阻止日期过滤器显示正确的结果。CDbl(Date) 标准有效。