logo

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



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





  • غير مجابة
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
المشاركات : 10457
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36399
الاعجاب : 66
وعليكم السلام
جرب الكود التالي عله يفي بالغرض إن شاء الله
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 112 YasserKhalil
البحث عن التكرار وترتيب البيانات بناءً على الأكواد المتشابهة Find Duplicates Sort By Similar IDs YasserKhalil
10 1810 علي بطيخ سالم
كود لترحيل البيانات لاعمدة مختلفة الترتيب mahmoud ayad
11 1140 mahmoud ayad
ترتيب البيانات على الليست بوكس من الاكبر الى الاصغر عبدالرحمن صبحى
2 973 عبدالرحمن صبحى
ترتيب البيانات في مصفوفة أحادية Sort Data In 1D Array Using QuickSort Procedure YasserKhalil
5 1895 YasserKhalil

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









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

الساعة الآن 08:47 AM