يوسف عطا

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

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

الأخ الغالى عادل بك يبدو أننا هانتعبك معانا شوية كمان الجزءالخاص بالإحتياطى ساعات بيهيس 1. ساعات الإحتياطى بيكون 20 ملاحظ وهو ما بيحطش فى جدول الإحتياطى غير 17 فى شيت الطبع مع إن عددهم بيكون مظبوط فى شيت التوزيع الداتا 2. ساعات مش بيحط المسلسل مظبوط مثلاً يتخطى بعض الأرقام 3. عندما يتم مسح البيانات بإستخدام زر ديليت فى شيت الداتا بعض البيانات فى شيت الطبع فى جدول الإحتياطيين تظل موجودة ولا يتم مسحها مع باقى البيانات فى الصفوف من 230 إلى 250 هل ممكن أطمع وأطلب كود سلسلة الإحتياطيون فقط مع الشرح ؟؟ لى إستفسار آخر عن المعادلة بالخلية A1 ما الهدف منها ؟؟ ويفضل أن تنقل لخلية أخرى خارج نطاق الطباعة حيث سيكتب فى مكانها إسم المحافظة أو الإدارة التعليمية

أخونا الغالى عادل بك حنفى يبدو أننا سنتعبك كثيراً معنا فنرجو منك السموحة بالنسبة للمسلسل الخاص بالإحتياطى فى بعض الأحيان يكون غير مظبوط فالإحتياطيين يكونون مثلاً 20 يعرض منهم فقط 16 أو 17 وفى بعض الأحيان المسلسل يتخطى بعض الأرقام وبالنسبة لشيت الطبع فى بعض المرات لا يعرض كل القاعات فمثلاً فى الإعدادات القصوى 200 / 50 / 100 / 2 قام بعرض القاعات حتى قاعة رقم 35 ولم يعرض الباقى وعلى الله قصد السبيل

كود جميل للأستاذ الكبير خبور خير كود فتح الشيت بباس وورد Private Sub Worksheet_Activate() On Error Resume Next Dim XX As String, S As String Dim K As Integer, N As Integer Me.Columns.Hidden = True For K = 1 To 3 XX = InputBox(Prompt:="فضلا ادخل كلمة المرور", Title:="المحاولة رقم:" & K) If XX = "" Then Sheets("Main").Select Exit Sub ElseIf XX <> "***" Then N = 3 - K If N = 0 Then S = "" Else S = "متبقي عدد " & N & " محاولة" MsgBox "كلمة المرور ليست صحيحة" & Chr(13) & Chr(13) & S, vbCritical + vbMsgBoxRtlReading + vbMsgBoxRight, "عفواً" Else Exit For End If Next K If K = 4 Then Sheets("Main").Select Exit Sub Else Me.Columns.Hidden = False Columns("AD:IU").EntireColumn.Hidden = True End If On Error GoTo 0 End Sub يوضع الباسوورد مكان الـ 3 نجوم *** باسوورد للشيت.rar

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

ربنا يزيدك يا عم دغيدى وتغرقنا بكرمك كمان وكمان

الأخ شمس الثورة راجع هذا الموضوع http://www.officena.net/ib/index.php?showtopic=37914 وخاصة هذا الفيديو التعليمى وإن شاء الله ستجد طلبك الفيديو للأخ الفاضل معتصم محمد

حلول ممتازة بارك الله فيكم جميعاً من سأل ومن أجاب ومن قام بإثراء الموضوع ومن شكر وكل عام وأنتم بخير

أخى الغالى عادل بك تم المطلوب كما تفضلت و بالنسبة لما لاحظه الأخ ابوآيات مرفق صورة توضح المشكلة وحضرتك لم ترد عليا بخصوص إمكانية عمل مسلسل تلقائى للإحتياطيون فى شيت الطبع By youssefata at 2011-08-08 By youssefata at 2011-08-08

الف مبروك على صدور نشرة أوفيسنا الدورية نشرة نصف شهرية تصدر عن منتدى أوفيسنا مدير التحرير : عبد الله المجرب النشرة الدورية لمواضيع المنتدى http://www.officena.net/team/news/news%2001.htm و ستصدر النشرة دوريا بصورة نصف شهرية بإذن الله تعالى لتنزيل الملف فى صيغة Pdf او التعليق http://www.officena.net/ib/index.php?showtopic=37910

استاذى العزيز عادل بك حنفى عند التوزيع التالى 200 / 20 / 90 / 2 مع توزيع الإحتياطى يدوياً بحيث كل مادة بها 20 ملاحظ إحتياط وكل ملاحظ كان إحتياطياً مرتين طوال مدة سير الإمتحانات أى تساوى الجميع فى عدد مرات وجودهم فى الإحتياط حدث الآتى فى شيت الطبع لم يتم ترحيل جميع الإحتياطيين الـ 20 إليه من شيت التوزيع العشوائى ومع التكرار وإعادة التجربة بنفس الإعدادات إستمرت المشكلة وكذلك نفس الأمر فى حالة لم يتم توزيع الإحتياطى يدوياً هل يمكن بعد تدارك هذا الأمر أن يتم وضع مسلسل تلقائى للإحتياطيون فى العمود الواقع قبل إسماء الملاحظين الإحتياطيين أنتظر تعليقك يا أخى الغالى

