كل الانشطه

بنفس محرر أكواد الفورم . أما اذا تريد أن يستدعى من أي مكان أخر يمكن تحويله الى وحدة نمطية عامة كما بـــ (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 .. كل التقدير والشكر لسيادتكم والله .. والف شكر ؛؛؛

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

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

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

الله يبارك لك. كله بفضل الله عز وجل.

شكرا علي التوضيح جزاكم الله خيرا

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

تمام التمام الله يبارك في حضرتك وعلى تعبك معايا

تفضل كود إخفاء (2).xlsm

طالع هذا الفيديو https://www.youtube.com/watch?v=QVCeb5XsGqQ