宏中的特定日期过滤器

Question

以下是我在2014年2月1日至10月20日期间的特定日期过滤器代码。 我没有得到运行时错误，但它从01-01-2018过滤到18-02-2018。

我有一个A到P列，n个行没有日期在J列

$(document).ready(function () {
      $('.next').on('click', function () {
        var currentImg = $('.active');
        var nextImg = currentImg.next();

        if (nextImg.length) {
          currentImg.removeClass('active').css('z-index', -10);
          nextImg.addClass('active').css('z-index', 10);
        }
      });

      $('.prev').on('click', function () {
        var currentImg = $('.active');
        var prevImg = currentImg.prev();

        if (prevImg.length) {
          currentImg.removeClass('active').css('z-index', -10);
          prevImg.addClass('active').css('z-index', 10);
        }
      });
    });

Answer 1

请检查我们在此处所做的更改：

Sub Date_Filter()
   Dim WeekS As Date
   Dim WeekE As Date


   WeekS = DateSerial(2018, 2, 1)
   WeekE = DateSerial(2018, 2, 10)
   With Range("A1:P1")
        .AutoFilter
        .AutoFilter Field:=10, Criteria1:=">=" & WeekS, Operator:=xlAnd, Criteria2:="<=" & WeekE
    End With
End Sub

我们使用 DateSerial（）来避免美国和欧洲日期标准之间的任何混淆。