أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مهند محسن ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil الغاء اعمده مخفيه اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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





ترحيل الغيابات إلى سجل الغيابات حسب الحصص

السلام عليكم إحواني بعد عملية حجز الغيابات أريد ترحيلهم إلى سجل الغيابات الشهري للحفظ حيث يكون الترحيل بعد مقارنة الرقم ..



04-12-2019 09:45 مساء
chardoneret
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 16-05-2019
رقم العضوية : 13015
المشاركات : 3
الجنس : ذكر
تاريخ الميلاد : 5-11-1977
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 2
 offline 
السلام عليكم إحواني
بعد عملية حجز الغيابات أريد ترحيلهم إلى سجل الغيابات الشهري للحفظ
حيث يكون الترحيل بعد مقارنة الرقم الوطني للتلميذ مع تاريخ الغياب مع حصة الغياب
بعد المقارنة و استوفاء الشروط ترحل القيم حيث تقلب الحصة إلى حرف X
لكني لم أستطع و باؤت محاولتي بالفشل
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
 
  ترحيل حضور و غياب - Copy.xlsm   تحميل xlsm مرات التحميل :(11)
الحجم :(1211.184) KB





05-12-2019 07:23 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24128
الاعجاب : 2595
 offline 
look/images/icons/i1.gif ترحيل الغيابات إلى سجل الغيابات حسب الحصص
وعليكم السلام أخي الكريم
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
    Dim a, x, y, z, ws As Worksheet, sh As Worksheet, i As Long
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
        Set ws = ThisWorkbook.Worksheets("TAKABS")
        Set sh = ThisWorkbook.Worksheets("DAFTAR")
        
        a = ws.Range("A3:A" & ws.Cells(Rows.Count, 1).End(xlUp).Row).Value
        
        For i = LBound(a) To UBound(a)
            x = Application.Match(a(i, 1), sh.Columns(2), 0)
            If Not IsError(x) Then
                y = Application.Match(ws.Range("B1").Value2, sh.Rows(12), 0)
                If Not IsError(y) Then
                    z = Application.Match(ws.Range("G1").Value, sh.Cells(12, y).Offset(2).Resize(1, 8), 0)
                    If Not IsError(z) Then
                        sh.Cells(x, y + z - 1).Value = "X"
                        Debug.Print sh.Cells(x, y + z - 1).Address
                    End If
                End If
            End If
        Next i
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

أثارت هذه المشاركة إعجاب: ali mohamed ali، chardoneret، السعيد الجزائري،



05-12-2019 06:34 مساء
مشاهدة مشاركة منفردة [2]
chardoneret
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 16-05-2019
رقم العضوية : 13015
المشاركات : 3
الجنس : ذكر
تاريخ الميلاد : 5-11-1977
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 2
 offline 
look/images/icons/i1.gif ترحيل الغيابات إلى سجل الغيابات حسب الحصص
أخي و صاحبي و صديقي خليل ياسر شكرا جزيلا لك قبل التجربة و بعدها سأستغفر لك ربي في صلاتي
رفع الله مقامك و قدرك في الدنيا و الأخرة واصطبر علينا في أسألتنا حتى تعم الفائدة

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



05-12-2019 08:00 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24128
الاعجاب : 2595
 offline 
look/images/icons/i1.gif ترحيل الغيابات إلى سجل الغيابات حسب الحصص
بارك الله فيك أخي الكريم وجزيت خيراً على كلماتك الطيبة 







الكلمات الدلالية
ترحيل ، الغيابات ، الغيابات ، الحصص ،


 







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

الساعة الآن 10:04 صباحا

أعلن هنا
أعلن هنا
أعلن هنا