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

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


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





أرشفة ساعات غياب التلاميذ

السلام عليكم أحبتي المطلوب ترحيل ساعات غياب التلاميذ من العمود M ورقة TASJIL GHIAB إلى ورقة ARCHIVE ABS بدلالة التاريخ ..



25-01-2023 05:13 مساء
ayoub2007
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 163
الجنس : ذكر
تاريخ الميلاد : 23-12-1970
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 106
 offline 

السلام عليكم أحبتي 
المطلوب ترحيل ساعات غياب التلاميذ من العمود M ورقة TASJIL GHIAB إلى ورقة ARCHIVE ABS بدلالة التاريخ و شكرا
 
 
  med Abs.rar   تحميل rar مرات التحميل :(1)
الحجم :(602.926) KB


25-01-2023 08:56 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10461
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 539
قوة السمعة : 36712
عدد الإجابات: 257
 offline 
look/images/icons/i1.gif أرشفة ساعات غياب التلاميذ
وعليكم السلام أخي الكريم
تفضل الكود التالي
Sub Test_YasserKhalil()
    Dim xDate, xName, ws As Worksheet, sh As Worksheet, m As Long, iRow As Long
    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets(1)
        Set sh = ThisWorkbook.Worksheets(2)
        xDate = Application.Match(ws.Range("C2").Value2, sh.Rows(5), 0)
        If IsError(xDate) Then MsgBox "No Such A Date", vbExclamation: Exit Sub
        m = ws.Columns(2).Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row
        For iRow = 6 To m
            xName = Application.Match(ws.Cells(iRow, 2).Value, sh.Columns(2), 0)
            If IsError(xName) Then GoTo Skipper
            If ws.Cells(iRow, 2).Value <> "" Then sh.Cells(xName, xDate).Value = ws.Cells(iRow, 13).Value
Skipper:
        Next iRow
        Application.ScreenUpdating = True
    MsgBox "Done", 64
End Sub


ولكن الملف يحتاج لمراجعة لأن الملف غير دقيق في بعض الأمور
أولاً الملف معتمد على البيانات من مصدر آخر وهذا يسبب ثقل في التعامل مع الملف 
ثانياً الكود يعتمد على الاسم ولاحظت وجود أسماء مكررة وهذا يؤدي إلى تعارض في النتائج المتوقعة (يفضل أن يكون لكل طالب رقم مميز كالرقم القومي أو كود بحيث يكون غير مكرر ويكون الاعتماد عليه في الكود)

26-01-2023 09:32 صباحا
مشاهدة مشاركة منفردة [2]
ayoub2007
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 163
الجنس : ذكر
تاريخ الميلاد : 23-12-1970
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 106
 offline 
look/images/icons/i1.gif أرشفة ساعات غياب التلاميذ
أولا ألف شكر أستاذ ياسر تم المطلوب 
ثانيا فيما يخص الملاحظات فهي كما أشرت لها و أنا حاولت لأن الملف الذي أعمل عليه به بيانات كثيرة و حجمه كبير فمعذرة و شكرا مرة أخرى 
تحياتي أستاذنا الكريم
ألف ألف شكر لجميع أساتذة المنتدى و بالأخص الأستاذ ياسر 
تحياتي لكم جميعا 

31-01-2023 09:26 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10461
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 539
قوة السمعة : 36712
عدد الإجابات: 257
 offline 
look/images/icons/i1.gif أرشفة ساعات غياب التلاميذ
بارك الله فيك أخي الكريم 
وجزيت بمثل ما دعوت لنا وزيادة




الكلمات الدلالية
أرشفة ، ساعات ، غياب ، التلاميذ ،


 










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

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