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

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


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


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





نقل الطلبة الى الناجحين الى مستوى اعلا مع ترك معيدين

السلام عليكم اخواني جزاكم الله خيرا عندي طلب به ملف مرفق للتظيح كمثال لكي استفد منه انا والجميع ان شاء الله لكن الطلب ..



25-12-2017 08:24 مساء
malik
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 857
المشاركات : 284
الجنس : ذكر
تاريخ الميلاد : 4-7-1985
الدعوات : 5
قوة السمعة : 303
الاعجاب : 0
 offline 
السلام عليكم اخواني جزاكم الله خيرا
عندي طلب به ملف مرفق للتظيح كمثال  لكي استفد منه انا والجميع ان شاء الله 
لكن الطلب صعب شوي ارجوا العمل عليه وتلبية طلبنا 
وشكرا 

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  نقل الطلبة الناجحين الى مستوى اعلا مع ترك المعيدين.rar   تحميل rar مرات التحميل :(43)
الحجم :(74.581) KB





31-12-2017 12:01 صباحا
مشاهدة مشاركة منفردة [1]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1288
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4314
الاعجاب : 2
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif نقل الطلبة الى الناجحين الى مستوى اعلا مع ترك معيدين
استاذ مالك كالعادة لا تخبرنا بسؤالك جيدا ولا تشرحه جيدا

ونظر لان ملف العمل الخاص بك عندى من قبل
ونظر لانى افهم عملك جيدا استطيع ان اخبرك انه لا يلمزك على هذا المجهود او الفورم
فيكفى استخدام الزر الحالى على الفورم 3 الرئيسي عندك 
Sub abo_dahab_finel()
Dim sh     As Worksheet
Dim ws     As Worksheet
Dim wss    As Worksheet
Dim ss     As Worksheet
Dim k      As String
Dim kk     As String
Dim kkk    As String
Dim lr     As Long, i As Long, i2 As Long
Dim lr2    As Long, s As Long, rw As Long
Dim lr3    As Long, m As Long, nm As Long
Dim lr4    As Long
Dim n      As Range
Dim MyArray, x
Dim p

    p = InputBox("هذا الإجراء يتطلب باس ورد حتى يتم التنفيذ.", "Password Required")
    If p = "123456" Then
    GoTo 90
    Else
    MsgBox "كلمة المرور خاطئة حاول مرة اخرى"
    Exit Sub
    End If
90:
Application.ScreenUpdating = False


Set wss = Sheet1
With wss
lr = .Cells(Rows.Count, 1).End(xlUp).Row

For Each n In .Range("a1:a10")
 i = n.Row + 1
For i2 = 1 To 3
    k = n.Value
    Set ws = Sheets(k)
    If .Cells(i2, i) <> "" Then
      kk = .Cells(i2, i)
      Set sh = Sheets(kk)
      Else
      GoTo 100
    End If
        lr2 = sh.Cells(Rows.Count, 40).End(xlUp).Row
        lr3 = ws.Cells(Rows.Count, 3).End(xlUp).Row

            MyArray = ws.Range("a2:q" & lr3 + 1)

            ReDim y(1 To lr3, 1 To 17)
            For x = 1 To lr3 - 1

            If sh.Cells(x + 4, 40).Value >= 5 And sh.Range("b" & x + 4).Value = ws.Range("c" & x + 1).Value & " " & ws.Range("d" & x + 1).Value Then
               rw = rw + 1
              For m = 1 To 17
               y(rw, m) = MyArray(x, m)
              Next m
              ws.Range(ws.Cells(x + 1, 1), ws.Cells(x + 1, 17)) = ""
            End If

            Next x
            kkk = n.Offset(2, 0).Value
            If kkk <> "" Or IsNumeric(kkk) Then
            Set ss = Sheets(kkk)
            lr4 = ss.Cells(Rows.Count, 1).End(xlUp).Row
            If rw > 0 Then ss.Cells(lr4, 2)(2, 0).Resize(rw, 17).Value = y()
            rw = 0
            Else
            Set ss = Sheet1
            lr4 = ss.Cells(Rows.Count, 3).End(xlUp).Row
            If rw > 0 Then ss.Cells(lr4, 2)(2, 0).Resize(rw, 17).Value = y()
            rw = 0
            End If

