Autofilter II

[VBA_Student]

Вопрос по автофильтру:

Можно ли как-нибудь составить критерий автофильтра, чтобы он приобрел след. вид:

Код: Выделить всё


.AutoFilter Field:=4, Criteria1:=">"C_1, Operator:=xlAnd, Criteria2:="<"C_2


где С_1 и С_2 - переменные?

[alex_gearbox]

Примерно вот таким вот образом:

Код: Выделить всё

Sub Macro1()

Dim cr1 As String
Dim cr2 As String

cr1 = ">1"
cr2 = "<4"
   
    With Range(Cells(1), Cells(20, 3))
        .AutoFilter
        .AutoFilter Field:=3, Criteria1:=cr1, Operator:=xlAnd, Criteria2:=cr2
    End With
End Sub

Всё, что более, просто подумать.

[Template]

Код: Выделить всё

.AutoFilter Field:=4, Criteria1:=">" & C_1, Operator:=xlAnd, Criteria2:="<" & C_2

ну или так

Код: Выделить всё

.AutoFilter Field:=4, Criteria1:=">" + CStr(C_1), Operator:=xlAnd, Criteria2:="<" + CStr(C_2)