Foksh

صدقت قولاً أخي محمد فعلاً .. الألقاب ليست ما يميز الشخص ، بقدر ما يميزه الشخص لهذا اللقب . وهنا وبتجربتي السابقة ، وجدت أنه مع السلطة تأتي المسؤولية ، وأنا أكره ما على قلبي هو أن تكون معصوماً من الخطأ .. وأنا في نهاية المقام بشر ، وقد اكون قد أخطأت .. لكن وبنفس الوقت ، ابتعاد الناس عنك ( كما مررت بتجربتي ) مع هذا التطور ، كان له أثر كبير أنا كنت بالغنى عنه . وفي البداية والنهاية ما زلت اخوكم هنا كما كنت . ولن أتزحزح عن تقديم أي مساعدة ما دمت قادراً على تقديمها لأي شخص . أشكرك على مشاعرك اللطيفة هذه ، وإنما هذا ينم عن أصلك الطيب ومعدنك الأصيل . وسأبقى كما عهدتموني سابقاً ولاحقاً .

هذه ليست قاعدة بيانات صغيرة 😅 هذه على ما يبدو مشروع كامل 😉

السلام عليكم ورحمة الله وبركاته .. في ظل التجربة التي مررت بها في الفترة السابقة ، وقد كانت غلطتي الكبرى قبولي لترقية عضويتي من خبير الى مشرف . وحيث أنني لاحظت وللأسف خسارتي بهذه الترقية - التي كان لي شرف تجربتها - الى كوكبة من الأصدقاء الخبراء تحديداً والموهوبين . حيث لمست بشكل واضح أنهم وللأسف - وأحترم قراراتهم الشخصية - قد أصبحوا غير متفاعلين في جميع المواضيع التي كنت أطرحها ، إلا من رحم ربي . وهذا وللأسف لم يكن مكسباً لي بهذه الترقية مع الأسف الشديد . وعليه فإنني أخص بالذكر هنا كلاً من الأخوة :- @محمد طاهر عرفه @ابوخليل @jjafferr احترام رغبتي بهذا الطلب قلباً ومضموناً ، و إعادة عضويتي الى ( درجة خبير ) السابقة . فأنا لا أحب التقاعد 😁 ولكم الإحترام والتقدير على سرعة الإستجابة

⏳ باقي من الوقت : 6 أيام حتى نهاية التحدى الثاني

أخي الكريم @hanan_ms ، جميلة الأفكار لا شك .. ولكن ما علاقتها في نوع التحدي 😅 .

جزاكم الله خيرا على هذا المجهود الجميل.. وأعتذر إن لم أكن قد أوضحت فعلاً مقصدي . ولكن الحمد لله لحل الخلل 😇

وعليكم السلام ورحمة الله وبركاته .. ما شاء الله عمل جميل معلمنا أبو خليل .. إن سمحت لي بمداخلة على شكل نقاط :- في نموذج تسجيل الموظفين ، أن لا تسمح بإدخال أي موظف دون اختيار الحساب / الفرع عند تسجيله . في نموذج عرض التقارير ، أعتقد لتلافي هذا الزخم من العرض عند كثرة السجلات ، أن وجود فكرة الفلترة من الكومبوبوكس اذا كان فرع أو شخص ستكون أخف وألطف كعرض بيانات بدلاً من عرضها كاملة .. وسلمت أفكاركم النيرة ، وجزاكم الله كل خير ..

طيب وقبل طرح الحل ، هل النتيجة في الصورة التالية صحيحة ؟ لاحظ أنني قمت بتعديل تاريخ العطل الصيفية والشتوية من 2022 لتصبح 2025

متابع بصمت

وعليكم السلام ورحمة الله وبركاته ... الأصل أخي @ahmed_dz ، أن توضح طلبك بأكثر مما قمت به .. فمثلاً :- هل تريد الاحتساب ليكون للفترة بين G2-G3 مع استثناء الفترة التي بين C4-F4 ( العطلتين ) . والأمر نفسه للفترة بين H2-H3 !!!! أم ماذا ؟؟؟ يرجى توضيح مطلبك بحرص أكثر حتى تجد إجابة شافية وسريعة .

