日期范围过滤器VBA

如何使下面的过滤器工作？报告每周生成一次，用户只需输入开始和结束日期。必须根据用户提供的值应用过滤器

我录制了一个宏，得到的代码是

ActiveSheet.Range("$A$1:$C$29663").AutoFilter Field:=1, Criteria1:= _
    ">=5/14/2018", Operator:=xlAnd, Criteria2:="<=5/18/2018"

上面的语句是抛出错误

日期值为2018年5月14日和2018年5月19日

字段中的示例值

5/1/2018
5/1/2018
5/1/2018
5/1/2018
5/1/2018
5/1/2018

（格式为短日期）

试试看

with ActiveSheet.Range("A1:C99999")
    .AutoFilter Field:=1, Operator:=xlAnd, _
                Criteria1:=">="&format(Worksheets("Sheet1").Range("B3").Value, "mm/dd/yyyy") _
                Criteria2:="<="&format(Worksheets("Sheet1").Range("B4").Value, "mm/dd/yyyy")
end with

带有ActiveSheet.Range（“A1:C99999”）的

.自动筛选字段：=1，运算符：=xlAnd_
标准1:=“>=”&格式（工作表（“表1”）.范围（“B3”）.值，“mm/dd/yyyy”）_
准则2:=“正确筛选到之间，但不采用日期。我的日期的格式为mm/dd/yyyy，范围为（“B3”）请尝试上面的编辑。如果这不能解决您的问题，请编辑您的问题，以包括示例数据和预期结果。提示：我不愿意从图像中重新键入数据。它起作用了。我只需将格式更改为m/dd/YYYY。如果您筛选表或范围？表，则忽略其他列。筛选器将应用于第一行。
with ActiveSheet.Range("A1:C99999")
    .AutoFilter Field:=1, Operator:=xlAnd, _
                Criteria1:=">="&format(Worksheets("Sheet1").Range("B3").Value, "mm/dd/yyyy") _
                Criteria2:="<="&format(Worksheets("Sheet1").Range("B4").Value, "mm/dd/yyyy")
end with