ترتيب العمود A تصاعديا

[mohamed deyaa eldin]

اللهم صلي علي سيدنا محمد 

اريد لو سمحت ترتيب العمود A  تصاعديا في نفس الكود 

 

Split_cells.xlsm

[احمد بدره]

جرب هذا

Split_cells.xlsm

[mohamed deyaa eldin]

لو سمحت ممكن تنسخ الكود هنا علشان مش شغال معايا

[mohamed deyaa eldin]

شكرا

[احمد بدره]

لا شكر على واجب فكلنا أخوةوالمنتدى تعليمي بالدرجة الأولى

[mohamed deyaa eldin]

vba مش بيكتب عندى عربي علشان كدا الاكسيل مش بيتغل معايا @احمد بدره

[mohamed deyaa eldin]

اي اكسيل بتبعته مش بيشتغل معايا

 

[احمد بدره]

قبل نسخ الكود تأكد بأن اللغة العربية تم اختيارها  من شريط المهام ( أسفل الشاشة ) حتى يتم نسخ الكود بدون مشاكل  تأمل الصورة

 

[mohamed deyaa eldin]

Split_cells (1).xlsm

[احمد بدره]

الكتابة ظهرك معك بهذه الطريقة لأنك لم تحول اللغة إلى العربية قبل النسخ

و قمت بالتعديل على الكود حتى يتسنى لك  تشغيل الكود

وإليك الملف بعد التعديل

Sub Sort()

    Range("A1:E1001").Select
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("A1:A1001") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.ActiveSheet.Sort
        .SetRange Range("A1:E1001")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("F1").Select
End Sub

 

Split_cells.xlsm

[سليم حاصبيا]

استاذي أحمد

لا حاجة لهذا الكود الطويل المفصل بالنسبة لابجدة الجدول

كما ان عمليات SELECT ترهق الاكسل بدون فائدة (الرجاء قدر الامكان الاستغناء عنها)

يكفي هذا الكود الخفيف

Sub sort_me()
Range("A1").CurrentRegion.Sort _
key1:=Range("A1"), Order1:=1, Header:=2
End Sub

 

[احمد بدره]

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

بارك الله فيك

[mohamed deyaa eldin]

شكرا استاذ سليم

👍