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

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

قام بنشر

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

مرفق شيت اكسيل مكون من عمود  واحد  فقط باسم  رقم  الحساب  يكون  به حجم بيانات ضخم جدا ..... انا اريد ان اعمل فرز و تصفيه للارقام  الحسابات  التي تبدا  بـ فقط 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

 

  • Like 1
قام بنشر

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

شكرا جزيلا

 

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

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

Important Information