عبدالله باقشير

السلام عليكم اخى الكريم جلال ________ حفظه الله درجة الطالب محددة في الكود ان تكون اكبر من 50 في السطر If .Cells(R, NN) >= 50 Then قم بتعديلها الى الدرجة التي تريدها وسنعمل حساب الملاحظة دي في اصدار آخر بحيث تعدل في بداية الكود خبور خير

السلام عليكم الاخ الفاضل / كات ________-حفظه الله ان شاء الله تقبل تحياتي وشكري

السلام عليكم الاخ الحبيب نادر ____________-حفظه الله الملاجظة 1 و 3 هذه ممكن نعملها ما في مشكلة لكن الملاحظة 2 هي التي ساحاول باذن الله ان نعمل لها حل لاني طبقتها على الملف ( الخطة الأوتوماتيكية مستوى 2 ) وبرضه ما زالت المشكلة موجودة وانت تقول هل جربتها انت على هذا الملف ؟؟

السلام عليكم الان ان شاء الله الرابط يعمل تقبلوا تحياتي وشكري

السلام عليكم الاخ الحبيب نادر ____________-حفظه الله نفذنا الاقتراح المطلوب وقد اخذ مني بعض الوقت والفحص لأن ذلك يعطينا فرصة التجريب بشكل كامل لكل معطيات و مخرجات الجدول حسب ماذكرت اعلاه ========================================================================= وانا لا يوجد لديا اي مانع باضافة اي شي من قبلكم او من غيركم لان هدفنا الحقيقي من العمل هو نشر المعرفة والسمو بها الى اعلى المراتب قدر المستطاع ان كان مني او من غيري بدون تحفظ في هذا الملف من ملفاتي او في ملف أخر لا يوجد عندي اي مانع في التطوير بل واحث عل ذلك وساجعل هذا اعلانا وتوكيلا انه ليس لي اي حقوق محفوظة في اي عمل من اعمالي من اراد تطويرها وطرحها بشكل اخر فليفعل وان نسب العمل لنفسه فليس عندي اعتراض بل انا ساستفيد من ذلك لان اجري عند الله محفوظ ولن يائر هذا في شي =========================================================================== واثنا ء دمج الملف وضعت مثالك الاخير فيه لتراه ثم لنا حديث اخر تفضل المرفق البرنامج مع الخطة الاتوماتيكية2.rar

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

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

السلام عليكم الاخوه الافاضل: نادر - khhanna - يحي - جلال - محمدي - قصي - الحسامي - امير ________حفطكم الله تقبلوا تحياتي وشكري اخي الحسامي _____ شكرا على الاثراء ولكن عليك ان تراجع الكود وخاصة الترتيب عمود المجموع ودمتم في حفظ الله

السلام عليكم الله يحفظك من كل مكروه انت واهلك وذويك وكل من تحب وهذا اهم من كل شي وبعده لنا حديث

السلام عليكم عفوا تفضلوا الملف تجربة4.rar

السلام عليكم شكرا لهذه المداخلات المثمرة ============================== بالنسبة لعمل الخطة انا شخصيا لم تعجبني عملية الادخالات لمعلومات البرنامج وخاصة انه يتم تكرارها اولا في الرئيسية ثم الاختيار من ورقة الخطة لذا عملت المرفق التالي وفيه: اولا : سيتم ادخال المعلومات والتي لا يوجد فيها تكرار في الرئيسية في الجدول العام للخطة ستتم الاختيارات المطلوبة ومن ضمنها فصول المدرس وهنا سيكون لك حرية تكرار المدرس و تغيير المادة وتغيير الفصول ثانيا: عملت نموذج لادخال الايام المغلقة والحصص المغلقة واتجاه البعثرة وسيتم عمل نموذج لاختيار فصول المدرس ثالثا: اريد من الاخ نادر تجربة المرفق لانني غيرت في كود الخطة من ناحية تكرار الفصل في اليوم في حالة اغلاق بعض الايام مع عمل استراحة للمدرس اذا وجدت حصص كافية. اريدك ان تكرر المثال للاسم الاول في هذا الملف في المرفق السابق وانظر الفرق بينهما منتظر ردودكم

السلام عليكم

