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

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


tahar
إذهب إلى أفضل إجابة Solved by Mohamed Hicham,

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

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

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

@Mohamed Hicham

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

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

 

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • المتواجدين الان   0 اعضاء متواجدين الان

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

Important Information