ابواليسر

في 26‏/8‏/2023 at 14:49, عطية23 said:

القوائم لو زاد العدد عن 100 الجزء الثانى من القوائم يعطى falls

اقصى عدد للقائمه 100 اسم

برنامج شئون الطلبة 2024

اهم مميزات البرنامج:

استيراد(نسخ) البيانات من النسخة السابقة من البرنامج بضغطة واحدة

ترحيل البيانات للعام الدراسي الجديد بضغطة واحدة بدون نسخ من صف ولصق في الصف الاخر

صفحة البيانات لكل صف بها ايقونات للترتيب ابجدي او البنات اولا او البنين اولا او حسب القيد

قوائم الفصول حسب العدد في كل صف كلما زاد العدد اتسعت القائمة

ملفات التقييم لكل صف ( اعمال السنة )

ملفات تقييم الانشطة

التقييم الخاص بالنشاط الرياضي

كشوف توزيع الكتب

كشوف الصحة للتطعيمات

دمج جميع الصفوف الدراسية في صفحة واحدة لسجل القيد والمصروفات وملفات الانجاز

ايقونة لمسح جميع البيانات للبرنامج في واجهة البرنامج وايقونة مسح لكل صف

دفتر 5 سلوك

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

سجل لتسليم الكتب المدرسية بكل المواد

سجل لكشوف وزارة الصحة الخاص بتطعيمات التلاميذ

سجل للغياب الاسبوعي لتسجيل الغياب الالكتروني

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

https://t.me/edartelmadrsa

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

رابط التحميل            https://mega4upload.com/eplkzxb1byhy

 

اسم المستخدم :     ابواليسر

كلمة المرور .   :      55555

ابواليسر لشئون الطلبة 2024.rar

السلام عليكم ورحمه الله وبركاته احبائي في الله
اقدم لكم برامج الكنترول المدرسي من الصف الاول الابتدائي حتى الصف السادس
هذه البرامج صممتها من عدة سنوات وكنت أعمل بها ولكني لم اشاركها أو انشرها وقد قررت النشر ليستفيد الجميع وتكون حسنة جارية لي وعمل لا ابغي منه إلا ابتغاء وجه الله سبحانه وتعالى.
برنامج كنترول الصفوف الأولى
برامج كنترول من الرابع حتى السادس
في برنامج الصف السادس يمكنك تغيير درجات الرصد حسب محافظتك او التعليمات الواردة اليكم
للتواصل والتحميل
http://edartelmadrsa.blogspot.com/?m=0

الحمد لله توصلت لتبسيط الكود بالحلقات التكرارية

For r = 1 To 100
If Cells(r, 21) = "" Then Exit For
mhname = Cells(r, 21).Value
ok.Activate
Worksheets(mhname).Select
Range("c3:j12").Copy
ThisWorkbook.Activate
Sheets("æÑÞÉ1").Select
Cells(r * 13, 2).PasteSpecial xlPasteAllMergingConditionalFormats
Next

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

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

لذا ارجوا تبسيط الكود بحيث مهما زادت الاسماء واوراق العمل لا يبدو كبيرا مع امكانية مسح البيانات القديمه قبل الاستيراد

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

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

file.rar

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

السلام عليكم .فلا وجود لأى مشاركة بدون التحية ...اريد كود ينشط ورقة عمل اسمها = قيمة خلية معينه في ورقة اخرى ..مرفق ملف لتفيذ الكود فيه ولكم جزيل الشكر  ...  وبما انك تريد الحل بالأكواد فكان لزاماً عليك رفع الملف بإمتداد Xlsm تجنباً لإهدار وقت الأساتذة ... تم إعادة رفع الملف بهذا الإمتداد

تنشيط ورقة عمل.xlsm

بسم الله الرحمن الرحيم

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

البرنامج ده عن طريقه تقدر تعمل قوائم الفصول وتعدل فيها بمنتهى السهولة بمجرد تغيير رقم فصل التلميذ

بمجرد عمل القوائم يقوم البرنامج تلقائياً بعمل ايضاً ملف التقييم او ملف الانجاز وكذلك بيانات كتابة السجلات

وايضاً عن طريق البرنامج تستطيع تصنيف التلاميذ من حيث دفع المصروفات المدرسية او دفع النصف او عمل الابحاث بضغطة واحدة

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

729143233_V1.rar