السلام عليكم جمعة مباركة ترتيب العشرة الطلاب الاوائل تعديلات جديدة على الكود ويمكن نقل الورقة مع الكود الى اي ملف مع تغيير المعطيات اولا في في بداية الكود هنا '********************************************** '********************************************** 'نطاق البيانات اما ان يكون اسم لنطاق ' او عنوان النطاق مع اسم الورقة Const My_Date As String = "الشيت!$A$11:$EA$1000" '********************************************** 'ارقام الاعمدة توضع بالنسبة لنطاق البيانات المسمى وليس للورقة ' عمود رقم الجلوس Const cSeat_Number As Integer = 2 ' عمود الاسم Const cStudents As Integer = 3 ' عمود الفصل Const cClass As Integer = 13 '********************************************** '********************************************** ثم في الورقة المسمى الاوائل لمعطيات الجداول وفي الورقة تعليمات للادخالات حسب عملك خبور خير تفضلوا المرفق خبور خير ترتيب العشرة الاوائل بالكود4.rar

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

السلام عليكم اخي الفاضل نادر __________حفظه الله عملت تعديل في المرفق تاكد من صحته واخبرنا بالنتائج ملحوظة: اضفت تنسيق شرطي للاغلاقات المختارة من جدول الحصص المغلقة وجدول الايام المغلقة الخطة الاتوماتيكية مستوى 2.rar

الاخ الفاضل / يحي و

الاخ الفاضل / ابو عبدالله و

السلام عليكم اخي الفاضل نادر -----------حفظه الله الله يكرمك دنيا واخرة بالنسبة : وهذه الملاحظة من اخي دغيدي ان شاء الله توصلنا الى حل هذا الاشكال شاهدوا المرفق الخطة الاتوماتيكية مستوى 2.rar

السلام عليكم اخي نادر الظاهر انه انت الذي سيكون له نصيبا من اجر هذا العمل فانت متابعا وفاحصا لي البرنامج بشكل مستمر لقد توصلت الان الى تعديلات اخرى وان شاء الله نكون قربنا خطوة تفضل المرفق واخبرني بالنتائج خبور خير الخطة الاتوماتيكية مستوى 1.rar

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

الاخ الفاضل / kemes و

السلام عليكم اخي الخضر بارك الله فيك على هذا الشرح الوافي ولكن فيه اختلافات كثيرة عن ما نحن بصدده ولقد رايت مسبقا مرفقا لكم مرتب وجميل ولكنني لم استوعب المطلوب جيد افيدك علما انني لست مدرسا ولكنني احاول ان استوعب طلباتكم بقدر المستطاع واحيانا تفوتنا الكثير من الامور ===================================== اخواني الكرام في هذا المرفق تقدمت خطوة في انجاز العمل اريد الاطلاع على المرفق ونحن اذان صاغية ودمتم في حفظ الله خبور خير الخطة الاتوماتيكية9.rar

السلام عليكم استخدمنا دالة kh_Name دالة استخراج الاسماء من اسم مركب طويل وهي معمولة بالكود وذلك لاستخراج الاسم الاول في العمود D Option Explicit ' بسم الله الرحمن الرحيم " '======================================" ' دالة استخراج الاسماء من اسم مركب طويل ' kh_index بدلالة ترتيب الاسم '======================================" ' kh_index ' اذا كانت مهملة او نصاً او صفرا ' تقوم باستخراج الاسم الاول '======================================" ' وهي تقوم بإستخراج الاسماء المركبة ' للاسم الواجد ' تلقائياً حسب معايير معرفة لديها ' MyArray في متغير الجدول ' ويمكنك اضافة اي معيار آخر ' بجانب المعايير الموجودة ' مع مراعاة وجود فراغ بداية ' او نهاية المعيار '======================================" '----------------------------------------------------------------- Function kh_Name(Name As String, Optional kh_index = 1) As String Dim kh_ind As Integer Dim kh_Split, MyArray, Ar Dim Kh_String As String, Sn As String, Re As String, kh_Split_index As String, Kh_Rep As String On Error GoTo Err_Kh_Name kh_ind = Val(kh_index) If kh_ind = 0 Then kh_ind = 1 '====================================== MyArray = Array("عبد ", "أبو ", "ابو ", "آل " _ , " الله", " الدين", " الإسلام", " الاسلام", " الحق") '====================================== Sn = Application.WorksheetFunction.Trim(Name) For Each Ar In MyArray Re = Replace(Ar, " ", "^") Sn = Replace(Sn, Ar, Re) Next '====================================== Kh_String = Sn kh_Split = Split(Kh_String, " ", , vbTextCompare) kh_Split_index = kh_Split(kh_ind - 1) Kh_Rep = Replace(kh_Split_index, "^", " ") kh_Name = Kh_Rep Exit Function Err_Kh_Name: kh_Name = "" End Function نموذج_1.rar

السلام عليكم الاخ الفاضل / دغيدي _________-جفظه الله هذه اذا كان عدد ايام الاسبوع مساوية لعدد فصول المدرس قد لاحظتها من سابق وسنعالج هذه المشكلة تقبل تحياتي وشكري