اظهار الصف معين واخفاء باقي الصفوف

[ابوصلاح]

المطلوب عند اختيار الصف في الخلية (l4)يتم اظهار الصف المطلوب الاول الثاني الثالث الخ

واخفاء باقي الصفوف

شئون ابتدائي17.rar

[عادل ابوزيد]

برجاء تجربة المرفق

 

Copy of Xl0000044.rar

[ابوصلاح]

اظن هناك خطا بالكود

[عبدالله الصاري]

4 ساعات مضت, ابوصلاح said:

المطلوب عند اختيار الصف في الخلية (l4)يتم اظهار الصف المطلوب الاول الثاني الثالث الخ

واخفاء باقي الصفوف

شئون ابتدائي17.rar

 

جرب هذا الملف

اختار الفصل من القائمة تم انقر في خلية خالية

الكود من استاذنا سليم حاصبيا حفظه الله

شئون ابتدائي17.rar

تم تعديل سبتمبر 12, 2016 بواسطه عبدالله الصاري
تعديل خطأ مطبعي

[ابوصلاح]

الكود الفلترة يجعل الاكسل ثقيل في العمل كما انه يظهر صف وعندما تريد الانتقال الى صف اخر لا يعمل

[سليم حاصبيا]

جرب هذا الماكرو بعدان تكتب في الخلية L3 كلمة الصف بالضبط كما هي بالجدول(دون مسافات)

Sub FilterData()
Application.ScreenUpdating = False
If ActiveSheet.AutoFilterMode = True Then ActiveSheet.ShowAllData
    Sheets("بيانات التلميذ").Range("a10:r300").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Sheets("بيانات التلميذ").Range("l3:l4"), Unique:=False
  
    Range("a10").Select
    Application.ScreenUpdating = True
End Sub

 

[مصطفى محمود مصطفى]

6 ساعات مضت, ابوصلاح said:

الكود الفلترة يجعل الاكسل ثقيل في العمل كما انه يظهر صف وعندما تريد الانتقال الى صف اخر لا يعمل

السلام عليكم

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

لكن في ملفكم كثرة المعادلات لاستخراج بيانات من بيانات التصفية لذلك يكون بطيئا حتى اكمال استخراج هذه البيانات  من بيانات التصفية

ممكن تلافي هذا البطء بحركة بسيطة وهي الذهاب الى صيغ ثم من خيارات الحساب ونختار يدوي وعند اكمال التصفية نضغط على حساب الورقة او الحساب الان وتنتهي مسالة البطء

وحتما هناك رأي للاساتذة الكرام حول بطء الفلترة جزاهم الله خيرا

جرب الملف المرفق وفيه الكود الاخير للاستاذ سليم حاصبيا جزاه الله خيرا  وقم بتحويل الحساب من تلقائي الى يدوي    ولاحظ السرعة الفائقة للفلترة

تحياتي وفائق احترامي

 

شئون ابتدائي17.rar

[سليم حاصبيا]

26 دقائق مضت, مصطفى محمود مصطفى said:

السلام عليكم

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

لكن في ملفكم كثرة المعادلات لاستخراج بيانات من بيانات التصفية لذلك يكون بطيئا حتى اكمال استخراج هذه البيانات  من بيانات التصفية

ممكن تلافي هذا البطء بحركة بسيطة وهي الذهاب الى صيغ ثم من خيارات الحساب ونختار يدوي وعند اكمال التصفية نضغط على حساب الورقة او الحساب الان وتنتهي مسالة البطء

وحتما هناك رأي للاساتذة الكرام حول بطء الفلترة جزاهم الله خيرا

جرب الملف المرفق وفيه الكود الاخير للاستاذ سليم حاصبيا جزاه الله خيرا  وقم بتحويل الحساب من تلقائي الى يدوي    ولاحظ السرعة الفائقة للفلترة

تحياتي وفائق احترامي

 

شئون ابتدائي17.rar

اخي مصطفى

ليس من الضرورب القيام بذلك يدوياً

بل من خلال الكود نفسه باضافة هذه السطور الى الكود(بين علامات اليساوي)

Sub FilterData()
'   تعطيل الحساب الالي واهتزاز الشاشة
'========================================================
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
End With
'========================================================

If ActiveSheet.AutoFilterMode = True Then ActiveSheet.ShowAllData
    Sheets("بيانات التلميذ").Range("a10:r300").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
       Sheets("بيانات التلميذ").Range("l3:l4"), Unique:=False
  
    Range("a10").Select
    '   تشغيل الحساب الالي واهتزاز الشاشة
'========================================================
 With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
.EnableEvents = True
End With
'========================================================
End Sub

 

[مصطفى محمود مصطفى]

السلام عليكم

الاستاذ سليم حاصبيا عمل اكثر من رائع فانتم عندكم الحلول حتما باذن الله

وانا في الحقيقة احتاج لهذه الاضافة لان عندي برامج كثيرة تعاني من كثر المعادلات

لذا ساستخدمها لبرامجي الخاصة جزاكم الله خيرا  . وفقكم الله

هناك ملاحظة صغيرة حول الكود المرفق الاخير بالنسبة لشرط التصفية المدى المذكور بالكود 

Sheets("بيانات التلميذ").Range("l3:l4"), Unique:=False

بينما الموجود بالملف بهذا الشكل لذا ارجو لمن يستخدم الكود على الملف الاصل في اول مشاركة ينتبه لذلك ويغير الى 

Sheets("بيانات التلميذ").Range("l4:l5"), Unique:=False

تحياتي وفائق احترامي

تم تعديل سبتمبر 13, 2016 بواسطه مصطفى محمود مصطفى

[قلم-الاكسل(عبدالعزيز)]

شكرا على الاكواد والمعلومات من قبل الخبراء المحترفين