Next i2
100:
Next n
'============================================
For Each n In .Range("a1:a10")
k = n.Value
    Set ws = Sheets(k)
    lr = ws.Cells(Rows.Count, 3).End(xlUp).Row

    MyArray = ws.Range("A2:q" & lr)

    ReDim y(1 To lr, 1 To 17)
    For x = 1 To lr - 1
    If MyArray(x, 3) <> "" Then
         rw = rw + 1
         y(rw, 1) = rw
              For m = 2 To 17
               y(rw, m) = MyArray(x, m)
              Next m
    End If
     Next x
    ws.Range("a2:q" & lr + 5).ClearContents
    lr = ws.Cells(Rows.Count, 3).End(xlUp).Row
    If rw > 0 Then ws.Cells(lr, 2)(2, 0).Resize(rw, 17).Value = y()
    rw = 0

Next n
'=============================================
For Each n In .Range("m1:m29")
k = n.Value
    If k <> "" Then
    Set ws = Sheets(k)
    Else
    GoTo 80
    End If
    lr = ws.Cells(Rows.Count, 2).End(xlUp).Row

    Const con1 As Long = 3
    Const con2 As Long = 34
    For i = con1 To con2 Step 3
        ws.Range(ws.Cells(5, i), ws.Cells(lr, i + 1)).ClearContents
    Next i
80:
Next n
End With
Application.ScreenUpdating = True
MsgBox "don..........."
End Sub


وبه 
اولا قم بانشاء شيت جديد وهو sheet1 
ثم تضع بالعمود a   اسماء الشيتات التى بها بيانات الطلبه بكل السنوات 
ثم من العمود b1 : b3  تضع اسماء الشيتات التى به الدرجات 
ثم بشيتات الدرجات بالعمود an تضع معادلة بمجموع الدرجات بكل سنة بحيث انها اذا زادة عن 5 يقوم الكود بالذهاب الى شيت البيانات ووضع بيانات صاحب الدرجات بالمصوفة ويحفظها ثم ينقله للنسة التالية
ملحوظة ان الخلية 2a تقابلها من البيانات b1:b3
والخلية a2 تقابلها c1:c3  وهكذا


وبالشيت الجديد تضع جميع الاسماء الخاصة بالدرجات في العمود  m بحيث تكون من العمود m1 : 29 
وذالك حتى يقوم بالدخول على تلك الشيتات ثم يقوم بحذ الدرجات القديمة حتى يكون البرنامج جاهز للعمل بالسنة الجديده دون تضارب النتائج او الدرجات 


ثم تخفى تلك الصفوف ومن الصف 30 فم بوضع عنوان لكل عمود  مثل المسلسل     رقم التسجيل       اللقب      الاسم    و هكذا
 

ومرفق افضل من كل هذا الشرح البرنامج الخاص بك على ثلاث اقسام لكبر حجمه وبه شرح شامل للامر
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

بانهاية اتمنى ان يكون ما تريد تطلب لان هذا العمل ارهقنى حتى تنفيذه لان عدد الشيتات عندك كثيره جدا ومتشاعبه وأخذ منى الكثير من الوقت حتى فهمتها 


تقبل تحياتى وتقديرى 

 
 
 
  11111.part1.rar   تحميل rar مرات التحميل :(98)
الحجم :(2097.152) KB
  11111.part2.rar   تحميل rar مرات التحميل :(103)
الحجم :(2097.152) KB
  11111.part3.rar   تحميل rar مرات التحميل :(71)
الحجم :(1309.743) KB




توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب

31-12-2017 10:24 صباحا
مشاهدة مشاركة منفردة [2]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1248
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 53
قوة السمعة : 9184
الاعجاب : 38
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif نقل الطلبة الى الناجحين الى مستوى اعلا مع ترك معيدين
جزاكم الله خيرا اخي الكريم محمود ابوالدهب مجهود رائع ونشاط ملحوظ
وفقك الله في مساعدة اخوانك وزادك علما
تقبل تحياتي
 



