جدول الدروس الاسبوعي بالطريقة العراقية

[عامر ياسر]

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

الملف يحتوي على جدول دروس اسبوعي فيه الشرح ثقتي بكم عالية للوصول الى طريقة في

مساعدتي في اكمال الجدول

جزاكم الله كل خير على كل ما تقدموه لنا من علم وخبره

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

وكم تعلمنا من هذا المنتدى العظيم دائما نطمع زيادة في اثراء الموضوع حبا منا لكم وحبا في هذا المنتدى العظيم وزيادة في العلم

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

اكرر شكري وامتناني لكل الأساتذة الكرام  جزاهم الله كل خير ومحبه وتوفيق

وشكرا

 

جدول الدروس الاسبوعي 2015-2016.rar

[ياسر خليل أبو البراء]

أخي الكريم عامر ياسر

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

اطلعت على الملف ولم أقهم المطلوب بشكل جيد .. هلا أوضحت الخلايا المطلوب جلب البيانات منها والخلايا المطلوب جلب البيانات إليها (اضرب مثال أو مثالين لتتضح الفكرة)

 

[عامر ياسر]

استاذنا الكريم ياسر خليل أبو البراء

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

[ياسر خليل أبو البراء]

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

أرجو ألا أكون أثقل عليك بإلحاحي بالتوضيح والتفصيل

[عامر ياسر]

عذرا للتاخير بعض التعديلات اتمنى ان يكون الشرح واضح ( الشرح داخل الملف ) 

جدول الدروس الاسبوعي تعديل.rar

[ياسر خليل أبو البراء]

أخي الكريم

صدقني ما زال الموضوع غامض بالنسبة لي .. أخبرتك أن تتحدث بلغة الإكسيل ..

ما هي ورقة العمل المطلوب العمل عليها؟

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

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

وهل المطلوب جلب بيانات من جدول لجدول ؟ أم أن المطلوب توزيع الحصص حسب جدول ما؟ وإذا كان الطلب توزيع للحصص فما هي شروط التوزيع بالتفصيل؟

الموضوع يحتاج لمزيد من الشرح (بلغة الإكسيل)

 

[عامر ياسر]

استاذنا الكريم ياسر خليل أبو البراء

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

جدول الدروس الاسبوعي المعدل.rar

[ياسر خليل أبو البراء]

أخي الكريم عامر ياسر

يبدو لي أن الطلب مختلف تماماً عما قمت بتوضيحه من قبل

عموماً حسب الملف المرفق الأخير ..قم بوضع الكود التالي في حدث ورقة العمل

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("C8:AD40")) Is Nothing Then
        If IsNumeric(Target) And Application.WorksheetFunction.CountIf(Range(Cells(Target.Row, 3), Cells(Target.Row, 30)), Target.Value) > 1 Then
            MsgBox "No Way. Duplicate!", 64
        End If
    End If
End Sub

 

 

[عامر ياسر]

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

[عامر ياسر]

ابدعتم في اجابتكم استاذنا الكريم ( ياسر خليل أبو البراء)  بقى سؤال هل يمكن اذا وجد الرقم مكرر يقوم البرنامج بعدم ادراجة في الخلية ..... ارجو ان يكون السؤال واضح ... ربنا يحفظكم بحفظه انه سميع الدعاء 

[ياسر خليل أبو البراء]

جرب التعديل التالي ليناسب طلبك

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("C8:AD40")) Is Nothing Then
        If IsNumeric(Target) And Application.WorksheetFunction.CountIf(Range(Cells(Target.Row, 3), Cells(Target.Row, 30)), Target.Value) > 1 Then
            Application.EnableEvents = False
                Target.ClearContents
                MsgBox "No Way. Duplicate!", 64
                Target.Activate
            Application.EnableEvents = False
        End If
    End If
End Sub