使用 InputBox 按确切日期过滤工作表的 VBA 代码

Question

我们正在尝试让此代码按确切日期过滤工作表，但仍然无法弄清楚，有什么问题吗？日期在表格中格式化为 mm/dd/yyyy

Sub FilterDate()
    Dim ap, dt As Date, dt1 As Date, lr&: lr = ActiveSheet.UsedRange.SpecialCells(11).Row

    With ActiveSheet.[a1].CurrentRegion.Resize(lr, 10)
        ap = Application.InputBox("get date")
        dt = CDate(ap)
       .AutoFilter 10, "=" & dt
    End With
End Sub

File sample

感谢您指出声明问题，我在 excel 工具中进行了更改，但代码似乎有另一个问题，任何日期输入只留下第一行...

Answer 1

您缺少声明变量！使用 Option Explicit 将使您的生活更轻松，因为您无法在没有声明变量的情况下运行代码。

在 VBA 编辑器中转到：“工具”->“选项”->“Require Variable Declaration”。

Sub FilterDate()
    Dim ap As Date, dt As Date, dt1 As Date
    Dim lr As Long
    lr = ActiveSheet.UsedRange.SpecialCells(11).Row
    With ActiveSheet.[a1].CurrentRegion.Resize(lr, 10)
        ap = Application.InputBox("get date")
        dt = CDate(ap)
        'dt = CDate("2018-10-26")
        .AutoFilter 10, Criteria1:=">=" & dt, _
                     Operator:=xlAnd, Criteria2:="<" & dt + 1
    End With
End Sub

---

编辑：

是的，既然你有日期，你需要filter in an interval，而不是一个“=”标准（两个标准，你的日期在这两个标准之间），不要忘记制作一个标题，因为标题值总是存在（代码已更新）。以下示例的日期为 2018-10-26。