logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
بكار للأبد لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة خطأ برمجي والماكرو لا يعمل run time error 438 اكسيل اسئله واجابات



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





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




look/images/icons/i1.gif اعاده ترتيب بيانات جدول اكسل الى الوضع الاصلي
  09-05-2022 07:51 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10522
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36735
الاعجاب : 177
وعليكم السلام
جرب الكود التالي عله يفي بالغرض إن شاء الله
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 197 YasserKhalil
البحث عن التكرار وترتيب البيانات بناءً على الأكواد المتشابهة Find Duplicates Sort By Similar IDs YasserKhalil
10 1896 علي بطيخ سالم
كود لترحيل البيانات لاعمدة مختلفة الترتيب mahmoud ayad
11 1188 mahmoud ayad
ترتيب البيانات على الليست بوكس من الاكبر الى الاصغر عبدالرحمن صبحى
2 1020 عبدالرحمن صبحى
ترتيب البيانات في مصفوفة أحادية Sort Data In 1D Array Using QuickSort Procedure YasserKhalil
5 1977 YasserKhalil

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









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

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