Sub Result1()
LR = Cells(Rows.Count, 4).End(xlUp).Row
For R = 6 To LR
For c = 5 To 10
For F = 22 To 27
x = ""
If Cells(R, c) < 5 Then
x = x & Cells(4, c)
Cells(R, F) = x
Else
Cells(R, F) = ""
End If
c = c + 1
Next
Next
Next
Call Result2
End Sub
Sub Result2()
LR = Cells(Rows.Count, 4).End(xlUp).Row
For R = 6 To LR
CA = WorksheetFunction.CountA(Range("V" & R & ":Y" & R))
If CA = 0 Then
Cells(R, "M") = "ناجح"
ElseIf CA > 3 Then
Cells(R, "M") = "راسب"
ElseIf CA = 1 Then
Cells(R, "M") = "مكمل بدرس"
ElseIf CA = 2 Then
Cells(R, "M") = "مكمل بدرسين"
ElseIf CA = 3 Then
Cells(R, "M") = "مكمل بثلاث دروس"
End If
Next
End Sub
السلام عليكم ورحمة الله
اكتب هذين الكودين وخصص لهما زر