1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 | 'Вариант 1 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 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 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 |