ترحيل راسب مواد

[خالد الشاعر]

السادة الخبراء

 

مرفق ملف به كود للاستاذ ياسر خليل

 

يستخرج الراسب حسب المادة ولكن عند استخدامة فى الملف المرفق ياتى ببيانات اكثر من الدراجات

 

فهل ممكن تعديل الكود ليستخرج بيانات الدرجات فقط

 

اعتقد المشكلة فى عمود الرقم و الاسم فى شيت Main لوجود ارتباط بصفحة اخرى

 

وهل ممكن شرح هذا الكود 

 

 For I = 14 To .Cells(Rows.Count, 1).End(3).Row

                If .Cells(I, RngColA) < RngA Or .Cells(I, RngColB) < RngB Then

 

ولكم جزيل الشكر

 

جزاكم الله كل خيراً

Book333.rar

[ياسر خليل أبو البراء]

صراحة الملف دوخني ولم أستطع العمل عليه لعدم تنسيق الملف بشكل جيد ..

ينصح بإزالة البيانات في أسفل الأعمدة حتى يمكنك تحديد آخر صف به بيانات

 

في ورقة العمل المسماة Main يوجد حرف الـ غ   في الصف 121 .. مما يؤثر على جلب آخر صف به بيانات ..

 

بالنسبة لشرح الجزئية التي تريدها ..

عبارة عن حلقة تكرارية من الصف رقم 14 إلى آخر صف به بيانات .. وأنصح هنا أن تحدد آخر صف بنفسك لأن البيانات متداخلة في نفس العمود ..يعني استبدل هذا الجزء

.Cells(Rows.Count, 1).End(3).Row

برقم 24 ليمثل آخر صف

 

 

هذا السطر

.Cells(I, RngColA) < RngA

لو الدرجة في عمود "الاختبار" أقل من الدرجة 1 (الدرجة الصغرى للاختبار)

 

هذا الجزء

.Cells(I, RngColB) < RngB

لو الدرجة في عمود "درجة المادة" أقل من الدرجة 2 (الدرجة الصغرى لدرجة المادة)

 

يتم ترحيل البيانات لأنه يعد راسب ..

 

باختصار اضبط الملف لتتمكن من استخدام الكود بشكل سليم

تقبل تحياتي

[خالد الشاعر]

استاذ ياسر

 

اولا كل عام و انتم بخير عيد سعيد عليكم

 

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

 

جربت هذا التعديل لم يعمل

 For I = 14 To Worksheets("Main").Range("B4").Value

 

او كتابة رقم مثال 11 لم يعمل الكود

 

ولكم جزيل الشكر

 

جزاكم الله كل خير

Book333.zip

تم تعديل يوليو 16, 2015 بواسطه خالد الشاعر

[ياسر خليل أبو البراء]

أخي خالد

ركز .. قيمة الخلية تساوي كام ؟ 11  .. يعني الحلقة التكرارية هتبدأ من 14 إلى 11 إزاي ..

المعادلة في الخلية B4 اللي هي الناتج بتاعها 11 زود عليها 13عشان تضبط معاك رقم الصف ليصبح رقم الصف كما في الملف المرفق 24

في الحالة دي المعادلة هتكون بهذا الشكل في الخلية B4

=COUNT(Serial)+13

فتتم الحلقة التكرارية من الصف الـ 14 إلى الصف 24

تقبل تحياتي

[خالد الشاعر]

استاذ ياسر

 

الف شكر وتسلم ايدك

 

جزاك الله كل خيرا

 

وكل عام و انتم بخير

[ياسر خليل أبو البراء]

الحمد لله أخي الحبيب خالد أن تم المطلوب على خير

يرجى تحديد أفضل إجابة ليظهر الموضوع مجاب ومنتهي