التعديل على معادلة إيجاد عدد الطلاب المحصور درجاتهم بين قيمتين

[سيف عادل]

السلام عليكم ورحمة الله وبركاته

السادة الافضل محترفي الاكسيل

لدى ملف به معادلة واريد التعديل علية لإيجاد عدد الطلاب المحصور درجاتهم بين الصفر و 60 درجة 

المعادلة بوضعها الحالي تضيف عدد الخلايا التي لا يوجد بها ارقام من ضمن الاقل من 60

=IF(ISERROR(MATCH(H$8;A!$1:$1;0));"/";SUMPRODUCT((OFFSET(A!$A$3:$A$1828;;MATCH(H$8;A!$1:$1;0)+1)<60)*(A!$A$3:$A$1828=$C$6)))=

تحياتي للجميع

[عبدالله بشير عبدالله]

 وعليكم السلام ورحمة الله وبركاته

كنت اتمنى دعم سؤالك بملف

جرب التعديل التالي وان لم تعمل ارفق ملفا  والمعادلة تعمل على اصدارات اكسل من 2013 وما فوق 

=IFNA(SUMPRODUCT((INDEX(A!$3:$1828;0;MATCH(H$8;A!$1:$1;0))<60)*ISNUMBER(INDEX(A!$3:$1828;0;MATCH(H$8;A!$1:$1;0)))*(A!$A$3:$A$1828=$C$6));"/")

 

[سيف عادل]

شكرا على سرعة الرد وتقبل تحياتي 

مرفق الملف وقمت بنسخ التعديل ولكن لا يعمل

والمعادلات بالملف من اعمال الاخوة الافاضل خبراء الاكسيل بمنتداكم الرائع

لهم منا كل تحية وتقدير وجعلة الله بميزان حسناتهم

 

aa.xlsx

تم تعديل يناير 30 بواسطه سيف عادل

[عبدالله بشير عبدالله]

السلام عليكم 

عذرا لم انتبه الى ردك الا الان

 لاحظت كل مادة لها 3 اعمدة اي عمود يتم تطبيق المعادله علية  التقويم ام الامتحان ام الفصل

تم تعديل يناير 31 بواسطه عبدالله بشير عبدالله

[سيف عادل]

وعليكم السلام ورحمة الله وبركاته

اريد تطبيق المعادلة على درجة الفصل

وهل يمكن بعد ذلك بعد تعديل الملف يمكن تطبيق نفس المعادلة على التقييم والامتحان ام انها تطبق على عمود واحد فقط

لكم مني كل تحية وتقدير

[عبدالله بشير عبدالله]

ان شاء الله ساحاول ايجاد حل يطبق على الفصل والتقييم والامتحان

[سيف عادل]

تسلم استاذنا الغالي

لو امكن حالياَ معادلة تطبق على الفصل بالملف المرفق

[عبدالله بشير عبدالله]

السلام عليكم

 

جميع المعادلات بملفك تتعامل مع عمود التقييم وليس الفصل والسبب اسماء المواد في حلايا مدمجة والمعادلة المرفقة سابقاتعمل جيدا

اليك الملف وبه معادلتان اختر اخدهما او كلاهما لهما نفس النتيجة وهما ليست صفيف لا تحتاجانCtrl+Shift+Enter.

مع الانتباه لا تكرر اسم المادة في شيت A ولا تستحدم الدمج و يمكنك تمييز الاسماء مثلا الرياضيات تفييم - الرياصيات امتحان - الرياضيات فصل  وفي ورقة الاخصائيات اذا اردت الرياضيات تقييم اكتبها تفسها 

aa1.xlsx

تم تعديل يناير 31 بواسطه عبدالله بشير عبدالله

[سيف عادل]

وعليكم السلام ورحمة الله وبركاته

تسلم استاذ عبدالله

جاري التجرية والف شكر لحضرتك 

جزاك الله عنا خيرً اللهم آمين وسامحنا على الازعاج

[عبدالله بشير عبدالله]

السلام عليكم ورحمة الله وبركاته

حل بالكود وان  اضفت مواد احرى عدل النطاق في الكود

Sub ProcessAndSumData()
    Dim wsB As Worksheet
    Set wsB = ThisWorkbook.Sheets("B")
    
    Application.ScreenUpdating = False
    
    With wsB
        .Range("B10:I12").ClearContents
        
        With .Range("B10:I10")
            .FormulaR1C1 = "=IFERROR(SUMPRODUCT((A!R3C1:R1828C1=R6C3) * (ISNUMBER(INDEX(A!R3:R1828,0,MATCH(R8C,A!R1,0)))) * (INDEX(A!R3:R1828,0,MATCH(R8C,A!R1,0))>=60)),""/"")"
            .Value = .Value
        End With
        
        With .Range("B11:I11")
            .FormulaR1C1 = "=IFNA(SUMPRODUCT((INDEX(A!R3:R1828,0,MATCH(R8C,A!R1,0))<60) * ISNUMBER(INDEX(A!R3:R1828,0,MATCH(R8C,A!R1,0))) * (A!R3C1:R1828C1=R6C3)),""/"")"
            .Value = .Value
        End With
        
        With .Range("B12:I12")
            .FormulaR1C1 = "=SUM(N(R[-2]C), N(R[-1]C))"
            .Value = .Value
        End With
    End With
    
    Application.ScreenUpdating = True
End Sub

لا تنس تفعيل الماكرو

aa2.xlsb

 

تم تعديل فبراير 1 بواسطه عبدالله بشير عبدالله

[سيف عادل]

وعليكم السلام ورحمة الله وبركاته

تسلم استاذ عبدالله تقبل تحياتي