ابوصلاح قام بنشر سبتمبر 12, 2016 قام بنشر سبتمبر 12, 2016 المطلوب عند اختيار الصف في الخلية (l4)يتم اظهار الصف المطلوب الاول الثاني الثالث الخ واخفاء باقي الصفوف شئون ابتدائي17.rar
عادل ابوزيد قام بنشر سبتمبر 12, 2016 قام بنشر سبتمبر 12, 2016 برجاء تجربة المرفق Copy of Xl0000044.rar
عبدالله بشير عبدالله قام بنشر سبتمبر 12, 2016 قام بنشر سبتمبر 12, 2016 (معدل) 4 ساعات مضت, ابوصلاح said: المطلوب عند اختيار الصف في الخلية (l4)يتم اظهار الصف المطلوب الاول الثاني الثالث الخ واخفاء باقي الصفوف شئون ابتدائي17.rar جرب هذا الملف اختار الفصل من القائمة تم انقر في خلية خالية الكود من استاذنا سليم حاصبيا حفظه الله شئون ابتدائي17.rar تم تعديل سبتمبر 12, 2016 بواسطه عبدالله بشير عبدالله تعديل خطأ مطبعي
ابوصلاح قام بنشر سبتمبر 12, 2016 الكاتب قام بنشر سبتمبر 12, 2016 الكود الفلترة يجعل الاكسل ثقيل في العمل كما انه يظهر صف وعندما تريد الانتقال الى صف اخر لا يعمل 1
سليم حاصبيا قام بنشر سبتمبر 13, 2016 قام بنشر سبتمبر 13, 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
مصطفى محمود مصطفى قام بنشر سبتمبر 13, 2016 قام بنشر سبتمبر 13, 2016 6 ساعات مضت, ابوصلاح said: الكود الفلترة يجعل الاكسل ثقيل في العمل كما انه يظهر صف وعندما تريد الانتقال الى صف اخر لا يعمل السلام عليكم اخي العزيز ابو صلاح الفلترة في الاكسل اسرع من اكواد التصفية حسب معلوماتي المتواضعة لكن في ملفكم كثرة المعادلات لاستخراج بيانات من بيانات التصفية لذلك يكون بطيئا حتى اكمال استخراج هذه البيانات من بيانات التصفية ممكن تلافي هذا البطء بحركة بسيطة وهي الذهاب الى صيغ ثم من خيارات الحساب ونختار يدوي وعند اكمال التصفية نضغط على حساب الورقة او الحساب الان وتنتهي مسالة البطء وحتما هناك رأي للاساتذة الكرام حول بطء الفلترة جزاهم الله خيرا جرب الملف المرفق وفيه الكود الاخير للاستاذ سليم حاصبيا جزاه الله خيرا وقم بتحويل الحساب من تلقائي الى يدوي ولاحظ السرعة الفائقة للفلترة تحياتي وفائق احترامي شئون ابتدائي17.rar
سليم حاصبيا قام بنشر سبتمبر 13, 2016 قام بنشر سبتمبر 13, 2016 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 1
مصطفى محمود مصطفى قام بنشر سبتمبر 13, 2016 قام بنشر سبتمبر 13, 2016 (معدل) السلام عليكم الاستاذ سليم حاصبيا عمل اكثر من رائع فانتم عندكم الحلول حتما باذن الله وانا في الحقيقة احتاج لهذه الاضافة لان عندي برامج كثيرة تعاني من كثر المعادلات لذا ساستخدمها لبرامجي الخاصة جزاكم الله خيرا . وفقكم الله هناك ملاحظة صغيرة حول الكود المرفق الاخير بالنسبة لشرط التصفية المدى المذكور بالكود Sheets("بيانات التلميذ").Range("l3:l4"), Unique:=False بينما الموجود بالملف بهذا الشكل لذا ارجو لمن يستخدم الكود على الملف الاصل في اول مشاركة ينتبه لذلك ويغير الى Sheets("بيانات التلميذ").Range("l4:l5"), Unique:=False تحياتي وفائق احترامي تم تعديل سبتمبر 13, 2016 بواسطه مصطفى محمود مصطفى 1
قلم-الاكسل(عبدالعزيز) قام بنشر سبتمبر 13, 2016 قام بنشر سبتمبر 13, 2016 شكرا على الاكواد والمعلومات من قبل الخبراء المحترفين
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.