تقوم بتبديل أو تطبيق نطاق التصفية التلقائية AutoFilter لـ 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;
ملاحظات
يؤدي التحميل الزائد بدون معلمات إلى تبديل نطاق التصفية التلقائية AutoFilter لورقة العمل للنطاق الحالي. تنشئ التحميلات الزائدة للمعايير النطاق إذا لم يكن محددًا بالفعل، ثم تكتب شرط AUTOFILTER لـ BIFF8 لفهرس الحقل المستند إلى 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;
انظر أيضًا