Question

我有一个日期列，我必须从中获取记录，这些记录将在上个月的第一天和当月的第一天之间。我写了下面的代码，但我没有得到如何在过滤器中应用它。

premier_jour_lt_fixed = DateSerial(Year(Date), Month(Date) - 1, 1)
dernier_jour_lt_fixed = DateSerial(Year(Date), Month(Date), 1)
 With Worksheets("sheet1")
        .AutoFilterMode = False
        .Range("A1:R100000").Select
        Selection.AutoFilter

    Worksheets("sheet1").Range("O1").AutoFilter Field:=15, Criteria1:="<" & dernier_jour_lt_fixed And ">" & premier_jour_lt_fixed, Operator:=xlAnd
    Worksheets("sheet1").Range("C1").AutoFilter Field:=3, Criteria1:="resname", Operator:=xlAnd

如果我应该应用if else循环，或者我可以直接将值放在过滤器中，我很困惑。显然我放入过滤器的那个是错的。如果有人知道请帮助，我怎么能把它放在过滤器中。

Answer 1

使用Criteria2方法的AutoFilter参数：

Worksheets("general_report").Range("O1").AutoFilter Field:=15, Criteria1:="<" & dernier_jour_lt_fixed, Operator:=xlAnd, Criteria2:=">" & premier_jour_lt_fixed

如何在＆lt;＆gt;之间放置价值在过滤器中

1 个答案: