السلام عليكم /استاذ عنكوش
اليك هذا الملف عسى ان ينال اعجابك
لا اعرف ان كان ما فهمت صحيحاً حيث ان هناك علامة لاغية اصغر من 45 في اي مادة
فاذا حصل الطالب على علامة اصغر منها (45) تكون النتيجة راسب مهما بلغت اعلى علامة
samecell 1.rar
اكتب هذا الكود لعله المطلوب
افتراضاَ ان التسلسل في اعامود أ يمكنك التغيير
Sub talween()
lr = Sheet1.Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To lr
If Mid(Range("a" & i).Value, 1, 4) = "ALO/" Then Cells(i, 1).Font.Color = -16776961
Next
End Sub