توقيع :Yasser Elaraby
663013020


31-12-2017 05:08 مساء
مشاهدة مشاركة منفردة [3]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1288
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4314
الاعجاب : 2
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif نقل الطلبة الى الناجحين الى مستوى اعلا مع ترك معيدين
المشاركة الأصلية كتبت بواسطة: Yasser Elaraby
جزاكم الله خيرا اخي الكريم محمود ابوالدهب مجهود رائع ونشاط ملحوظ
وفقك الله في مساعدة اخوانك وزادك علما
تقبل تحياتي
 

اشكرك استاذ ياسر معللمنا العزيز وبارك الله فيك وعلى دربك نسير



توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب

01-01-2018 11:08 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8640
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25458
الاعجاب : 167
 offline 
look/images/icons/i1.gif نقل الطلبة الى الناجحين الى مستوى اعلا مع ترك معيدين
بارك الله فيك أخي الغالي محمود أبو الدهب وجزاك الله خيراً




01-01-2018 04:52 مساء
مشاهدة مشاركة منفردة [5]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1288
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4314
الاعجاب : 2
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif نقل الطلبة الى الناجحين الى مستوى اعلا مع ترك معيدين
المشاركة الأصلية كتبت بواسطة: YasserKhalil
بارك الله فيك أخي الغالي محمود أبو الدهب وجزاك الله خيراً

اشكرك استاذى ومعلمى العزيز ومرة تانية عودة حميده وكم اشتقنا لتواجدك 
 



توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب

01-01-2018 04:59 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8640
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25458
الاعجاب : 167
 offline 
look/images/icons/i1.gif نقل الطلبة الى الناجحين الى مستوى اعلا مع ترك معيدين
تسلم لي أخي الغالي محمود وإن شاء الله متواجد معكم وحتى ولو لم أتواجد بجسدي فروحي موجودة دائماً إن شاء الله




01-01-2018 05:52 مساء
مشاهدة مشاركة منفردة [7]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1288
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4314
الاعجاب : 2
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif نقل الطلبة الى الناجحين الى مستوى اعلا مع ترك معيدين
يا شاعر روبعيات ياسر خليل
 



توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب

01-01-2018 07:55 مساء
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8640
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25458
الاعجاب : 167
 offline 
look/images/icons/i1.gif نقل الطلبة الى الناجحين الى مستوى اعلا مع ترك معيدين
فينك يا أبو الحداحيد من الموضوع الجديد الخاص بالمصفوفات .. عايزين دروس عايزين دروس ، ولما تنزل الدروس كله بيهرب .. 




01-01-2018 11:02 مساء
مشاهدة مشاركة منفردة [9]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1288
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4314
الاعجاب : 2
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif نقل الطلبة الى الناجحين الى مستوى اعلا مع ترك معيدين
لسه مشغول مدخلتش بتقلى فاضلى تلت او اربعات ايام وارجع لنشاطى تانى دعواتك 



توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب

08-01-2018 06:47 مساء
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8640
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25458
الاعجاب : 167
 offline 
look/images/icons/i1.gif نقل الطلبة الى الناجحين الى مستوى اعلا مع ترك معيدين
ربنا يكون في العون أخي العزيز محمود
وفقني الله وإياكم لكل خير






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
برنامج كنوز ـ للكنترول المدرسى وشئون الطلبة ـ الاصدار الخامس 2020 محمد الدسوقى
242 23284 محمد الدسوقى
حساب تقديرات درجات الطلبة moneer
2 147 moneer
شرح فيديو لحساب الناجحون والدور الثانى لمجموعة من الطلبة moneer
0 108 moneer
قوائم الطلبة مالك ماريه
12 1096 tehamot
الطلبة الأوائل في حالة التكرار Khairi
17 700 YasserKhalil

الكلمات الدلالية
الطلبة ، الناجحين ، مستوى ، اعلا ، معيدين ،


 







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

الساعة الآن 02:37 مساء

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