خالد عبد الغفار

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

Sub DistributeCommitteeRoles()
    ' تعريف المتغيرات
    Dim wsTeachers As Worksheet
    Dim wsCommittees As Worksheet
    Dim lastRowTeachers As Long
    Dim lastRowCommittees As Long
    Dim teacherRow As Long
    Dim committeeRow As Long
    
    ' تعيين ورقة العمل "tb_tashkeel"
    Set wsTeachers = ThisWorkbook.Sheets("tb_tashkeel")
    
    ' تحديد آخر صف في ورقة العمل "tb_tashkeel"
    lastRowTeachers = wsTeachers.Cells(wsTeachers.Rows.Count, "A").End(xlUp).Row
    
    ' تعيين ورقة العمل "tb_lgan"
    Set wsCommittees = ThisWorkbook.Sheets("tb_lgan")
    
    ' تحديد آخر صف في ورقة العمل "tb_lgan"
    lastRowCommittees = wsCommittees.Cells(wsCommittees.Rows.Count, "A").End(xlUp).Row
    
    ' حلقة لتحديد اللجان وتوزيع الأدوار
    For teacherRow = 2 To lastRowTeachers ' نبدأ من الصف 2 لتجنب العناوين
        ' الشروط التي يجب تحقيقها لتوزيع الأدوار
        If wsTeachers.Cells(teacherRow, "work_cod").Value = 1 Then
            ' استدعاء دالة لتوزيع الأدوار
            DistributeRoles wsTeachers.Cells(teacherRow, "teach_cod").Value, wsTeachers.Cells(teacherRow, "gov_cod").Value
        End If
    Next teacherRow

    ' رسالة تأكيد عند الانتهاء
    MsgBox "تم توزيع الأدوار بنجاح!", vbInformation
End Sub

Sub DistributeRoles(teacherCode As Long, teacherGovCode As Long)
    ' يمكنك هنا تكميل الكود بتحديد وتوزيع الأدوار وفقًا لمتطلباتك
    ' يمكنك استخدام الأوامر SQL لاستعلام قواعد البيانات أو الشيتات المعنية
    ' على سبيل المثال: "SELECT * FROM tb_lgan WHERE gov_cod <> " & teacherGovCode
    
    ' يمكنك أيضًا تحديد الأفراد المؤهلين لتولي دور معين وتخزين رقم اللجنة في جدول tb_tashkeel
    ' يُفضل استخدام وظائف مساعدة لتحقيق ذلك بشكل فعّال
    ' يمكن أن يكون ذلك بمثابة نقطة بداية للتعديل وفقًا لاحتياجاتك الفعلية
End Sub
 

فعلا غبى جدا حاولت اخلية يكتب كود توزيع رؤساء لجان ومراقبين اوائل على مستوى عام ( الجمهورية ) وكانت النتائج مخيبه للامال

تفضل 

كود التوزيع لأستاذنا الفاضل جعفر وتعديل الآحتياطى ساعدنى فيه احد الأصدقاء للامانه انا عملت تقرير f1  يمكنك تتبع مصدره توزيع الملاحظين.rar

الف شكر لك استاذنا / Barna

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

تقبل تحياتى

كل الشكر لك استاذنا

نجرب ما تفضلتم به على برنامج العمل ونوافيكم بالنتيجة استاذنا 

تقبل تحياتى

لو امكن استاذنا / Barna

نرى التطبيق على المرفق لنطبقه على بيانات متكامله تخص العمل لنستطيع الحكم عليه

شكرا لك ولاستاذنا /kanory

على تعبكما

أشكرك استاذنا على هذا المجهود

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

مرحبا بك اخى الفاضل مرة أخرى 

يمكن أن يكون السبب الصفر الموجود بالدرجة اثناء التجربة انا حذفته فى الصوره اللى ارفقتها

اهلا بك استاذنا / kanory

الرقم ده طالب مثلا 3 مواد من 9 رياضه ورسم فنى ومساحه ودول مثلا المطلوب ظهورهم فقط امام رقمه واخفاء باقى المواد الخاليه بدرجاتها

الصفر الموضوع مكان الدرجه ممكن بس من التجارب فقط 

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

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

                           تحياتى للجميع

بالمرفق جدول يحتوى على المواد التى يود الطالب ان يتقدم يتظلم بها ( tazalumat )عملت لها تقرير( tazlme ) وبحثت عن اخفاء المواد الخاليه بدرجة الماده ثم المحاذاه افقيا لم اتوصل للمراد فهل يمكن تحويل الصفوف الى اعمده لتظهر بنفس الآليه الموجودة بجدول ( tazalumat_1 ) ليكون ناتجها الموجود بتقرير 1

 ارجو ممن لديه الخبرة المساعدة إن أمكن وللجميع تحياتى

مواد التظلم.rar

استاذنا الفاضل جعفر

تحياتى لشخصكم النبيل

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

وجزاكم الله خير الجزاء وسدد خطاك

جزاك الله خير الجزاء استاذنا ومعلمنا الجليل

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

تمام استاذنا الفاضل / جعفر

تم تعديل الكود وإدراج كم اكثر من البياننات لاكتشاف البطء

تقرير احصاء.rar

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

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

تقرير احصاء.rar

ياسيدى ده صوره من تقرير من برنامج اكسيس الهد فقط اللى مستورده من اكسيل داخل التقرير

ممكن حضرتك تبعت حاجه مصغره للمطلوب من شغلك نطبق عليها بأمر الله

شوف كده

يمكن التحايل باستيرادها من اكسيل لأنها غير متوافره فى اكسيس

كل عام وانتم بخير استاذ حمدى

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

السلام عليكم استاذنا 

لو بتشتغل على برنامج صناعى كنترول مثلا

وده واللى فهمته من اختصارك للشعب يبقى لازم تعمل جدول للداتا (البيانات) ثم جدول للشعب الكهربية والنسجيه الخ وجدول للمواد او التخصصات داخل كل شعبه وبعد كده بتعمل العلاقات (الربط )

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

تفضل هذه المحاولة 

ولكن من وجهة نظرى المتواضعة أرى أنه من الأفضل أن تعمل جدول للشعب

Info list.rar

أرجو منك أخى الفاضل ان تنتبه الى ما أشار اليه استاذنا أبو البشر

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

                                                     بالتوفيق

ويمكن هكذا أيضا

Database1.rar

تفضل هل هذا ما تريد

Database1.rar

تمام استاذنا الفاضل / kanory

وألف شكر لك وكل عام وانتم بخير مرة أخرى