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

نتيجة محاوله دامت لاكثر من ساعتين ونصف بشرح مفصل 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