Växlar eller tillämpar ett klassiskt XLS AutoFilter-område och skriver enkla kriterier per fält
Syntax
procedure Autofilter; overload;
procedure Autofilter(Field: Integer; Criteria1: Variant); overload;
procedure Autofilter(Field: Integer; Criteria1: Variant; VisibleDropDown: Boolean); overload;
procedure Autofilter(Field: Integer; Criteria1: Variant; Operator: XlAutoFilterOperator; Criteria2: Variant); overload;
procedure Autofilter(Field: Integer; Criteria1: Variant; Operator: XlAutoFilterOperator; Criteria2: Variant; VisibleDropDown: Boolean); overload;
Anmärkningar
Överlagringen utan parametrar växlar kalkylbladets AutoFilter-område för det aktuella området. Överlagringarna med kriterier skapar området om det inte redan är definierat och skriver sedan en BIFF8 AUTOFILTER condition for the 1-based field index
Kriterievärden kan vara strängar, tal eller Boolean-värden. Strängkriterier kan använda jämförelseprefix som =, <>, >, >=, <, and <=. A criteria string of = matches blanks, and <> matches non-blanks
Exempel
Workbook := TXLSWorkbook.Create;
try
Sheet := Workbook.Sheets[1];
Sheet.Range['A1', 'C10'].Autofilter(1, 'Open');
Sheet.Range['A1', 'C10'].Autofilter(3, '>=100');
Workbook.SaveAs('filtered.xls', xlExcel97);
finally
Workbook.Free;
end;
See Also