سجل غياب الطلاب

[shetos17177]

نشكركم على مجهودكم الرائع

سجل غياب الطلاب.xlsx

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

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

  من الشروط   15 يوم متصلة → مفصول

                  30 يوم منفصلة → مفصول

اعتقد انه  لا يوجد 30 يوم منقصلة , فاجباري ان تكون من ضمنها 15 يوم متصلة , فاعتقد الشرط الاول يكفى

 الكود

Sub CheckAbsence()
    Dim ws As Worksheet
    Dim lastRow As Long, i As Long, j As Long
    Dim countConsecutive As Long, maxConsecutive As Long
    Dim countTotal As Long
    Dim msg As String
    Dim cell As Range
    
    Set ws = ThisWorkbook.Sheets("ورقة1")
    lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
    
    For i = 2 To lastRow
        countConsecutive = 0
        maxConsecutive = 0
        countTotal = 0
        
        ' المرور على نطاق الغياب C:AG
        For Each cell In ws.Range("C" & i & ":AG" & i)
            If cell.Value = "غ" Then
                countConsecutive = countConsecutive + 1
                countTotal = countTotal + 1
                If countConsecutive > maxConsecutive Then
                    maxConsecutive = countConsecutive
                End If
            Else
                countConsecutive = 0
            End If
        Next cell
        
        msg = ""
        If maxConsecutive >= 15 Then
            msg = "مفصول"
        ElseIf maxConsecutive >= 5 Then
            msg = "إنذار أول"
        End If
        
        If countTotal >= 30 Then
            msg = "مفصول"
        ElseIf countTotal >= 24 Then
            msg = "إنذار ثالث"
        ElseIf countTotal >= 16 Then
            msg = "إنذار ثاني"
        ElseIf countTotal >= 8 And msg = "" Then
            msg = "إنذار أول"
        End If
        
        ws.Cells(i, "AH").Value = msg
    Next i
End Sub

الملف

سجل غياب الطلاب1.xlsb