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

[أبو الخضر البعيثي]

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

لقد بحثت كثيرا لأجد ضالتي فوجدت أجزاء منفصلة منها وحاولت عشرات المرات لتجميعها والحصول على المطلوب فلم أفلح .

الموضوع كما يلي : 

عندي ورقة عمل (" h ") في الملف new.xlsm 

منها يتم طباعة كشوفات الرصد النهائية للصفوف الدراسية من ١ - ٨  

طبعا وكل صف لديه عدد من الكشوفات .

فعملت الخلية (" BL1  ") كمتغير  (x) لرقم الصف .

والخلية (" BM1 ") كمتغير ( i ) لرقم الكشف .بحيث تتغير قيمتها لتصل إلى أن تساوي الخلية (" BI1 ") التي تحدد عدد الكشوفات لكل صف.

والمطلوب كود يحفظ كل كشف في ورقة عمل بحسب رقمه في ملف أكسيل مسمى برقم الصف وموجود في مجلد اسمه control في القرص D

ثم يستمر حلقة تكرارية لكل الصفوف . 

مثال للتوضيح لو اخترت الرقم ٦ في الخلية (" BL1 ") وكان للصف السادس كشفين فقط والسابع ثلاثة كشوفات والثامن كشفين فسيكون التنفيذ كما يلي :

الكود سيعمل نسخ للنطاق من (" A1:BE44 ")في هذه الصفحة بحيث أن الخلية (" BM1 ") = ١  ثم يفتح الملف المسمى (٦.xlsx) ويذهب للورقة ("١") وينشط الخلية (" A1 ") ثم لصق قيم وفورمات .ثم  Next i ليغير رقم الكشف ثم نسخ نفس النطاق ثم الورقة ("2 ") ثم لصق ثم غلق للملف. بعد ذلك  Next x للصف ليغير رقم الخلية (" BL1 ") لتساوي 7  فيتم فتح الملف ( 7.xlsx ) ويعمل نسخ للنطاق ثم  selectللخلية A1 في الورقة ١ في ملف سابع ثم لصق قيم وفورمات ثم Next i ليتم عمل نسخة للكشف الثاني إلى الورقة ٢ ثم الثالث إلى الورقة ٣ وهكذا لكل كشف من الصفحة h في البرنامج إلى المصنف الذي سيتم فتحه بمجرد التغير Next x . وكلما تم عمل نسخة لجميع كشوفات الصف يتم عمل حفظ وغلق له ثم يفتح الثاني وهكذا حتى نهاية الصفوف .

لقد حاولت بتطويع الحلقات التكرارية التي حصلت عليها في كود من الأستاذ الفاضل بن علية حاجي لتغيير الصفوف وكذا الكشوفات . كما حاولت دمج كود للأستاذ عماد غازي لفتح ملف اكسيل بحيث أن المتغير ( x ) الذي سيغير رقم الصف هو نفسه متغير رقم الملف الذي سيتم فتحه وكان العمل إلى هنا لا بأس به . بعد ذلك حاولت أعمل متغير الكشوفات ( i ) بحيث يعبر أيضا عن رقم ورقة العمل التي سيتم النسخ فيها . وعملت بعض الإضافات - التي إعتبرتها أنا لازمة- فكان الكود ينفذ الشق الأول ( يفتح الملفات ) وربما يمر على الصفحات دون عمل النسخ واللصق ولا يغلق كل ملف بعد العمل عليه . 

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

مرفق ملف العمل  بسبب الحجم منفصل عن الملفات المسماة بأسماء الصفوف

 

new.zip

وهذا نموذج لملفات الصفوف

hovats.zip

[أبو الخضر البعيثي]

للرفع