شيت الكنترول - إعدادي مصر - قرار 313 باللغة الفرنسية أو بدونها

[naderwatfa]

الاستاذ نادر شكرا على تعديل الدرجة الاصلية فى مادة الرياضيات فى الشيت التفصيلى فى الناجحين ولكن تحتاج الدرجة الاصلية ( 60 درجة ) الى التعديل فى شيت الراسبين

تم التعديل المطلوب

و التحميل بعد قليل

[mhrrd]

الاستاذ نادر

السلام عليكم ورحمة الله

ألاحظ صبرك ومثابرتك مع الأخوة الافاضل

للوصول بالبرنامج في أحسن صوره

ولذا وجب الدعاء الطيب لك ولأمثالك

وبعد :

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

ولك الشكر

[naderwatfa]

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

إخواني الأفاضل

تم عمل التعديلات التي طلبها البعض

كما تم إضافة خاصية أخرى

و هي إمكان تعديل تنسيق الخلايا في رصد المنازل

حيث كانت الخلايا لا تقبل كتابة حرف غ للطالب الغائب

فقمت بإضافة أكواد جديدة و ربطتها بأزرار جديدة

خاصة بتنسيق خلايا رصد المنازل فقط

بحيث تتشابه في عملها و خصائصها مع خلايا رصد المنتظمين

و ذلك في صفحة تعديل النهايات العظمى والصغرى للمواد

و تفضلوا إخواني الشيت بعد هذه الإضافة

تم تجديد الرابط الساعة 55 : 10 صباحاً

التحميل من هنا - اختر السيرفر المناسب لك

[naderwatfa]

الشكر لله أخي الحبيب

mhrrd

اخترت لك كود رصد درجات نصف التيرم الأول

الكود بسيط جداً وهو عبارة عن إخفاء و إظهار أعمدة

شوف الشرح مع الكود و أرجو أن يكون واضحاً

و لو مش واضح كفاية أنا تحت أمرك

قول لي و أنا أشرحه بالطريقة اللي تعجبك

() اختبار_نصف_تيرمsub1

'نلغي أولاً حماية الصفحة

ActiveSheet.Unprotect

'نعطل خاصية تحديث الشاشة لجمال و تنسيق عمل الكود فقط و لسرعته أيضاً

Application.ScreenUpdating = False

'سنقوم بإلغاء تجميد النطاق

ActiveWindow.FreezePanes = False

'ثم نختار نطاق أعمدة الرصد بالكامل

Columns("N:CE").Select

'هنا يتم إظهار النطاق بالكامل

Selection.EntireColumn.Hidden = False

'ثم نختار الأعمدة التي لا نريد ظهورها لنخفيها

Columns("X:CD").Select

'هنا يقوم الكود بإخفاء الأعمدة غير المطلوبة

Selection.EntireColumn.Hidden = True

'هنا نحدد خلية التجميد

Range("O14").Select

'ثم نعيد تجميد النطاق كما كان في البداية

ActiveWindow.FreezePanes = True

'ثم نعيد تشغيل خاصية تحديث الشاشة

Application.ScreenUpdating = True

'و أخيراً نعيد حماية الصفحة بدون باسوورد كما كانت

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _

True, AllowFormattingCells:=True, AllowFiltering:=True

End Sub

[mhrrd]

'سنقوم بإلغاء تجميد النطاق

ActiveWindow.FreezePanes = False

عفوا عندي بعض الاستفسارات

اي نطاق واين منطقه التجميد ؟

***

'ثم نختار نطاق أعمدة الرصد بالكامل

Columns("N:CE").Select

Range("N7").Activate

نحن حددنا نطاق الاعمده فما فائدة ان نجعل الخليه N7 نشطه وهي داحل النطاق المحدد

****

'هنا يقوم الكود بإخفاء الأعمدة غير المطلوبة

Selection.EntireColumn.Hidden = True

Range("O14").Select

