كل الانشطه

أخي الكريم @أحمد عمروف ، سؤال للتوضيح بخصوص النقطة أعلاه فيما يخص الجدول الرابع ، ما تقصده هل سيتم ادراج التوزيعات فيه ؟؟؟؟؟؟؟؟ صدقاً قرأتها عدة مرات وبادرني الشك حول صحة ما فهمته سابقاً .. لا عليك ، الحال من بعضه هههههههه 🔥 سؤالان فقط قبل أن أبدأ بتحديد مساري في التنفيذ لأنه متشعب جداً :- هل تريد أن نحسب تاريخ اللياقة تلقائيًا بربط نهاية الشفوي مباشرة + تخطي العطل؟ أم يكفي أن نسجل تاريخ بداية الشفوي (31/5/2025) وبعدها نحسب اللياقة يدويًا؟ عند توزيع جلسات اللياقة لو كان عندنا عدد أقل من 70 أو 60 في بعض الأيام ، هل نترك الجلسة ناقصة كما هي ؟ أم نملأ الفارق من طلاب اليوم التالي ؟؟؟ (حسب كلامك فهمت أننا نتركها ناقصة ، لكن للتأكد منك قبل التنفيذ )

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

اخي الكريم وهو ما تم في المرفق السابق ، هل تفقدته ؟؟؟

الجواب كلش واضح....عاشت ايديك استاذ العزيز ...بارك الله فيك وجزاكم الله خيرا....

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

وعليكم السلام ورحمة الله وبركاته .. لعدم وضوح كامل الصورة من المطلوب من جهة علاقة الجداول ببعضها البعض من خلال مفتاح الربط = مساحة القطعة ، تم ربط الجدولين بعلاقة One-To-Many ، أيضاً علاقة المالك لم تكن واضحة في النموج ، لذا تركت دون تغيير . واليك المرفق التالي جربه واخبرني بالنتيجة .. مساحات.accdb

