Как использовать дату при применении автофильтра?

Категория: Basic
2012-08-10 14:31:34
  1. Вариант
    code: #vba
    Dim iDateOne As Date
Dim iDateTwo As Date
 
iDateOne = "08.09.2004"
iDateTwo = "08.10.2004"
 
iCriteria1 = ">=" & Format(iDateOne, "#")
iCriteria2 = "<=" & Format(iDateTwo, "#")
 
Range("A1").AutoFilter Field:=1, Criteria1:=iCriteria1, Operator:=xlAnd, Criteria2:=iCriteria2

    Вместо Format(iDate, "#") можно использовать Format(iDate, "General Number")

  2. Вариант
    code: #vba
    iDateOne = #9/8/2004# ' "08.09.04"
iDateTwo = #10/8/2004# ' "08.10.04"

iCriteria1 = ">=" & CDbl(iDateOne)
iCriteria2 = "<=" & CDbl(iDateTwo)
 
Range("A1").AutoFilter Field:=1, Criteria1:=iCriteria1, Operator:=xlAnd, Criteria2:=iCriteria2
  3. Вариант
    code: #vba
    iDateOne = #9/8/2004# ' "08.09.04"
iDateTwo = #10/8/2004# ' "08.10.04"

With Application
     iCriteria1 = ">=" & .Text(iDateOne, "@")
     iCriteria2 = "<=" & .Text(iDateTwo, "@")
End With
 
Range("A1").AutoFilter Field:=1, Criteria1:=iCriteria1, Operator:=xlAnd, Criteria2:=iCriteria2
    Поделиться:

    Похожие статьи:

    теги: дата, excel, vba, макросы, автофильтр