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

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


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





نقل بيانات من ثلاث صفحات الى صفحه واحده بشرط

السلام عليكم ورحمة الله وبركاته اريد نقل بيانات من ثلاث صفحات متفرقة ( data1 - data2- data3) الى صفحه واحدهquot;نهائيqu ..



30-06-2020 12:50 صباحا
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 

السلام عليكم ورحمة الله وبركاته
اريد نقل بيانات من ثلاث صفحات متفرقة ( data1 - data2- data3)  الى صفحه واحده"نهائي"
كما بالملف
بحيث الصفحه النهائيه يكون:
أول صف للطالب1..من صفحة data1
وثان صف للطالب1... يكون فارغ
وثالث صف للطالب1...بها يكون من صفحة data2
ورابع صف للطالب1... بها يكون من صفحة data3
وهكذا ..لباقي الطلاب
من فضلك لا تقوم برفع الملف مضغوط ,طالما حجمه صغير تجنباً لعدم اهدار وقت الأساتذة
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
 
 
  نقل ثلاث صفحات الى صفحه واحده بشرط.xlsm   تحميل xlsm مرات التحميل :(2)
الحجم :(20.36) KB


30-06-2020 08:07 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif نقل بيانات من ثلاث صفحات الى صفحه واحده بشرط
وعليكم السلام
قمت بنسخ ورقة العمل المسماة "نهائي" وسميتها xx لتجربة الكود عليها
جرب الكود التالي عله يكون المطلوب ويفي بالغرض إن شاء الله
Sub Test()
    Dim w1 As Worksheet, w2 As Worksheet, w3 As Worksheet, sh As Worksheet, i As Long, r As Long
    Application.ScreenUpdating = False
        Set w1 = ThisWorkbook.Worksheets("data1")
        Set w2 = ThisWorkbook.Worksheets("data2")
        Set w3 = ThisWorkbook.Worksheets("data3")
        Set sh = ThisWorkbook.Worksheets("xx")
        sh.Range("E5:X" & sh.Cells(Rows.Count, "E").End(xlUp).Row).ClearContents
        For i = 1 To 4
            r = (i + 4 * i) - i + 1
            sh.Cells(r, 5).Resize(, 20).Value = w1.Cells(i, 1).Resize(, 20).Value
            sh.Cells(r + 1, 5).Resize(, 20).Value = Empty
            sh.Cells(r + 2, 5).Resize(, 20).Value = w2.Cells(i, 1).Resize(, 20).Value
            sh.Cells(r + 3, 5).Resize(, 20).Value = w3.Cells(i, 1).Resize(, 20).Value
        Next i
    Application.ScreenUpdating = True
End Sub

30-06-2020 04:20 مساء
مشاهدة مشاركة منفردة [2]
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 
look/images/icons/i1.gif نقل بيانات من ثلاث صفحات الى صفحه واحده بشرط
جزاك الله خيرا استاذ ياسر. . .  شاكر لحضرتك ...لكن عند اضافة طالب اخر لا يتم النقل 
هل سيكون التغيير في هذا.... الرقم 5
 For i = 1 To 5

30-06-2020 08:10 مساء
مشاهدة مشاركة منفردة [3]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif نقل بيانات من ثلاث صفحات الى صفحه واحده بشرط
لا تسأل بل جرب  وإلا كيف سنتعلّم
(اجمالاً العدد هو عدد الطلاب 4/5/10/15) حسب الموجود

30-06-2020 09:08 مساء
مشاهدة مشاركة منفردة [4]
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 
look/images/icons/i1.gif نقل بيانات من ثلاث صفحات الى صفحه واحده بشرط
هذا ما فعلته بالضبط... جزاك الله كل خير
كان السؤال بعد التجريب تاكيدي

01-07-2020 06:46 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif نقل بيانات من ثلاث صفحات الى صفحه واحده بشرط
بارك الله فيك يا دكتور
يمكن جعل رقم 4 ديناميكي بالاعتماد على أي ورقة من أوراق البيانات data1 حيث يمكنك معرفة رقم آخر صف به بيانات والاعتماد عليه ..
الحمد لله الذي بنعمته تتم الصالحات.




الكلمات الدلالية
واحده ، بشرط ، صفحه ، صفحات ، ثلاث ، بيانات ،


 










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

الساعة الآن 11:30 صباحا