الأخ عبدالله المجرب الأخ هشام شلبى بارك الله فيكما وجعل أعمالكا فى موازين حسناتكما

أخى عادل بك حنفى ملاحظة صغيرة لا حظتها عندما تم التوزيع على الحدود القصوى 200 / 50 / 100 / 2 سار كل شئ تمام حتى آخر خطوة حيث لم يضع البرنامج القاعة رقم 100 فى شيت الطبع و كانت القاعة رقم 99 هى آخر قاعة فى شيت الطبع وذلك رغم أنه وزع القاعة رقم 100 فى شيت التوزيع العشوائى فى جميع المواد ولكنه لا يظهرها فى شيت الطبع بالتأكيد يمكن وضعها يدوياً ولكن أحببت أن أوضح لك هذه الملاحظة شئ آخر أحب أن أشير إليه ربما يكون من الأفضل عدم إخفاء شيت الطباعة إذا عدنا لشيت التوزيع لنرى شئ ما أو لنتأكد من شئ ما لقد لا حظت أن شيت الطباعة يختفى تلقائياً إذا ذهبنا لشيت الداتا وأعتقد أنه من الأفضل ألا يتم هذا الإخفاء ولو أراد المستخدم إعادة التوزيع يمكنه حذف الشيت يدوياً ما رأيك ؟؟

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

مبدع كالعادة أخى خبور جازاك الله خيراً

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

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

الأخ الكريم والفاضل عادل بك حنفى الملف الأخير ممتاز ووافى ونقدر نقول هو ده ما نتمناه لى ملحوظة صغيرة قد أكون فشلت فى شرحها وهى إسم المادة التى سيوضع فى الكشف الذى سيتم طبعه لن يكون بالرقم ولكنه سيكون بالإسم وعلى كل حال لحل هذه القضية الرجاء فى الملف المرفق أن تفك الربط بين الخلية F5 و الخلية L7 مع الإبقاء على كل شئ كما هو ولاحظ أنه سيقوم مستخدم البرنامج بكتابة أسماء المواد بنفسه وبترتيب موعد إمتحانها فى العمود M تحت كلمة أسماء المواد بالنسبة للون اللبنى أو الأزرق الذى يظهر عندى بالثلث الأيسر من الملف يبدو أنه خطأ عندى فى الأوفيس طالما لا يظهر مع الأخوة الذين جربوا الملف الرجاء العمل على الملف المرفق حيث تم تعديل بسيط فى الصفوف المكررة لأعلى فى شيت طبع الكشوف والحمدلله على كل حال الملف بالوضع الحالى غاية فى الإمتياز ساقية اللجان.rar

الله الله الله لا أروع من ذلك استاذى الغالى عادل بك حنفى البرنامج يعمل تمام التمام وبدون أى أخطاء خاصة فى حالة وضع الإحتياطى يدوياً الف الف الف شكر يا غالى ربنا يجعله فى ميزان حسناتك تتبقى فقط نقطة الترحيل لشيت طبع الكشوف ولا تنسى أن الترحيل سيكون حسب رقم المادة وليس إسمها بالنسبة للقائمة المنسدلة التى تقوم بترحيل الملاحظين إلى كشف الطباعة أرجو أن تكون فى الخلية M7 وذلك لأن الخلية F5 ستظهر فيها قائمة منسدلة أخرى ليست برقم المادة ولكن بإسم المادة تلك التى سيكتبها المستخدم فى العمود L تحت كلمة المواد فهى تكون مختلفة من مرحلة لمرحلة ونحن كما تعلم نريد أن يكون البرنامج صالح لمختلف المراحل التعليمية وحضرتك لم ترد عليا بخصوص الجزء الأيسر من الملف حيث يظهر عندى بلون لبنى فى جميع الشيتات ولا تظهر به أى بيانات هل حضرتك مظبط حاجة فى الكود بحيث لا تعرض الأعمدة فى يسار الشاشة إلا لو صغرنا نسبة الرؤية ؟؟ أم أن هذا بسبب خطأ لا أعلمه عندى فى الإيكسيل ؟ مرة أخرى أقول لك الف الف الف شكر والحمدلله على إكتمال كود التوزيع كما ينبغى

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

أعمال رائعة وتستحق أن ننوه عنها كل فترة مشكورين جميعاً

جل من لا يخطئ أخونا الغالى دمت بكل ود

الرجاء إرفاق ملف به الداتا وسيتم تلبية طلبك إن شاء الله

أستاذ أحمد ربما يكون الحل التالى يفيد بخصوص الصفوف وبنفس الطريقة والله أعلم Sub Macro1() ActiveSheet.Standardhigh = 18 End Sub ولعكس العملية Sub Macro2() ActiveSheet.Standardhigh = 0 End Sub هل هذا صحيح أستاذنا الكبير ؟؟