عبدالسلام ابوالعوافي

=SUMPRODUCT(--($G$10:$P$24=C10))

لم افهم

=SUMPRODUCT(--($G$2:$AJ$2=$AI$2);G3:AJ3)

=IF(SUM(--($H$5:H5=H5))>INDEX($D$5:$D$7;MATCH(H5;$C$5:$C$7;0));0;1) مع الضغط علي CTRL+SHIFT+ENTER

شاهد المرفق الكود Function RESULTA(rng As Range) As String Application.Volatile Dim c As Integer Dim r As Integer Dim str As String Dim subj As String c = rng.Column r = rng.Row subj = Cells(2, c - 3).Text str = "راسب في مادة " & subj & " " If Cells(r, c) = "غ" Then str = str & "بسبب غيابه في العملي و" If Cells(r, c + 1) = "غ" Then str = str & "بسبب غيابه في التحريري و" If Cells(r, c) < Cells(9, c) Then str = str & "لعدم حصوله علي ربع الدرجة في العملي و" If Cells(r, c + 1) < Cells(9, c + 1) Then str = str & "لعدم حصوله علي ربع الدرجة في التحريري و" If Cells(r, c + 2) < Cells(9, c + 2) Then str = str & "لعدم حصوله علي ربع الدرجة في الكلية و" str = Left(str, Len(str) - 2) If Len(str) < 20 Then str = "ناجح" RESULTA = str End Function المصنف1.xlsm

بعد اذنكم .. جرب الصيغة الاتية =IF(E8<25;"ربع عملي";IF(E8="غ";"غياب عملي";""))&" "&IF(F8<25;"ربع تحريري";IF(F8="غ";"غياب تحريري";""))&" "&IF(G8<25;"ربع كلية";IF(G8="غ";"غياب كلية";""))

تجده في الخيارات المتقدمة

اكتب اسم الشيت "قائمة" بدل الرموز

=INDEX(F9:F20;MATCH(F3+D3;G9:G20;0))

=AND(TODAY()-B2>28;C2="")

ActiveCell = ActiveCell.Offset(0, -1).Value

تنسيق شرطي

تنسيق شرطي

تنبيه.xlsx

بعد اذن اخي علي Book12.xlsm