fantap قام بنشر نوفمبر 11, 2022 قام بنشر نوفمبر 11, 2022 السلام عليكم و رحمة الله و بركاته مرفق شيت اكسيل مكون من عمود واحد فقط باسم رقم الحساب يكون به حجم بيانات ضخم جدا ..... انا اريد ان اعمل فرز و تصفيه للارقام الحسابات التي تبدا بـ فقط 080 و ايضا 081 و ايضا 082 برجاء المساعدة لان الطريقه التقلديه للفرز لا تفي بهذا الغرض و كيفية عمل ذلك شكرا جزيلا ارقام حسابات.xlsx
ابراهيم الحداد قام بنشر نوفمبر 11, 2022 قام بنشر نوفمبر 11, 2022 السلام عليكم و رحمة الله اليك الكود هو بطئ نسبيا نظرا لطول البيانات و تعدد الخيارات جارى العمل على ايجاد كود اسرع و لكن فى وقت لاحق ان شاء الله 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 1
fantap قام بنشر نوفمبر 12, 2022 الكاتب قام بنشر نوفمبر 12, 2022 شكرا جزيلا... علي الرد أستاذنا الغالي إبراهيم الحداد جزاك الله خير الجزاء و زادك الله من العلم الوفير... أنا لا أريد كتابة أي اكواد كل ما في الموضوع محتاج طريقه بسيطه لعمل ذلك إن امكن باستخدام التصفية المتقدمه و أي طريقه بسيطه أخري إن امكن ذلك شكرا جزيلا
الردود الموصى بها
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان