( موضوع مميز ) ساقية توزيع الملاحظين فى قاعات الإمتحانات بطريقة مختلفة عما سبق تداولها

[عادل حنفي]

هل هذا ما تقصده

ساقية اللجان.rar

[عادل حنفي]

السلام عليكم

و هذا تعديل اخر لامكانية طبع كل من كشف ملاحظة كل من اللجان الفردية و الزوجية

تحياتي

ساقية اللجان.rar

[عادل حنفي]

و هذا تعديل اخر لاخفاء الصفوف الفارغة في كل من كشف ملاحظة كل من اللجان الفردية و الزوجية

ساقية اللجان.rar

[يوسف عطا]

أعتذر عن غيابى الإسبوع الماضى لظروف السفر

الحمدلله عدنا بسلامة الله

جارى تحميل وتجربة الملفات الأخيرة

وقبل التجربة أحب أن أقول أن فكرة إخفاء الصفوف الفارغة فى شيت الطباعة فكرة جميلة ولو أمكن أن يكون أمر الطباعة بزر يكون أجمل

سلام موقت جارى التحميل

[يوسف عطا]

الله ينور عليك يا غالى

أرجو شرح الفكرة من موضوع الزوجى والفردى

ما الغرض منها

مشكور

[ايات]

السلام عليكم

كل عام والجميع بخير وصحة جيدة

هناك مشكلة بسيطة لا اعرف هل هي عندي انا اما انها عند الحميع

وهي الملاحظ رقم 10 يتكرر مرتين حتى اني غيرت الى اسماء حقيقية ولكنه يضع لي الملاحظ رقم 10 في شيت طباعة الملاحظين هل لاحظ احد ما لاحظت ام ان الخطأ عندي لكم جزيل الشكر

اخوكم ابو ايات

[عادل حنفي]

اخي يوسف

حمدا لله علي السلامه

بالنسبه للزوجي و الفردي هي عندما يكون لكل لجنه ملاحظ فيكون الفردي و عندما يكون لكل لجنه 2 ملاحظ يكن زوجي اتمني ان لم اخطأ في فهم هذه النقطة

اخي ابو ايات

ارجو تجربة المرفق و اظهار الخطأ و رفع الملف مشيرا الي الخطأ ان وجد

تحياتي

ساقية اللجان.rar

[يوسف عطا]

أخى عادل بك حنفى

ملاحظة صغيرة لا حظتها

عندما تم التوزيع على الحدود القصوى 200 / 50 / 100 / 2

سار كل شئ تمام حتى آخر خطوة حيث لم يضع البرنامج القاعة رقم 100 فى شيت الطبع و كانت القاعة رقم 99 هى آخر قاعة فى شيت الطبع وذلك رغم أنه وزع القاعة رقم 100 فى شيت التوزيع العشوائى فى جميع المواد ولكنه لا يظهرها فى شيت الطبع

بالتأكيد يمكن وضعها يدوياً ولكن أحببت أن أوضح لك هذه الملاحظة

شئ آخر أحب أن أشير إليه

ربما يكون من الأفضل عدم إخفاء شيت الطباعة إذا عدنا لشيت التوزيع لنرى شئ ما أو لنتأكد من شئ ما لقد لا حظت أن شيت الطباعة يختفى تلقائياً إذا ذهبنا لشيت الداتا وأعتقد أنه من الأفضل ألا يتم هذا الإخفاء ولو أراد المستخدم إعادة التوزيع يمكنه حذف الشيت يدوياً

ما رأيك ؟؟

[عادل حنفي]

اخي الحبيب

هشام شلبي

اشكرك علي كلماتك التي اثلجت قلبي

بارك الله فيك

اخي يوسف عطا

في حدث Worksheet_Change

غير الجزء التالي

For i = 9 To 207

For ii = 10 To 207

الي الكودالتالي

For i = 9 To 208

For ii = 10 To 209

و سيعمل ان شاء الله و بخصوص عدم الاخفاء قم بحذف الكود التالي

Private Sub Worksheet_Deactivate()

Sheets("شيت طبع كشف الملاحظة").Visible = False

End Sub

تحياتي

[يوسف عطا]

استاذى العزيز عادل بك حنفى

عند التوزيع التالى

200 / 20 / 90 / 2

مع توزيع الإحتياطى يدوياً بحيث كل مادة بها 20 ملاحظ إحتياط وكل ملاحظ كان إحتياطياً مرتين طوال مدة سير الإمتحانات أى تساوى الجميع فى عدد مرات وجودهم فى الإحتياط

حدث الآتى

فى شيت الطبع لم يتم ترحيل جميع الإحتياطيين الـ 20 إليه من شيت التوزيع العشوائى ومع التكرار وإعادة التجربة بنفس الإعدادات إستمرت المشكلة

وكذلك نفس الأمر فى حالة لم يتم توزيع الإحتياطى يدوياً

هل يمكن بعد تدارك هذا الأمر أن يتم وضع مسلسل تلقائى للإحتياطيون فى العمود الواقع قبل إسماء الملاحظين الإحتياطيين

أنتظر تعليقك يا أخى الغالى

[ايات]

الاخ الفاضل /عادل

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

اسف عندي مشكلة في رفع الملف

ولكن عندا قمت بجعل عدد الملاحظين 20 وعدد القاعات 9 وعدد المواد 6 واللجنة بها عدد 2 ملاحظ

عند كشف الطباعة حدث ان الملاحظ 10 تكرر في لجنتين

والملاحظ 10 ياخذ مكان الملاحظ 20 اي انه يكون مرة صحيح في مكانه والمرة الاخري يكون مكان الملاحظ رقم 20 واسف لعدم القدرة الان على رفع الملف

[عادل حنفي]

اخي يوسف

الكود التالي في حدث Worksheet_Change

With Columns(5).Rows(229).End(xlUp)

غيره الي

With Columns(5).Rows(250).End(xlUp

اخي ابو ايات

سيتم المراجعة

تحياتي

[يوسف عطا]

أخى الغالى عادل بك

تم المطلوب كما تفضلت

و بالنسبة لما لاحظه الأخ ابوآيات

مرفق صورة توضح المشكلة

وحضرتك لم ترد عليا بخصوص إمكانية عمل مسلسل تلقائى للإحتياطيون فى شيت الطبع

By youssefata at 2011-08-08

By youssefata at 2011-08-08

[عادل حنفي]

اخي ابو ايات

اخي يوسف

ارجو تجربة الملف الان

تحياتي

ساقية اللجان.rar

[عادل حنفي]

و هذا الملف مع تعديلات اخري تم ضبطها

ساقية اللجان.rar

[عادل حنفي]

تم اضافة الطباعة لكل المواد او لمادة معينة

لكل من الشيت الفردي او الزوجي مع تحديد الهوامش

ساقية اللجان.rar

[عادل حنفي]

تم اضافة المسلسل الي الاحتياطي

ساقية اللجان.rar

[يوسف عطا]

أخونا الغالى عادل بك حنفى

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

بالنسبة للمسلسل الخاص بالإحتياطى فى بعض الأحيان يكون غير مظبوط فالإحتياطيين يكونون مثلاً 20 يعرض منهم فقط 16 أو 17

وفى بعض الأحيان المسلسل يتخطى بعض الأرقام

وبالنسبة لشيت الطبع فى بعض المرات لا يعرض كل القاعات فمثلاً فى الإعدادات القصوى 200 / 50 / 100 / 2

قام بعرض القاعات حتى قاعة رقم 35 ولم يعرض الباقى

وعلى الله قصد السبيل

[يوسف عطا]

الأخ الغالى عادل بك

يبدو أننا هانتعبك معانا شوية كمان

الجزءالخاص بالإحتياطى ساعات بيهيس

1. ساعات الإحتياطى بيكون 20 ملاحظ وهو ما بيحطش فى جدول الإحتياطى غير 17 فى شيت الطبع مع إن عددهم بيكون مظبوط فى شيت التوزيع الداتا

2. ساعات مش بيحط المسلسل مظبوط مثلاً يتخطى بعض الأرقام

3. عندما يتم مسح البيانات بإستخدام زر ديليت فى شيت الداتا بعض البيانات فى شيت الطبع فى جدول الإحتياطيين تظل موجودة ولا يتم مسحها مع باقى البيانات فى الصفوف من 230 إلى 250

هل ممكن أطمع وأطلب كود سلسلة الإحتياطيون فقط مع الشرح ؟؟

لى إستفسار آخر عن المعادلة بالخلية A1

ما الهدف منها ؟؟ ويفضل أن تنقل لخلية أخرى خارج نطاق الطباعة حيث سيكتب فى مكانها إسم المحافظة أو الإدارة التعليمية

[عادل حنفي]

اخي يوسف

ليس هناك تهييس و لا شيئ بل هي بيانات زائدة عن المدي الذي يسمح

به البرنامج و عند التعدي علي ذلك تجد ما تسميه النهييس

غير الجزء التالي من الكود

If Sheets("شيت طبع كشف الملاحظة").Cells(i, 22) <> "" Then

With Columns(4).Rows(229).End(xlUp)

الي التالي

If Sheets("شيت طبع كشف الملاحظة").Cells(i, 22) <> "" Then

With Columns(4).Rows(300).End(xlUp)

و ايضا هذا يؤثر علي التسلسل

اما بخصوص عرض القاعات انا جربت عندي البرنامج بنفس المواصفات التي ذكرتها و ظهرت عندي 50 قاعة

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

ثانيا يجب الا تغيير اي شيئ في صفحةdata يدويا فالتغيير يجب ان يكون في صفحة شيت البيانات تم الضغط علي creat ليقوم بالغاء الشيت القديم ان وجد

و بالضغط عليه مرة اخري يدرج لك الشيت الجديد و ما عليك فعله فقط هو الضغط علي Do Job لملأ البيانات دون تدخلك

و اذا كان هذا ما تم ارجو رفع ملفا يحتوي علي الخطأ

تحياتي

[جلال محمد]

اخي عادل رمضان كريم

عمل رائع ومجهود عظيم

كنت من المتابعين للموضوع وهو وليد في البداية

ولي فكرة ارجو وضعها في هدا المشروع العظبم

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

فاقترح ان يتم وضع علامه او حرف بطريقة يدوية في الخلية المقابلة لمعلمو المادة لهدا اليوم مثل فكرة وضع الاحتياطى

بحيث لا يتم توزيعهم في الاحتياطى او اللجان

جعل الله اعمالك في موازين حسناتك ان شاء الله

[عادل حنفي]

اخي جلال

اولا مرحبا بك

و انا تخليت ما ذكرته الان و هناك ان شاء الله امكانية لعمله و لكن اتخيل ان امامها عقبات صغيرة تحل ان شاء الله

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

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

تحياتي

[يوسف عطا]

أستاذى عادل بك

هل ممكن أطمع وأطلب كود سلسلة الإحتياطيون فقط مع الشرح ؟؟

لى إستفسار آخر عن المعادلة بالخلية A1

ما الهدف منها ؟؟ ويفضل أن تنقل لخلية أخرى خارج نطاق الطباعة حيث سيكتب فى مكانها إسم المحافظة أو الإدارة التعليمية

[يوسف عطا]

اخي عادل رمضان كريم

عمل رائع ومجهود عظيم

كنت من المتابعين للموضوع وهو وليد في البداية

ولي فكرة ارجو وضعها في هدا المشروع العظبم

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

فاقترح ان يتم وضع علامه او حرف بطريقة يدوية في الخلية المقابلة لمعلمو المادة لهدا اليوم مثل فكرة وضع الاحتياطى

بحيث لا يتم توزيعهم في الاحتياطى او اللجان

جعل الله اعمالك في موازين حسناتك ان شاء الله

أستاذ جلال

مرحباً بك فى موضوعك

بالنسبة لمعلمى المادة لا يلاحظون فى مادتهم أثناء إمتحانها

هذا ببساطة يمكن أن يتم بوضع حرف ح يدوياً أمام اسمائهم فى شيت التوزيع العشوائى

وكما علمت حضرتك هذا البرنامج سيكون شاملاً لجميع المراحل التعليمية من الإبتدائى وحتى المعاهد والكليات بل وايضاً فى أى إمتحانات تحتاج لملاحظين

ولذلك فوضع الإحتياط يدوياً يفيد فى طلبك وفى نفس الوقت يفيد فى تلبية بعض طلبات الزملاء بالبقاء إحتياطياً فى مدادة ما أو فى يوم ما

دمت بود

[عادل حنفي]

اخي يوسف

كود المسلسل مع وضع الاحتياطي هو

n = 1

For i = 10 To 207

If Sheets("شيت طبع كشف الملاحظة").Cells(i, 22) <> "" Then

With Columns(4).Rows(300).End(xlUp)

.Offset(1, 0) = n

.Offset(1, 1) = Sheets("شيت طبع كشف الملاحظة").Cells(i, 23)

End With

End If

n = n + 1

Next

اخي بالنسبة للخلية A1 يتم استخدامها بالكود اذا كنت تريد استخدامها يجب تغيرها الي خلية اخري بمراجعة الكود و التعديل عليه