logo

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



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





  • غير مجابة
09-05-2022 07:21 مساءً
السلام عليكم اساتذتي الكرام
بعد ان قام الاستاذ ابراهيم والاستاذ ياسر بعمل المطلوب في هذا الموضوع
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
سوالي هو هل يمكن عكس العمليه
بمعنى ان عمود الاسماء وتحته الرقم الامتحاني اريد ان اجعله عمودين متجاورين
مع جزيل الشكر
تم تحرير الموضوع بواسطة :oilman852 بتاريخ:10-05-2022 07:49 صباحاً




look/images/icons/i1.gif اعاده ترتيب بيانات جدول اكسل الى الوضع الاصلي
  09-05-2022 07:51 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10510
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36676
الاعجاب : 161
وعليكم السلام
جرب الكود التالي عله يفي بالغرض إن شاء الله
CODE
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

أثارت هذه المشاركة إعجاب: ali mohamed ali، hassona229،



اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
المساعدة في تغيير ترتيب بيانات جدول اكسل oilman852
5 152 YasserKhalil
البحث عن التكرار وترتيب البيانات بناءً على الأكواد المتشابهة Find Duplicates Sort By Similar IDs YasserKhalil
10 1857 علي بطيخ سالم
كود لترحيل البيانات لاعمدة مختلفة الترتيب mahmoud ayad
11 1171 mahmoud ayad
ترتيب البيانات على الليست بوكس من الاكبر الى الاصغر عبدالرحمن صبحى
2 1001 عبدالرحمن صبحى
ترتيب البيانات في مصفوفة أحادية Sort Data In 1D Array Using QuickSort Procedure YasserKhalil
5 1930 YasserKhalil

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









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

الساعة الآن 01:01 PM