اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

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

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

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

قام بنشر

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

قام بنشر (معدل)
  في 12‏/9‏/2016 at 17:37, ابوصلاح said:

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

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

شئون ابتدائي17.rarFetching info...

Expand  

 

جرب هذا الملف

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

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

شئون ابتدائي17.rarFetching info...

تم تعديل بواسطه عبدالله بشير عبدالله
تعديل خطأ مطبعي
قام بنشر

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

  • Like 1
قام بنشر

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

 

قام بنشر
  في 12‏/9‏/2016 at 23:40, ابوصلاح said:

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

Expand  

السلام عليكم

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

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

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

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

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

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

 

1473746637311.jpg

شئون ابتدائي17.rarFetching info...

قام بنشر
  في 13‏/9‏/2016 at 06:13, مصطفى محمود مصطفى said:

السلام عليكم

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

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

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

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

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

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

 

1473746637311.jpg

شئون ابتدائي17.rarFetching info...

Expand  

اخي مصطفى

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

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

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

 

  • Like 1
قام بنشر (معدل)

السلام عليكم

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

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

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

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

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

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

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

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

تم تعديل بواسطه مصطفى محمود مصطفى
  • Like 1

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