أبو أنس حاجب قام بنشر نوفمبر 4, 2012 قام بنشر نوفمبر 4, 2012 (معدل) السلام عليكم ورحمة الله وبركاته أساتذتي الكرام حفظكم الله المطلوب كود يعمل على مسح البيانات فقط لمدى الخلايا من A:S بشرط أذا كانت قيمة الخلية المقابلة لهم في العمود U صفر(مدى عمل الكود حتى السطر 2000). جزاكم الله كل خير أبو أنس مسح بيانات مدى بناءا علي شرط.rar تم تعديل نوفمبر 4, 2012 بواسطه أبو أنس حاجب
رجب جاويش قام بنشر نوفمبر 4, 2012 قام بنشر نوفمبر 4, 2012 أخى الفاضل / أبو أنس حاجب بعد التحية جرب الكود التالى Sub ragab() For Each cl In [A5:A2000] If cl.Offset(0, 20) = 0 Then cl.Resize(1, 19).ClearContents End If Next End Sub مسح بيانات مدى بناءا علي شرط.rar
أبو أنس حاجب قام بنشر نوفمبر 5, 2012 الكاتب قام بنشر نوفمبر 5, 2012 (معدل) السلام عليكم ورحمة الله وبركاته أستاذي وسيدي النبيل رجب جاويش حفظكم الله أسال الله العظيم رب العرش الكريم لك ولأهلك الأمن والأمان وموفور النعم في الدنيا والآخرة. أتمنى من الله أن أكون أهل لهذا الكرم منكم أحسن الله عاقبة أمركم. في المختصر المفيد كما هو حال كودكم الجميل. أبو أنس بعد تجربة الكود على الملف الأصلي سوف أحاول البحث عن حل لبطئ الكود عندما نفذته على كامل المدى بوجود المعادلات كاملة في العمود U أرجو أيضاً البحث من طرفكم على حل(على أن لايتم التعديل في المعادلة لاني أريد النتيجة الصفرية فهي مرتبطة بكود فرز أخر) والله المستعان. بارك الله بكم وفيكم تم تعديل نوفمبر 5, 2012 بواسطه أبو أنس حاجب
أبو أنس حاجب قام بنشر نوفمبر 6, 2012 الكاتب قام بنشر نوفمبر 6, 2012 (معدل) السلام عليكم ورحمة الله وبركاته أستاذي وسيدي الفاضل حفظكم الله تقبل خالص الشكر والتقدير والاحترام. ما رأيك بتعديل سطر الشرط في الكود بشرط جديد يجعل تنفيذ الكود في الاسطر التي تحقق الشرط فقط (الشرط هو إذا كانت الخلية في العمود U صفر وأيضاً الخلية المقابلة لها في العمود G ليست فارغة يتم تنفيذ الكود في السطر مالم يتم التجاهل). هذا الشرط الجديد أسفل لقد جربته للوهله الأولى وأظنه نجح أرجو التوجيه من سيادتكم بصحة ذلك (حيث عمل على التسريع من الكود): If cl.Offset(0, 6) <> "" And cl.Offset(0, 20) = 0 Then أبو أنس تم تعديل نوفمبر 6, 2012 بواسطه أبو أنس حاجب
رجب جاويش قام بنشر نوفمبر 6, 2012 قام بنشر نوفمبر 6, 2012 أخى الحبيب / أبو أنس حاجب السلام عليكم ورحمة الله وبركاته بارك الله فيك أخى الفاضل على الإضافة واللمسة الجميلة والحكم على على سرعة الكود يكون فى حالة البيانات الكبيرة كما جربت أنت ونجحت التجربة تسلم ايديك وتسلم أفكارك أخوك / رجب جاويش
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.