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

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


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





ترتيب بيانات الصفوف افقياَ

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


موضوع مغلق


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

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
السلام عليكم اساتذتي الكرام .......
لدي ملف الاكسل هذا 
اريد ترتيب البيانات ابجدياً للصفوف وليس للأعمدة دفعه واحدة وليس صف صف
انا اقوم بنسخ الصفوف ولصقها كأعمدة بعدها اعمل لها ترتيب اجدي ثم اقم بنسخ الاعمدة الى صفوف لكن هذه العملية متعبة كون الجدول كبير
 
 
  New Microsoft Excel Worksheet.xlsx   تحميل xlsx مرات التحميل :(7)
الحجم :(9.373) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
وعليكم السلام أخي الكريم
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
    Dim rng As Range, r As Long, lr As Long, lc As Long
    Application.ScreenUpdating = False
        With ActiveSheet
            lr = .Cells(Rows.Count, 1).End(xlUp).Row
            For r = 1 To lr
                lc = .Cells(r, Columns.Count).End(xlToLeft).Column
                Set rng = .Range(.Cells(r, 1), .Cells(r, lc))
                rng.Sort Key1:=rng, Order1:=xlAscending, Orientation:=xlSortRows
            Next r
        End With
    Application.ScreenUpdating = True
End Sub
عرض الإجابة




13-06-2022 04:42 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif ترتيب بيانات الصفوف افقياَ
وعليكم السلام أخي الكريم
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
    Dim rng As Range, r As Long, lr As Long, lc As Long
    Application.ScreenUpdating = False
        With ActiveSheet
            lr = .Cells(Rows.Count, 1).End(xlUp).Row
            For r = 1 To lr
                lc = .Cells(r, Columns.Count).End(xlToLeft).Column
                Set rng = .Range(.Cells(r, 1), .Cells(r, lc))
                rng.Sort Key1:=rng, Order1:=xlAscending, Orientation:=xlSortRows
            Next r
        End With
    Application.ScreenUpdating = True
End Sub

13-06-2022 09:31 صباحا
مشاهدة مشاركة منفردة [2]
oilman852
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-01-2019
رقم العضوية : 11218
المشاركات : 86
الدولة : العراق
الجنس : ذكر
تاريخ الميلاد : 23-9-1985
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 35
 offline 
look/images/icons/i1.gif ترتيب بيانات الصفوف افقياَ
شكرا استاذي الغالي بس تطلعلي هاي العبارة
واذا اردت العمل على جزء محدد من الجدول اغير عبارة activesheet  الى selected ام لا ؟؟؟؟ yvWNF_Untitled
 
 


13-06-2022 01:00 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif ترتيب بيانات الصفوف افقياَ
أخي الكريم
الكود مجرب على نفس الملف الذي قمت برفعه
قم بوضع الكود في موديول جديد واذهب لورقة العمل المطلوب العمل عليها ثم اضغط Alt + F8 واختر اسم الكود المطلوب تنفيذه وانقر Run
إذا كان الملف مختلف عن الملف المرفق وظهرت الرسالة فاعلم أن الرسالة سببها ورقة العمل قد تكون باسم مختلف وبما أننا لم نشر لورقة العمل باسمها ، فربما كانت هناك أكثر من ورقة عمل محددة ..



الكلمات الدلالية
ترتيب ، بيانات ، الصفوف ، افقياَ ،


 










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

الساعة الآن 08:38 صباحا