Excel Criteria1 Instance

The Criteria1 usages of Excel are used in combination with VBA, and here are a few examples of Criteria1 usage, which I hope will help you.

Sub Simpleorfilter ()

Worksheets ("SalesReport"). Select

Range ("A1"). AutoFilter

Range ("A1"). AutoFilter field:=4,criteria1:= "=a", Operator:=xlor, criteria2:= "=b"

End Sub

Sub Simpleandfilter ()

Worksheets ("SalesReport"). Select

Range ("A1"). AutoFilter

Range ("A1"). AutoFilter field:=4, _

Criteria1:= ">=a", _

Operator:=xland, criteria2:= "<=ezz"

End Sub

Sub Top10filter ()

' Top Revenue Records

Worksheets ("SalesReport"). Select

Range ("A1"). AutoFilter

Range ("A1"). AutoFilter field:=6, criteria1:= "a", Operator:=xltop10items

End Sub

Sub Multiselectfilter ()

Worksheets ("SalesReport"). Select

Range ("A1"). AutoFilter

Range ("A1"). AutoFilter field:=4, Criteria1:=array ("A", "C", "E", "F", "H"), operator:=xlfiltervalues

End Sub

Sub Dynamicautofilter ()

Worksheets ("SalesReport"). Select

Range ("A1"). AutoFilter

Range ("A1"). AutoFilter field:=3,criteria1:=xlfilternextyear,operator:=xlfilterdynamic

End Sub

Sub Filterbyicon ()

Worksheets ("SalesReport"). Select

Range ("A1"). AutoFilter

Range ("A1"). AutoFilter field:=6, _

Criteria1:=activeworkbook.iconsets (Xl5arrowsgray). Item (5), Operator:=xlfiltericon

End Sub

Sub Filterbyfillcolor ()

Worksheets ("SalesReport"). Select

Range ("A1"). AutoFilter

Range ("A1"). AutoFilter field:=6, Criteria1:=rgb (255, 0, 0), Operator:=xlfiltercellcolor

End Sub