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

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


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





اعاده ترتيب بيانات جدول اكسل الى الوضع الاصلي

السلام عليكم اساتذتي الكرام بعد ان قام الاستاذ ابراهيم والاستاذ ياسر بعمل المطلوب في هذا الموضوع لمشاهدة الروابط يلزمك ا ..


موضوع مغلق


09-05-2022 07:21 مساء
oilman852
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-01-2019
رقم العضوية : 11218
المشاركات : 86
الدولة : العراق
الجنس : ذكر
تاريخ الميلاد : 23-9-1985
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 35
 offline 

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


تم تحرير الموضوع بواسطة :oilman852
بتاريخ:10-05-2022 07:49 صباحا



أفضل إجابة مقدمة من YasserKhalil وهي:
وعليكم السلام
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
    Dim a, i As Long, ii As Long
    Columns("D:E").ClearContents
    a = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value
    ReDim b(1 To Application.WorksheetFunction.Even(UBound(a)), 1 To 2)
    For i = LBound(b) To UBound(b) Step 2
        ii = ii + 1
        b(ii, 1) = a(i, 1)
        On Error Resume Next
            b(ii, 2) = a(i + 1, 1)
        On Error GoTo 0
    Next i
    Range("D1").Resize(ii, UBound(b, 2)).Value = b
End Sub
عرض الإجابة




09-05-2022 07:51 مساء
مشاهدة مشاركة منفردة [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, i As Long, ii As Long
    Columns("D:E").ClearContents
    a = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value
    ReDim b(1 To Application.WorksheetFunction.Even(UBound(a)), 1 To 2)
    For i = LBound(b) To UBound(b) Step 2
        ii = ii + 1
        b(ii, 1) = a(i, 1)
        On Error Resume Next
            b(ii, 2) = a(i + 1, 1)
        On Error GoTo 0
    Next i
    Range("D1").Resize(ii, UBound(b, 2)).Value = b
End Sub



الكلمات الدلالية
اعاده ، ترتيب ، بيانات ، جدول ، اكسل ، الوضع ، الاصلي ،


 










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

الساعة الآن 06:17 مساء