عدد الخلايا التي تحتوي دائرة

[بلانك]

المطلوب :
معادلات لتقسيم العدد في الخلية N9 , الخلية N17 على الاسبوع كما هو مبين بحيث بعض الايام ليس بها حصص والاخر به حصص لجميع ايام الاسبوع

الاستمارة ك.xlsm

[Foksh]

أخي @بلانك ، بعد السلام عليكم ورحمة الله وبركاته ..

الأصل ان ترفق ملفك غير محمي بكلمة مرور لمحرر الأكواد . نظراً لأن العمل لن يكون في المعادلات كونك تستعمل الدائرة Shape . لذا ترفق بنا فيما بعد لتلافي هذا الخطأ 

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

وعليه ومن خلال النظر للملف ودون محاولة مني لكسر حمايته ، جرب الدالة التالية واستدعيها في زر خاص بها :-

Sub CountShapesPerRow()
    Dim ws As Worksheet
    Dim shp As Shape
    Dim r As Long
    Dim countRow(10 To 14) As Integer
    Dim countRow2(18 To 22) As Integer
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    For Each shp In ws.Shapes
        For r = 10 To 14
            If Not Intersect(ws.Range("C" & r & ":J" & r), shp.TopLeftCell) Is Nothing Then
                countRow(r) = countRow(r) + 1
            End If
        Next r
        
        For r = 18 To 22
            If Not Intersect(ws.Range("C" & r & ":J" & r), shp.TopLeftCell) Is Nothing Then
                countRow2(r) = countRow2(r) + 1
            End If
        Next r
    Next shp
    For r = 10 To 14
        ws.Range("M" & r).Value = countRow(r)
    Next r
    For r = 18 To 22
        ws.Range("M" & r).Value = countRow2(r)
    Next r
End Sub

 

ما لم تفلح معك الفكرة ، اعد رفع الملف بدون حماية محرر الأكواد إذا تكرمت .

[بلانك]

أخي فوكش شكرا على التوضيح والتنبيه لم اقصد فعلا العنوان خطأ مني بسبب احتفاظ المتصفح باسئلة  سابقة. ليس حساب عدد الدوائر بل تقسيم العدد في N9 و N17 لعمل الدوائر ..... وهذا هو الملف بدون حماية ..... اما كود حضرتك فهو يحسب عدد الدوائر وانا لا أريد ذلك فالعدد مكتوب اصلا في الخليتين كما ذكرت N9 و N17  والمطلوب العكس تقسم العدد الموجود في الخليتين السابق ذكراهما لعمل الدوائر حول الجصص الزيادة لكل مدرس ...... ارجو بأني قد اوضحت الفكرةولو أطمع من كرم حضرتك ان تكون بالمعادلات حتى يتسنى لي نقلهما الى ملف اخر ..... وشكرا على التبيه ... وجزاك الله كل الخير

 

الاستمارة ك بدون خمياية.xlsm

تم تعديل منذ 7 ساعات بواسطه بلانك

[Foksh]

للأسف .. لم أفهم المطلوب نهائياً !!

يعني مثلاً انت تريد تقسيم العدد 3 الموجود في الخلية N9 على الخلايا من M10 - M14 ؟؟؟؟؟؟؟

لو فعلاً ما تقصده ، فعلى أي أساس ؟؟ وما الشروط ؟؟ وكيف تريد التنفيذ 🤷🏻‍♂️

[بلانك]

بالفعل هذا ما أريده وهو عدد الحصص الزياده عن نصابة . بحيث يتم توزيع حصص الزيادة على مدار الاسبوع .فلو كان له ٣ ايام حضور في الأسبوع يتم توزيع ٣ حصص على ٣ايام واذا كان حضوره على مدار الاسبوع يتم التوزيع على مدار الاسبوع .وبفرض عدد الحصص ٦ والاسبوع ٥ ايام حضور يكون التوزيع كل يوم ١ حصة ويوم ٢ حصه

مثال للتوضيح

مثال للتوضح والمطلوب.xlsm

تم تعديل منذ 3 ساعات بواسطه بلانك

[بلانك]

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

=if( mod(m7,5)>0,Mod (M7/5)+1,Mod (M7/5)