VBA Autofilter - 过滤掉比今天更旧的所有内容答案

【问题标题】：VBA Autofilter - filter out everything that is older than todayVBA Autofilter - 过滤掉比今天更旧的所有内容
【发布时间】：2020-04-08 17:24:57
【问题描述】：

我有一些未来的数据，一旦这些数据根据昨天的日期变得过时，我需要过滤掉这些数据。我使用宏记录查看 ho 以按日期过滤掉，并使用代码制作了一个小脚本。

问题是，当我自己从宏运行代码时，所有数据都被过滤掉了，而不是过时的。

     Dim WS_Count As Integer
     Dim I As Integer

     ' Set WS_Count equal to the number of worksheets in the active
     ' workbook.
     WS_Count = ActiveWorkbook.Worksheets.Count

     ' Begin the loop.
     For I = 1 To WS_Count

        ' Insert your code here.
        ' The following line shows how to reference a sheet within
        ' the loop by displaying the worksheet name in a dialog box.
        Set ws = ActiveWorkbook.Worksheets(I)
        A1 = ws.Range("A1").Value
        If (InStr(A1, "HEDGE POSITION") <> 0) And ws.AutoFilterMode = True Then

            Dat = CStr(Date - 1)
            datt = ">" & Dat
            MsgBox datt
            ws.Range("$A$4:$P$40").AutoFilter Field:=12, Criteria1:= _
            datt, Operator:=xlAnd
        End If

     Next I

所以这是宏记录器记录的代码。当我自己运行它时它不起作用（所有数据都消失了）

ActiveSheet.Range("$A$4:$P$40").AutoFilter Field:=12, Criteria1:= _
    ">16/12/2019", Operator:=xlAnd

编辑：

我注意到如果不是写“16/12/2020”而是写“12/16/2020”（交换月份和日期的位置），它会起作用

但我从 VBA 的日期函数中获取日期，并且我的日期格式为“日/月/年”。所以它应该符合 VBA 的 Date() 中的日期格式。

任何想法如何解决这个问题？

【问题讨论】：

由于本地设置带来的问题，通常会使用Long 数据类型来过滤日期。正如您所注意到的，过滤器本来希望使用特定格式。

标签： excel vba filter autofilter

【解决方案1】：

使用格式求解，[Dat = Format(Date, "mm/dd/yy")]：

     Dim WS_Count As Integer
     Dim I As Integer

     ' Set WS_Count equal to the number of worksheets in the active
     ' workbook.
     WS_Count = ActiveWorkbook.Worksheets.Count

     ' Begin the loop.
     For I = 1 To WS_Count

        ' Insert your code here.
        ' The following line shows how to reference a sheet within
        ' the loop by displaying the worksheet name in a dialog box.
        Set ws = ActiveWorkbook.Worksheets(I)
        A1 = ws.Range("A1").Value
        If (InStr(A1, "HEDGE POSITION") <> 0) And ws.AutoFilterMode = True Then


            Dat = Format(Date, "mm/dd/yy")

            datt = ">" & Dat

            ws.Range("$A$4:$P$40").AutoFilter Field:=12, Criteria1:= _
            datt, Operator:=xlAnd
        End If

     Next I

【讨论】：