logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
بكار للأبد لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة خطأ برمجي والماكرو لا يعمل run time error 438 اكسيل اسئله واجابات



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





16-04-2024 12:29 مساءً
السلام عليكم
في الملف المرفق أبحث عن كود لترحيل غيابات التلاميذ من شيت RAP JOUR الموجودة في النطاق (A70:S98) إلى شيت ABS بحيث يدون حرف غ في الخلية الموافقة لاسم التلميذ الغائب حسب التاريخ اليومي (في شيت RAP JOUR الحلية W60) و بعد تثبيت كل الغيابات يقوم بمسحها من التقرير RAP JOUR .
و شكرا
 
 
  Classeur2.xlsm   تحميل xlsm مرات التحميل :(53)
الحجم :(0) KB





look/images/icons/i1.gif طلب مساعدة في ترحيل غيابات التلاميذ
  23-05-2024 09:24 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-05-2024
رقم العضوية : 24525
المشاركات : 12
الجنس :
قوة السمعة : 130
الاعجاب : 10
**كود 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 بعد ترحيلها.

أثارت هذه المشاركة إعجاب: ayoub2007،



اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
مساعدة في تثبيت الحجم الساعي السنوي ayoub2007
0 9 ayoub2007
ارجو المساعدة فى كود استدعاء من اكثر من شيت ahmed88872
5 29 YasserKhalil
المساعدة في إظهار شيت مخفية chardoneret
5 63 YasserKhalil
مطلوب ارسال رسالة نصية بالواتساب من الاكسيل امل المساعدة ابوعلي الحبيب
4 203 hassona229
امل المساعدة بحيث يظهر التاريخ بالخلية بالشكل الصحيح  لكي استطيع ارساله  ابوعلي الحبيب
3 158 YasserKhalil

الكلمات الدلالية
مساعدة ، ترحيل ، غيابات ، التلاميذ ،









اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 09:15 AM