مساعدة بخصوص فرز في شيت اكسيل

[fantap]

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

مرفق شيت اكسيل مكون من عمود  واحد  فقط باسم  رقم  الحساب  يكون  به حجم بيانات ضخم جدا ..... انا اريد ان اعمل فرز و تصفيه للارقام  الحسابات  التي تبدا  بـ فقط 080 و ايضا 081 و ايضا 082

برجاء المساعدة  لان الطريقه التقلديه  للفرز لا تفي بهذا الغرض و كيفية عمل ذلك

شكرا جزيلا

ارقام حسابات.xlsx

[ابراهيم الحداد]

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

اليك الكود

هو بطئ نسبيا نظرا لطول البيانات و تعدد الخيارات

جارى العمل على ايجاد كود اسرع و لكن فى وقت لاحق ان شاء الله

Sub Filtrng()
Dim Rng As Range, Dta As String
Dim i As Long, LR As Long
Application.ScreenUpdating = False
LR = Range("A" & Rows.Count).End(3).Row
i = 2
Do While i <= LR
Dta = Left(Cells(i, 1), 3)
If Dta = "080" Or Dta = "081" Or Dta = "082" Then
Range("A" & i).EntireRow.Hidden = False
Else
Range("A" & i).EntireRow.Hidden = True
End If
i = i + 1
Loop
Application.ScreenUpdating = True
End Sub

 

[fantap]

شكرا جزيلا... علي الرد أستاذنا الغالي إبراهيم الحداد جزاك الله خير الجزاء و زادك الله من العلم الوفير...   أنا لا أريد كتابة أي اكواد كل ما في الموضوع محتاج طريقه بسيطه لعمل ذلك إن امكن باستخدام التصفية المتقدمه و أي طريقه بسيطه أخري إن امكن ذلك

شكرا جزيلا