طلب الترتيب التلقائي الذكي حسب النص

[ابوالبراء]

السلام عليكم ورحمة الله

اعزائي اشكر الجميع القائمين والفعالين على هذا المنتدى الفعال وان يسعدهم دنيا واخره

لا اطيل عليكم

 

عند قيامي بالتصفح هنا وجدت ملف لأحد الاخوان الفعالين ويوجد به قائمه ذكيه لترتيب الاسماء ابجدياً..

لاكنني اريد تغيير ذلك بحيث تترتب حسب النص المطلوب كما بالمرفق..

 

ولكم خالص الشكر

القائمة الذكية11.rar

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

السلام عليكم

هل تقصد هكذا

حاول ان تحذف اسماً دون الرقم و سوف ترى النتيجة

ترقيم.rar

[ابوالبراء]

اشكرك استاذي سليم على تجاوبك السريع

واشكرك ايضا على معلوماتك ووقتك

 

لكن ليس هذا ما قصدته ...اريد مثل العمل الذي بالمرفق لدي

لكن الترتيب حسب الاسم وبدون ترقيم...مثلا

الفجر

الظهر 

العصر

المغرب

العشاء

 

فدائما يكون بالترتيب الفجر والذي يليه حتى لو تكرر مثلا..

الفجر 

الفجر

الظهر....وهكذا

[ياسر خليل أبو البراء]

الأخ سالم تفضل الملف المرفق

فيه ترتيب محدد كما تريد Custom List أي قائمة مخصصة بالأكواد

 

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

Sort Custom List.rar

تم تعديل أكتوبر 1, 2014 بواسطه YasserKhalil

[ياسر خليل أبو البراء]

وجدت حل للكود حتى يعمل مع اللغة العربية تفضل المرفق التالي

Sort Custom List.rar

[قصي]

لو تكرمت نريد الملف 2003

بارك الله فيك

[ياسر خليل أبو البراء]

لو تكرمت نريد الملف 2003

بارك الله فيك

تفضل أخي قصي

Sort Custom List.rar

[ياسر خليل أبو البراء]

يمكن استخدام النطاق بدلا من كتابة بنود المصفوفة بالشكل التالي :

Sub SortCustomList()
    Dim vArray() As Variant
    'Change the range which you want to set the custom list.
    vArray = Range("J1:J5")

    Dim i As Long
    For i = LBound(vArray, 1) To UBound(vArray, 1)
        Debug.Print vArray(i, 1)
    Next
    Application.AddCustomList vArray
    Range("A1").CurrentRegion.Sort key1:=Range("A1"), OrderCustom:=Application.CustomListCount + 1
    Application.DeleteCustomList Application.CustomListCount
End Sub

كل عام وأنتم بخير إخواني الأعزاء

[قصي]

جزاك الله كل خير اخي الاستاذ المحترم ياسر خليل

[ابوالبراء]

جزاك الله الف خيييير عزيزي ياسر 

اتمنى لك التوفيق

وكل عام وانت بخير

[قصي]

 

لو تكرمت نريد الملف 2003

بارك الله فيك

تفضل أخي قصي

 

كل عام وحضراتكم بخير

بارك الله فيكم

تم تعديل أكتوبر 2, 2014 بواسطه قصي