التصفية التلقائية فى نفس النطاق


التصفية التلقائية فى الاكسل



بمعيار واحد
workbooks("Book1").Worksheets("Sheet1").Range("A1").AutoFilter Field:=2, Criteria1:="*ello*"
هنا يتم التصفية للنطاق الذى يحتوى على الخلية A1 فى ورقة العمل Sheet1 فى كتاب العمل Book1
يتم التصفية طبقا لوجود النص ello فى العمود الثانى فى النطاق ( العمود body)
نلاحظ هنا وجود علامة * قبل و بعد الكلمة مما يدل على انه ممكن ان يوجد قبلها او بعدها حروف



بمعيار واحد
workbooks("Book1").Worksheets("Sheet1").Range("A1").AutoFilter Field:=2, Criteria1:=">100"
التصفية التلقائية بمعيار واحد بحيث يكون الناتج اكبر من 100



بمعيار واحد
workbooks("Book1").Worksheets("Sheet1").Range("A1").AutoFilter Field:=2, Criteria1:="<100"
التصفية التلقائية بمعيار واحد بحيث يكون الناتج اصغر من 100



بمعيار واحد
workbooks("Book1").Worksheets("Sheet1").Range("A1").AutoFilter Field:=2, Criteria1:="100"
التصفية التلقائية بمعيار واحد بحيث يكون الناتج يساوى 100



بمعيار واحد
workbooks("Book1").Worksheets("Sheet1").Range("A1").AutoFilter Field:=2, Criteria1:="<>100"
التصفية التلقائية بمعيار واحد بحيث يكون الناتج لا يساوى 100



بمعيار واحد
workbooks("Book1").Worksheets("Sheet1").Range("A1").AutoFilter Field:=2, Criteria1:="5", Operator:=xlTop10Items
الحصول على اكبر 5 قيم فى العمود الثانى فى النطاق (العمود B)



بمعيار واحد
workbooks("Book1").Worksheets("Sheet1").Range("A1").AutoFilter Field:=2, Criteria1:="5", Operator:=xlBottom10Items
الحصول على اقل 5 قيم فى العمود الثانى فى النطاق (العمود B)



التصفية التلقائية بمعيارين
workbooks("Book1").Worksheets("Sheet1").Range("A1").AutoFilter Field:=2, Criteria1:=">100", Operator:=xlAnd, Criteria2:="<200"
هنا يتم التصفية التلقائية بمعيارين فى نفس العمود و هو ان يكون اكبر من 100 و اقل من 200



التصفية التلقائية بمعيارين
workbooks("Book1").Worksheets("Sheet1").Range("A1").AutoFilter Field:=2, Criteria1:=">100", Operator:=xlOr, Criteria2:="<200"
هنا يتم التصفية التلقائية بمعيارين فى نفس العمود و هو ان يكون اكبر من 100 او اقل من 200



التصفية التلقائية لعمود بين تاريخين من خليتين
Dim dt1 As Long
Dim dt2 As Long
dt1 = Worksheets("Sheet1").Range("C5").Value
dt2 = Worksheets("Sheet1").Range("F5").Value
workbooks("Book1").Worksheets("Sheet1").Range("A1").AutoFilter Field:=2, Criteria1:=">=" & dt1, Operator:=xlAnd, Criteria2:="<=" & dt2



اغلاق التصفية التلقائية
workbooks("Book1").Worksheets("Sheet1").AutoFilterMode = False