Включает/выключает или применяет автофильтр классического XLS и записывает простые критерии для каждого поля
Синтаксис
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;
Примечания
Перегрузка без параметров переключает диапазон автофильтра листа для текущего диапазона. Перегрузки с критериями создают диапазон, если он ещё не определён, затем записывают условие BIFF8 AUTOFILTER для 1-индексированного поля
Значения критериев могут быть строками, числами или логическими значениями. Строковые критерии могут использовать операторы сравнения: =, <>, >, >=, <, <=. Критерий = соответствует пустым ячейкам, <> — непустым
Пример
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;
См. также