Range("O14").Select

هل هذا التكرار مقصود ام انه غير ذلك ؟

لك تحياتي وشكري

[naderwatfa]

'سنقوم بإلغاء تجميد النطاق

ActiveWindow.FreezePanes = False

عفوا عندي بعض الاستفسارات

اي نطاق واين منطقه التجميد ؟

***

'ثم نختار نطاق أعمدة الرصد بالكامل

Columns("N:CE").Select

Range("N7").Activate

نحن حددنا نطاق الاعمده فما فائدة ان نجعل الخليه N7 نشطه وهي داحل النطاق المحدد

****

'هنا يقوم الكود بإخفاء الأعمدة غير المطلوبة

Selection.EntireColumn.Hidden = True

Range("O14").Select

Range("O14").Select

هل هذا التكرار مقصود ام انه غير ذلك ؟

لك تحياتي وشكري

التجميد

هو تثبيت صفوف و أعمدة معينة فيها البيانات الأساسية

لتظل ثابتة أمام خلايا الدرجات التي تختارها للرصد

بس الكود لا يحتاج لتحديد منطقة التجميد أثناء إلغاء التجميد

لأن التجميد لا يكون إلا في خلية واحدة في الورقة

لكن عند إعطاء أمر التجميد مرة أخرى

فلابد من تحديد النطاق بذكر الخلية في الكود

و هي الخلية

O14

أما التكرار فهو غير مقصود في أثناء الكتابة

يعنى و أنا باكتب الكود كررته دون قصد

لأنني أقوم بكتابة الجود بنفسي يدوياً في معظم الأحيان

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

لكنه لا يؤثر في شيء

و كذلك تنشيط الخلية

N7

زائد لا ضرورة له

أعتذر لك أخي لوجود تكرار أو زيادات في الكود

عموماً أنا مسحت التكرار من الكود في المشاركة

[mhrrd]

جزاك الله كل خير استاذ نادر

وبارك الله لك

[naderwatfa]

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

طلب بسيط من إخواني المشرفين

إذا كان بالإمكان أن تقوموا بحذف روابط التحميل السابقة لهذا الملف

و استبدالها بهذه الروابط الجديدة هنا

أو التنويه إليها في أول مشاركة

أكون شاكراً لحضراتكم

و ذلك أنني و بعض الزملاء راجعنا الملف عدة مرات

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

و أيضاً قمنا بتصويب أخطاء ظهرت فيه خلال المراجعات

حتى استقر الأمر أخيراً

و تأكدنا من صحة كل المخرجات

و لا أحب أن يقوم أحد الزملاء العاملين في الكنترول

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

لأنه ربما يقوم أحد بتحميل الملف من أول مشاركة

أو من مشاركة تالية لها

و لا ينتبه لهذه النسخة

مع رجاء التنويه إلى تاريخ رفع هذه النسخة اليوم

حتى يقوم بتحميلها و العمل بها من قام بتحميل نسخة سابقة لها

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

روابط التحميل

من هنا - رابط خاص مباشر

أو

من هنا - ميديا فاير

أو

من هنا - اختر السيرفر المناسب لك

[naderwatfa]

أرجو من السادة المشرفين حذف هذا الموضوع

و استبداله بالموضوع الجديد الموضح عنوانه هنا

حيث أنني أعدت رفع الشيت

بعد إصلاح ما اكتشف من أخطاء في إصدارات سابقة

و وضعت الملف في موضوع جديد

حتى لا يحدث لبس في التحميل لنسخة غير جيدة

الشيت الجديد في الرابط التالي

http://www.officena.net/ib/index.php?showtopic=39833

و شكراً لكم

[استاذ ياسر]

سيدى الفاضل ارجوا الرفع على سيرفر المنتدى لان جميع الروابط لا تعمل وشكرا

[alhebaly]

ارجو معرفة رابط تحميل الشيت وشكرا للمساعدة