按當前日期過濾數據

我的數據可追溯到2010年，並持續到2029年。我想創建一個過濾數據的宏，只包括今天的日期和轉發。按當前日期過濾數據

我通過排除所有日期直到今天希望它能給我一個開始的好地方而記錄了下面的宏，但我仍然很迷茫。

爲了使它更加複雜，我沒有每一個可用的日期，所以在當前日期使用變量將不會總是有效。所以我想我需要宏在今天的日期之前排除一切。

感謝您的幫助，我真的迷失了，需要很多。

Sub Macro1() 

    Sheets("Consulta_Lastro").Range("$B$4:$T$9047").AutoFilter Field:=4, Operator:= _ 
    xlFilterValues, Criteria2:=Array(0, "7/10/2029", 0, "12/20/2028", 0, "12/20/2027", _ 
    0, "12/20/2026", 0, "12/20/2025", 0, "12/20/2024", 0, "12/20/2023", 0, "12/20/2022", 0, _ 
    "12/20/2021", 0, "12/22/2020", 0, "12/22/2019", 0, "12/30/2018", 0, "12/30/2017", 0, _ 
    "12/30/2016", 1, "2/28/2015", 1, "3/31/2015", 1, "4/30/2015", 1, "5/30/2015", 1, _ 
    "6/30/2015", 1, "7/31/2015", 1, "8/31/2015", 1, "9/30/2015", 1, "10/30/2015", 1, _ 
    "11/30/2015", 1, "12/30/2015") 
End Sub

來源

2015-02-10 New2VBA

試試這個：

Sheets("Consulta_Lastro").Range("$B$4:$T$9047").AutoFilter _ 
    Field:=4, Criteria1:=">=" & Date

這將只顯示日期大於或等於今天的日期。 HTH。

來源

2015-02-10 22:49:48 L42

按當前日期過濾數據

回答

相關問題