**كود VBA لترحيل غيابات التلاميذ من شيت RAP JOUR إلى شيت ABS**

Sub Tترحيل_الغيابات()

    ' تحديد نطاق التقرير RAP JOUR
    Dim rngRAPJOUR As Range
    Set rngRAPJOUR = Worksheets("RAP JOUR").Range("A70:S98")

    ' تحديد نطاق شيت ABS
    Dim rngABS As Range
    Set rngABS = Worksheets("ABS").Range("A1:S1")

    ' تحديد تاريخ اليوم
    Dim strDate As String
    strDate = Worksheets("RAP JOUR").Range("W60").Value

    ' تكرار عملية البحث عن التلاميذ الغائبين في شيت RAP JOUR
    For Each cell In rngRAPJOUR.Cells
        If cell.Value = "" Then
            ' البحث عن اسم التلميذ الغائب في شيت ABS
            Dim rngFound As Range
            Set rngFound = rngABS.Find(cell.Offset(0, -1).Value, LookIn:=xlValues, LookAt:=xlPart)

            If Not rngFound Is Nothing Then
                ' تدوين حرف "غ" في الخلية الموافقة لاسم التلميذ الغائب
                rngFound.Offset(0, rngFound.Column - rngABS.Column + strDate - 1).Value = "غ"
            End If
        End If
    Next cell

    ' مسح الغيابات من شيت RAP JOUR
    rngRAPJOUR.ClearContents

End Sub

**خطوات استخدام الكود:**

1. انسخ الكود والصقه في نموذج وحدة ماكرو في دفتر العمل الخاص بك.
2. قم بتشغيل الماكرو من علامة التبويب "المطور" > "الكود".
3. سيتم ترحيل غيابات التلاميذ من شيت RAP JOUR إلى شيت ABS، وسيظهر حرف "غ" في الخلية الموافقة لاسم التلميذ الغائب حسب التاريخ اليومي.
4. سيتم مسح الغيابات من شيت RAP JOUR بعد ترحيلها.