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

[بلانك]

المطلوب :
معادلات لتقسيم العدد في الخلية 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

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