VBA 表过滤和刷新

Question

Manual choice使用我从互联网上修改的代码我已经正确过滤了我的表格日期，但是当单击按钮时，它不会显示任何结果，直到我在应用的过滤器 VBA 上手动单击确定，一旦我这样做它就会显示正确的结果我在这里错过了一个技巧吗？

Sub FilterListOrTableData()

    Dim ACell As Range
    Dim ActiveCellInTable As Boolean
    Dim FilterCriteria As String
    Dim Created As String
    Dim sToday As String
    Dim sStartDate As String
    Dim dStartDate As Date
    Dim sUpperBound, sLowerBound As String


    'Check to see if the worksheet is protected.
    If ActiveSheet.ProtectContents = True Then
        MsgBox "This macro will not work when the worksheet is write-protected.", _
               vbOKOnly, "Filter example"
        Exit Sub
    End If

    'Set a reference to the ActiveCell named ACell. You can always use
    'ACell now to point to this cell, no matter where you are in the workbook.
    Set ACell = ActiveCell

    'Test to see if ACell is in a table or list. Note that by using ACell.ListObject, you
    'don't need to know the name of the table to work with it.
    On Error Resume Next
    ActiveCellInTable = (ACell.ListObject.Name <> "")
    On Error GoTo 0

    'If the cell is in a list or table, run the code.
    If ActiveCellInTable = True Then
        'Show all data in the table or list.
        On Error Resume Next
        ActiveSheet.ShowAllData
        On Error GoTo 0

        'This example filters on the first column in the List/Table
        '(change the field if needed). In this case the Table starts
        'in A so Field:=1 is column A, field 2 = column B, ......
        'Use "<>" & filtercriteria if you want to exclude the criteria from the filter.
        'FilterCriteria = InputBox("What text do you want to filter on?", _
                           '       "Type in the filter item.")
      '  ACell.ListObject.Range.AutoFilter _
              '  Field:=1, _

             '  Criteria1:="=" & FilterCriteria
             'This example filters on the ActiveCell value.
'ACell.ListObject.Range.AutoFilter _
 '   Field:=ACell.Column - ACell.ListObject.Range.Cells(1).Column + 1, _
  '  Criteria1:="=" & ACell.Text

    sToday = Date
    dStartDate = DateValue(Date) - 7
    sStartDate = Str(dStartDate)

    sLowerBound = ">=" + sStartDate
    sUpperBound = "<=" + sToday

    ACell.ListObject.Range.AutoFilter Field:=89, Criteria1:=sLowerBound, _
    Operator:=xlOr, Criteria2:=sLowerBound

    ActiveWorkbook.RefreshAll

    'Else
       ' MsgBox "Select a cell in your list or table before you run the macro.", _
               'vbOKOnly, "Filter example"
    End If

End Sub

这是我执行手动选项时宏记录的内容：

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveSheet.ListObjects("FTLOG").Range.AutoFilter Field:=84, Criteria1:= _
        ">=29/11/2016", Operator:=xlOr, Criteria2:=">=29/11/2016"
End Sub

Answer 1

这行得通：

Option Explicit

Public Sub TestMe()

    Dim dToday          As Date: dToday = Date
    Dim dStartDate      As Date: dStartDate = Date - 7
    Dim dEndDate        As Date: dEndDate = Date

    Dim sLowerBound     As String
    Dim sUpperBound     As String

    dToday = Format(dToday, "dd/mm/yyyy")
    dStartDate = Format(dStartDate, "dd/mm/yyyy")
    dEndDate = Format(dEndDate, "dd/mm/yyyy")

    sLowerBound = ">=" & CLng(dStartDate)
    sUpperBound = "<=" & CLng(dToday)

    ActiveSheet.Range("$A$1:$B$6").AutoFilter Field:=2, Criteria1:=sLowerBound, Operator:=xlOr, Criteria2:=sUpperBound

End Sub

Answer 2

问题在于逻辑而不是AutoFilter

---

xlOR 将显示所有符合条件之一的记录

案例 1： 显示此记录，因为条件 2 为真

• 条件 1：1/1/2016>=2/1/2016：错误
• 条件 2：1/1/201612/6/2016：真

案例 2：显示这条记录，因为条件 1 和条件 2 为真

• 条件 1：7/31/2016>=2/1/2016：真
• 条件 2：7/31/201612/6/2016：真

案例 3：显示此记录，因为条件 1 和条件 2 为真

• 条件 1：7/31/2016>=2/1/2016：真
• 条件 2：7/31/201612/6/2016：真

案例 3：显示此记录，因为条件 2 为真

• 条件 1：12/31/2016>=2/1/2016：真
• 条件 2：12/1/201612/6/2016：真

---

xlAND 将显示满足所有条件的所有记录

案例 1：隐藏此记录，因为条件 1 为 False

• 条件 1：1/1/2016>=2/1/2016：错误
• 条件 2：1/1/201612/6/2016：真

案例 2：显示这条记录，因为条件 1 和条件 2 为真

• 条件 1：7/31/2016>=2/1/2016：真
• 条件 2：7/31/201612/6/2016：真

案例 3：隐藏此记录，因为条件 2 为 False

• 条件 1：7/31/2016>=2/1/2016：真
• 条件 2：7/31/201612/6/2016：真

案例 3：显示此记录，因为条件 2 为真

• 条件 1：12/31/2016>=2/1/2016：真
• 条件 2：12/1/201612/6/2016：真

---

Sub FilterOr()
    Range("$A$5:$F$8").AutoFilter Field:=2, Criteria1:= _
        ">=" & Range("StartDate"), Operator:=xlOr, Criteria2:="<=" & Range("Today1")
End Sub

Sub FilterAnd()
    Range("$A$5:$F$8").AutoFilter Field:=2, Criteria1:= _
        ">=" & Range("StartDate"), Operator:=xlAnd, Criteria2:="<=" & Range("Today1")
End Sub