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

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


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





جلب بيانات الأعمدة لتصبح أسفل بعضها

محتاج طريقة أجمع بها بيانات الأعمدة من بعد العمود J لتصبح مصطفة تحت بعضها في العمود من A: J


موضوع مغلق


09-12-2020 08:40 مساء
علي بطيخ سالم
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-09-2018
رقم العضوية : 8086
المشاركات : 272
الجنس : ذكر
تاريخ الميلاد : 30-10-1982
الدعوات : 1
يتابعهم : 7
يتابعونه : 3
قوة السمعة : 1084
عدد الإجابات: 12
 offline 

محتاج طريقة أجمع بها بيانات الأعمدة من بعد العمود J لتصبح مصطفة تحت بعضها في العمود من A: J
 
 
  Sheet2.xlsx   تحميل xlsx مرات التحميل :(8)
الحجم :(35.227) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
السلام عليكم بها نبدأ اي موضوع اخي العزيز علي
جرب الكود التالي
Sub Test()
    Dim c As Long, lr As Long, m As Long
    For c = 11 To Cells(1, Columns.Count).End(xlToLeft).Column Step 10
        m = Cells(Rows.Count, c).End(xlUp).Row
        lr = Cells(Rows.Count, 1).End(xlUp).Row + 1
        Cells(lr, 1).Resize(m - 2, 10).Value = Cells(3, c).Resize(m - 2, 10).Value
    Next c
End Sub
عرض الإجابة




09-12-2020 08:53 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif جلب بيانات الأعمدة لتصبح أسفل بعضها
السلام عليكم بها نبدأ اي موضوع اخي العزيز علي
جرب الكود التالي
Sub Test()
    Dim c As Long, lr As Long, m As Long
    For c = 11 To Cells(1, Columns.Count).End(xlToLeft).Column Step 10
        m = Cells(Rows.Count, c).End(xlUp).Row
        lr = Cells(Rows.Count, 1).End(xlUp).Row + 1
        Cells(lr, 1).Resize(m - 2, 10).Value = Cells(3, c).Resize(m - 2, 10).Value
    Next c
End Sub

09-12-2020 09:27 مساء
مشاهدة مشاركة منفردة [2]
علي بطيخ سالم
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-09-2018
رقم العضوية : 8086
المشاركات : 272
الجنس : ذكر
تاريخ الميلاد : 30-10-1982
الدعوات : 1
يتابعهم : 7
يتابعونه : 3
قوة السمعة : 1084
عدد الإجابات: 12
 offline 
look/images/icons/i1.gif جلب بيانات الأعمدة لتصبح أسفل بعضها
جزاكم الله خيراً استاذنا على التنبيه لم أنتبه لذلك احتمال لأني قمت بعمل موضوعين في المنتدى مع بعض فلم أنتبه لذلك بارك الله لك على التنبيه 

09-12-2020 09:33 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif جلب بيانات الأعمدة لتصبح أسفل بعضها
وجزيت خيراً أخي العزيز علي بمثل ما دعوت لي وزيادة.



الكلمات الدلالية
بيانات ، الأعمدة ، لتصبح ، أسفل ، بعضها ،


 










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

الساعة الآن 07:16 صباحا