هههههههه ، يا عيني عليك ، اكتشفتها بنفسك .. جرب التعديل الأخير على أكثر من احتمال :- Sub DrawCirclesByFoksh(ByVal x As Integer, ByVal startRow As Integer, ByVal endRow As Integer) Dim Shp As Shape, c As Range Dim r As Long, i As Long, n As Long Dim usedRows As Collection Dim dayCount As Long, perDay As Long, extra As Long Dim rr As Variant, lastCol As Long Dim hasLesson As Boolean Dim lessonCount As Long Dim circlesThisDay As Long If x <= 0 Then Exit Sub Set usedRows = New Collection lessonCount = 0 For r = startRow To endRow hasLesson = False For i = 3 To 10 If Cells(r, i).Value <> "" Then hasLesson = True lessonCount = lessonCount + 1 End If Next i If hasLesson Then usedRows.Add r Next r dayCount = usedRows.Count If dayCount = 0 Then Exit Sub n = 0 If x = lessonCount Then For r = startRow To endRow For i = 10 To 3 Step -1 If Cells(r, i).Value <> "" Then Set c = Cells(r, i) Set Shp = Sheet1.Shapes.AddShape(msoShapeOval, c.Left, c.Top, c.Width, c.Height) Shp.Fill.Visible = msoFalse Shp.Line.Weight = 1 Shp.Line.ForeColor.SchemeColor = 10 n = n + 1 If n = x Then Exit Sub End If Next i Next r ElseIf x > lessonCount Then Do While n < x For r = startRow To endRow For i = 10 To 3 Step -1 If Cells(r, i).Value <> "" Then Set c = Cells(r, i) Set Shp = Sheet1.Shapes.AddShape(msoShapeOval, c.Left, c.Top, c.Width, c.Height) Shp.Fill.Visible = msoFalse Shp.Line.Weight = 1 Shp.Line.ForeColor.SchemeColor = 10 n = n + 1 If n = x Then Exit Sub End If Next i Next r Loop Else perDay = x \ dayCount extra = x Mod dayCount If x > 10 And x < lessonCount Then extra = extra + 1 For Each rr In usedRows circlesThisDay = perDay If extra > 0 Then circlesThisDay = circlesThisDay + 1 extra = extra - 1 End If lastCol = 0 For i = 10 To 3 Step -1 If Cells(rr, i).Value <> "" Then lastCol = i Exit For End If Next i For i = lastCol To 3 Step -1 If Cells(rr, i).Value <> "" And circlesThisDay > 0 Then Set c = Cells(rr, i) Set Shp = Sheet1.Shapes.AddShape(msoShapeOval, c.Left, c.Top, c.Width, c.Height) Shp.Fill.Visible = msoFalse Shp.Line.Weight = 1 Shp.Line.ForeColor.SchemeColor = 10 circlesThisDay = circlesThisDay - 1 n = n + 1 If n = x Then Exit Sub End If Next i Next rr End If End Sub

أنصحك أخي @بلانك ، بتجربة إحتمالات كثيرة على النتيجة والتحقق منها 100% 😉

علني اكون قد فهمت المنطق جيداً .. تفضل التعديل :- Sub DrawCirclesByFoksh(ByVal x As Integer, ByVal startRow As Integer, ByVal endRow As Integer) Dim Shp As Shape Dim r As Long, i As Long, n As Long Dim c As Range Dim usedRows As Collection Dim dayCount As Long, perDay As Long, extra As Long Dim rr As Variant, lastCol As Long Dim hasLesson As Boolean If x <= 0 Then Exit Sub Set usedRows = New Collection For r = startRow To endRow hasLesson = False For i = 3 To 10 If Cells(r, i).Value <> "" Then hasLesson = True Exit For End If Next i If hasLesson Then usedRows.Add r Next r dayCount = usedRows.Count If dayCount = 0 Then Exit Sub perDay = x \ dayCount extra = x Mod dayCount n = 0 For Each rr In usedRows Dim circlesThisDay As Long circlesThisDay = perDay If extra > 0 Then circlesThisDay = circlesThisDay + 1 extra = extra - 1 End If lastCol = 0 For i = 10 To 3 Step -1 If Cells(rr, i).Value <> "" Then lastCol = i Exit For End If Next i For i = lastCol To 3 Step -1 If Cells(rr, i).Value <> "" And circlesThisDay > 0 Then Set c = Cells(rr, i) Set Shp = Sheet1.Shapes.AddShape(msoShapeOval, _ c.Left, c.Top, c.Width, c.Height) Shp.Fill.Visible = msoFalse Shp.Line.Weight = 1 Shp.Line.ForeColor.SchemeColor = 10 circlesThisDay = circlesThisDay - 1 n = n + 1 If n >= x Then Exit Sub End If Next i Next rr End Sub

لم افهم بالضبط !!!! يعني النتيجة المطلوبة ، أنه حتى يوم الاربعاء الحصة 2-3 تكون عليها دائرة ؟؟؟ بدلاً من الحصة الخامسة ليوم الإثنين !!!