اذهب الي المحتوي
أوفيسنا

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


tahar
إذهب إلى أفضل إجابة Solved by محمد هشام.,

الردود الموصى بها

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

المطلوب اخوتي هو فلترة للعمود 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

  • Like 2
رابط هذا التعليق
شارك

@Mohamed Hicham

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

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

 

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

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


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

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information