Toggler eller anvender et klassisk XLS AutoFilter-område og skriver enkle kriterier pr. felt
Syntaks
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;
Bemærkninger
Overloadet uden parametre toggler regnearkets AutoFilter-område for det aktuelle område. Overloadene med kriterier opretter området, hvis det ikke allerede er defineret, og skriver derefter en BIFF8- AUTOFILTER condition for the 1-based field index
Kriterieværdier kan være strenge, tal eller Boolean-værdier. Strengkriterier kan bruge sammenligningspræfikser som =, <>, >, >=, <, and <=. A criteria string of = matches blanks, and <> matches non-blanks
Eksempel
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