Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [AH10:AH408,AJ10:AJ408]) Is Nothing Then
If Target > 3 Then Target.Value = "": MsgBox "الدرجة أكبر من 3 درجات ": Exit Sub
End If
End Sub
أخى الفاضل / عبد الله
جــاءت فى وقتها
عند ادخال الدرجات لا يقبل أكبر 3 درجات
مطلوب التجاوز عن " غ " أي فى حالة غياب الطالب
أثـــابكم الله