关于excel的Criteria1用法实例,是结合VBA来使用的,下面是关于Criteria1用法的几个例子,希望对你有所帮助。 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 12 Revenue Records Worksheets("SalesReport").Select Range("A1").AutoFilter Range("A1").AutoFilter Field:=6, Criteria1:="12",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
|
|