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

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


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





القفز لعملية النسخ من خلايا متفرقة

هل من طريقة لنسخ البيانات من العمود k ولصقه في الصفوف بداية من الصف الثاني وهكذا بنفس طريقة الصف الثاني المبين حالياً أع ..



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

هل من طريقة لنسخ البيانات من العمود k ولصقه في الصفوف بداية من الصف الثاني وهكذا بنفس طريقة الصف الثاني المبين حالياً أعلاه (بمعنى أن يتم مثلاً جميع الأكواد من العمود k2 : k10 وهكذا ويتم لصقهم بالترتيب في العمود a2 : a3 وهكذا باقي البيانات كما هو موضح في المرفق المرسل أدناه
 
 
  اختبار.xls   تحميل xls مرات التحميل :(8)
الحجم :(22.016) KB


18-05-2020 01:14 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif القفز لعملية النسخ من خلايا متفرقة
السلام عليكم أخي الكريم علي
جرب الكود التالي عله يفي بالغرض
Sub Test()
    Dim a, r As Long, i As Long
    Application.ScreenUpdating = False
        r = 2
        For i = 2 To Cells(Rows.Count, "K").End(xlUp).Row Step 8
            a = Range("K" & i).Resize(8).Value
            Cells(r, "A").Resize(, UBound(a)).Value = Application.Transpose(a)
            r = r + 1
        Next i
    Application.ScreenUpdating = True
    MsgBox "Done...", 64, "YasserKhalil Excel-Egy"
End Sub

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

18-05-2020 11:21 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif القفز لعملية النسخ من خلايا متفرقة
غفر الله لي ولك ولجميع أعضاء المنتدى وجميع المسلمين في شتى بقاع الأرض
الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات

27-05-2020 03:34 مساء
مشاهدة مشاركة منفردة [4]
adnan1417
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-05-2020
رقم العضوية : 19313
المشاركات : 11
الجنس : ذكر
تاريخ الميلاد : 1-8-88
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 16
 offline 
look/images/icons/i1.gif القفز لعملية النسخ من خلايا متفرقة
 a = Range("K" & i).Resize(8).Value
 Cells(r, "A").Resize(, UBound(a)).Value

السلام عليكم 
ممكن شرح لهذا السطر لو سمحت 

27-05-2020 05:36 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif القفز لعملية النسخ من خلايا متفرقة
وعليكم السلام أخي الكريم
في السطر الأول يتم تخزين عدد 8 خلايا في مصفوفة ليتم وضعها في السطر التالي بدايةً من الصف r وبامتداد 8 أعمدة ، حيث الهدف تحويل البيانات من شكل رأسي إلى أفقي

27-05-2020 11:49 مساء
مشاهدة مشاركة منفردة [6]
adnan1417
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-05-2020
رقم العضوية : 19313
المشاركات : 11
الجنس : ذكر
تاريخ الميلاد : 1-8-88
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 16
 offline 
look/images/icons/i1.gif القفز لعملية النسخ من خلايا متفرقة
شكرا جزيلا استاذ ياسر 
 




الكلمات الدلالية
خلايا ، لعملية ، النسخ ، القفز ، متفرقة ،


 










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

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