☰

透過 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（日期）標準有效。

相關內容