☰

Показать и подсчитать записи в отфильтрованной таблице до сегодняшнего дня с помощью EXCEL VBA

tag-icon • tag-icon microsoft-excel vba
Показать и подсчитать записи в отфильтрованной таблице до сегодняшнего дня с помощью EXCEL VBA

как следует из заголовка, я пытаюсь использовать фильтр через 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

Когда я настраиваю фильтр вручную на рабочем листе, результаты просто отличные, но когда я настраиваю его таким образом, я получаю нулевые результаты.

Я в некотором замешательстве и был бы очень признателен за некоторые советы.

Спасибо!

решение1

Другой фильтр в рабочем листе не позволил фильтру даты отобразить правильный результат. Критерий CDbl(Date) сработал.

Связанный контент