فلترة بعدة ارقام

[tahar]

السلام عليكم .. لابد من التحية عند بدء أى مشاركة ,,عندي ورقة اكسل تحتوي على عدة اعمدة فؤ عمود الكود كيف اقوم بفلترة عدة ارقام انا اختارها  اكتبهاةدفعة واحدة        ..

المطلوب اخوتي هو فلترة للعمود a             ...في ورقة الجدول بواسطة  الارقام في الورقة ارقام الفلترة

انتبه من فضلك ,,فقد تـــم تعديل رفع الملف بدون ضغط .. طالما حجمه صغير

fff.xlsx

[محمد هشام.]

السلام عليكم ورحمة الله تعالى وبركاته

تفضل اخي الكريم يمكنك وضع الكود التالي وفلترة العمود بعشرة اعداد دفعة واحدة قابلة للزيادة .

Sub Filter_()
Dim Criteria_MH(100) As String
Dim i As Integer
Application.ScreenUpdating = False
    Sheets("ارقام الفلترة").Activate
    Range("A2:A12").Select
    For i = 0 To Selection.Count
 Criteria_MH(i) = Selection(i)
Next
Sheets("الجدول").Range("A3:A100").AutoFilter Field:=1, Criteria1:=Criteria_MH, Operator:=xlFilterValues
Sheets("الجدول").Activate
Application.ScreenUpdating = True
End Sub

tahar-MH.xlsm

[عبدالفتاح في بي اكسيل]

@Mohamed Hicham

لماذا  تستخدم  الحلقة التكرارية  وخاصية  اختيار  الملفات  ؟

من  شانه  ان  يجعل  الكود بطيء  ، دائما  نلجا  الى  الفلترة  او الفلترة  المتقدمة لسرعتها خصوصا  ان  بيانات  الاخ tahar     صغيرة اما  اذا  كانت  البيانات  ضخمة  عندها  نستخدم  الحلقة  التكرارية  مع  المصفوفات لتسريع  الكود.      مجرد ملاحظة فقط   ..تحياتي .

 

[tahar]

شكرا لك هذا هو المطلوب بارك الله قيك

ذ

[محمد هشام.]

العفو اخي الكريم تفضل هدا حل اخر

Public Sub Filter_data()
Dim lo As ListObject, rng As Range
Dim rw As Long, i As Long
Dim arrayCriteria()
    Set lo = Range("T_ID").ListObject
    rw = lo.ListRows.Count
    ReDim arrayCriteria(rw)
    For i = 1 To rw
       arrayCriteria(i) = CStr(lo.DataBodyRange.Cells(i, 1))
    Next i
    Set rng = Range("T_data")
    With rng.ListObject
        If .ShowAutoFilter Then .AutoFilter.ShowAllData
        .Range.AutoFilter field:=1, Criteria1:=arrayCriteria, Operator:=xlFilterValues
    End With
End Sub

 

فلترة بنطاق معين.xlsm