السادة الأستاذة المحترمين .. إحترامي وتحياتي لدي جدول ( area ) به بيانات ثابتة لك مساحة ( 209 م ، 276 م .... الخ ) وجدول أخر ( Rodod ) به التفاصيل كل مساحة ( الردود ( أمامي ـ خلفي ـ جانبي ) .. وأبعاد المبنى ومساحة المبنى ... الخ ونموذج ( areaform ) لإدخال البيانات ومحتاج إلى عند إختيار المساحة تظهر لي التفاصيل من جدول Rodod .. وشكراً لحضراتكم مساحات.accdb

بارك الله فيك استاذنا عبدالله بشير وبارك في هذا المنتدى العظيم لما استفدناه من خبراء هذا المنتدى . والشكر موصول بعد إذن الاستاذ عبدالله لاستاذنا / محمد بيك هشام

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

بنفس محرر أكواد الفورم . أما اذا تريد أن يستدعى من أي مكان أخر يمكن تحويله الى وحدة نمطية عامة كما بـــ (FrmMain1). واليك المرفق الجديد وبه النموذجان . ووافني بالرد . Filter-2.rar

تفضل الصعوبة هي عندما تواجه بطء في الاستعلام هنا يجب ايجاد حل جذري حتى لو اضفنا ادوات مساعدة المشكلة في الاستعلام الرئيس المسؤول عن الإلحاق هو انه يعمل على بيانات مجمعة .. ثم هو ايضا يضم اليه استعلام جدولي ولا يقف عند هذا الحد بل يطلب بيانات سجلات فردية ( مثلا اي مادة تم الاكمال فيها .. ثم اي مادة قلت عن نسبة محددة ثم يتأكد من عدد ايام الحضور كثرة الدوال والاتصال بجداول اخرى او استعلامات هو سبب هذه المشكلة على كل حال توصلت بحمد الله الى حالة مرضية المهم ان تعيد تجاربك .. وايضا لو اردت اضافة اشياء تجدها ضرورية لن نخرج من هذه المرحلة الا بعد اكتمالها واغلاقها ثم نتقدم الخطوة التالية للتذكير : اي اضافة للبيانات او تعديل يجب اعداد النتيجة مرة اخرى Data2.rar

السلام عليكم ورحمة الله وبركاته بعد اذن معلمنا واستاذنا محمد هشام جدول2.xlsm

شكرا استاذ العزيز جزاكم الله خيرا......نعم هذا كان المقصود....بس اخر شي ممكن توضح لي اين اضع هذا الكود ؟؟؟ Private Sub FilterRecords() Dim strFilter As String Dim strCustomer As String ' ÈäÇÁ ÔÑØ ÇáÝáÊÑÉ strFilter = "" ' ÝáÊÑÉ ÍÓÈ ÇáÊÇÑíÎ ÅÐÇ Êã ÅÏÎÇáå If Not IsNull(Me.txtStartDate.Value) And Not IsNull(Me.txtEndDate.Value) Then strFilter = strFilter & "[Da_te] Between #" & Format(Me.txtStartDate.Value, "mm/dd/yyyy") & _ "# And #" & Format(Me.txtEndDate.Value, "mm/dd/yyyy") & "#" End If ' ÝáÊÑÉ ÍÓÈ ÇÓã ÇáÚãíá ÅÐÇ Êã ÅÏÎÇáå strCustomer = Nz(Me.txtCustomerName.Value, "") If strCustomer <> "" Then If strFilter <> "" Then strFilter = strFilter & " AND " strFilter = strFilter & "[ClientName] Like '*" & strCustomer & "*'" End If ' ÊØÈíÞ ÇáÝáÊÑÉ Úáì ÇáäãæÐÌ If strFilter <> "" Then Me.Filter = strFilter Me.FilterOn = True Else Me.FilterOn = False End If

تفضل استاذ @Luqman Khooshnaw طلبك حسب ما فهمت. بالشرح والمرفق. ولو تريد الغاء الزر موضح بالشرح . ووافني بالرد . Filter-1.rar

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

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

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

وعليكم السلام ورحمة الله تعالى وبركاته Option Explicit Private Const ShName As String = "جدول عام" Sub Coloring_Classes() On Error GoTo EndClear SetApp False Dim Sh As Worksheet: Set Sh = ThisWorkbook.Sheets(ShName) Dim i As Long, r As Long, c As Long, ColAL As Long, ColA As Long Dim tmps As Object: Set tmps = CreateObject("Scripting.Dictionary") Sh.Range("B6:AJ23").Interior.ColorIndex = xlNone ColAL = Sh.Cells(Sh.Rows.Count, "AL").End(xlUp).Row ColA = Sh.Cells(Sh.Rows.Count, "A").End(xlUp).Row For i = 5 To ColAL If Len(Sh.Cells(i, "AL").Value) > 0 Then If Sh.Cells(i, "AM").Interior.ColorIndex <> xlColorIndexNone Then tmps(Sh.Cells(i, "AL").Value) = Sh.Cells(i, "AM").Interior.Color End If End If Next i For r = 5 To ColA If tmps.exists(Sh.Cells(r, "A").Value) Then For c = 2 To 36 With Sh.Cells(r, c) If Len(.Value) > 0 Then .Interior.Color = tmps(Sh.Cells(r, "A").Value) End With Next c End If Next r EndClear: SetApp True End Sub '""""""""""""""""""""""""""""""""""""""" Private Sub SetApp(ByVal enable As Boolean) With Application .ScreenUpdating = enable .EnableEvents = enable .DisplayAlerts = enable .Calculation = IIf(enable, xlCalculationAutomatic, xlCalculationManual) End With End Sub جدول.xlsm

معذرة أستاذنا .. تقريبا أنا أخفقت في فهم فكرة وجود حقل زمني 😟 هو بالنسبة لجدول Tb_Tawze_Leyaka سيكون به يوميا فترتين فقط لا غير (صباحية) من التاسعة صباحا إلى الواحدة ظهرا .. وبها 70 طالب (يدخلون معا الاختبار). (مسائية) من الساعة الثانية ظهرا حتى الخامسة .. .. وبها 60 طالب (يدخلون معا الاختبار). مع التفضل بالعلم بأن السبعين (صباحي) أو الستين (مسائي) ليس لهم قيد أو شرط وليس بالضرورة ترتيب دخولهم حسب مجموعات الشفوي. ولكن فقط لابد وأن يكونوا من مجموعات الشفوي التي تم اختيارها في هذا اليوم وتلك الفترة. مع خالص الشكر أستاذنا ؛؛؛

المطلوب بدخل الملف في ورقتبن (جدول- معلمين) جدول.xlsm

طيب ، تقدر تنشئ حقلين ( Start_Sec و End_Sec ) في الجدول Tb_Tawze_Leyaka لتسجيل تاريخ و وقت بداية ونهاية الجلسة لكل مجموعة . وارسال المرفق بعد التعديل وغداً ان شاء الله سنحاول ضبط الأمور أكثر

تفضل استاذ @Luqman Khooshnaw طلبك حسب ما فهمت . ووافني بالرد . Filter.rar

هو مشكورا سعادتك تلاحظ الآتي أولا .. في الجدول الشفوي .. تكررت المجموعة 2 مرتين .. ولم تظهر المجموعة 21 نهائيا. ثانيا .. في الجدول الوسيط .. تجاوزت أعداد الطلاب الموزعة العدد المستهدف (70 صباحي – 60 مسائي). مع خالص التقدير والشكر ؛؛؛

طيب هل النتائج صحيحة في الجدول الوسيط ؟

أستاذتا الكبير Foksh السلام عليكم ورحمة الله وبركاته ؛؛؛ سلمت يداك والله .. بداية توزيع وهيكلة الجداول بهذا الشكل المرفق من سيادتك أعتقد أسهل بكثير وأكثر وضوحًا وسلاسة. وفكرة الجدول الوسيط الذي يظهر مجموعات الشفوي وبجوارها مجموعة اللياقة جميل جدا وأكثر وضوحًا. بالنسبة لسعة القاعات الثابتة والمتغيرة ** لكل صف ( Room ) سعة معينة في الشفوي من جدول Tb_Cou_Stu → ولن تتغير أثناء الجدولة. ** جلسات اللياقة لها سعة ثابتة ، حيث صباحاً = ( 70 ) ، و مسائياً = ( 60 ) أ) هذه الأرقام غير قابلة للتعديل مستقبليا. ب) لكل مدرسة ولكل يوم نفس القيمة صباحاً = ( 70 ) ، و مسائياً = ( 60 ) أيام وتواريخ الاختبارات تاريخ البدء للنشاط الشفوي 31/5/2005 واللياقة عقب انتهاء آخر يوم في الشفوي. لا يوجد أي علاقة بين حقل Day_Shafawe و Day_Leyaka بالتاريخ الفعلي. بالفعل أستاذنا أيام الاختبار يجوز تخطي أيام العطلة. آلية تقسيم الطلاب بالنسبة لمجموعات الشفوي لو بقيت مجموعة أقل من سعة القاعة ((نتركها كـ "باقي")) ولا يجوز دمجها مع صف آخر. فكرة تكوين "مجموعات لياقة" من مجموعات شفوي متعددة؛ للوصول إلى 70 أو 60 بالضبط .. ممكن بدون أي ترتيب رقمي .. ولكن يفضل – قدر الإمكان – أن تكون بالترتيب، ولو وجد باقي من مجموعة ( مثلما في "باقي مجموعة_4" ) يمكن فقط أن نقول (مجموعة 4) يعني لو بدأنا مجموعة 4 مثلا (أخذنا جزء من مجموعة) .. وأكملنا الجزء الباقي في مجموعة اللياقة التالية .. يكتفى بأن ننوه فقط بأن طلاب تلك المجموعة بدايتهم في مجموعة لياقة .. والباقي في المجموعة التالية للياقة. وهذا التنويه عبارة عن ذكر اسم أو رقم المجموعة فقط لا غير بالنسبة لملخص ملاحظات سعادتك :- هل سعة اللياقة ( 70 / 60 ) ثابتة لكل يوم ولكل مدرسة ، أم يمكن تغييرها لكل مدرسة / تاريخ ؟ الإجابة .. ثابتة لكل يوم ولكل مدرسة. كيف يحدد النظام "باقي" الطالبات من مجموعة شفوي إذا لم تكمل إلى السعة المحددة ؟ وهل تدمج مع المجموعة التالية دائماً ؟ الإجابة .. نعم تدمج مع المجموعة التالية دائما. هل نحتاج احتياطياً تسجيل تاريخ و وقت بداية ونهاية الجلسة لكل مجموعة ؟ الإجابة .. والله تكون هذه إضافة جديدة تثري وتزيد الموضوع توثيقًا. وهل تتبع تسمية المجموعات ( مج_1 ، مج_2 … ) تسلسل موحّد عبر كل المدارس ؟ الإجابة .. نعم .. بحث كل مدرسة في الشفوي تبدأ بمجموعة رقم 1 .. وكذا في اللياقة .. كل المدرسة تبدأ برقم 1 .. كل التقدير والشكر لسيادتكم والله .. والف شكر ؛؛؛