فرز اسماء حسب حروف عمود معين

[أبو أنس80]

بسم الله الرحمن الرحيم

في بالي فكرة لتطبيق سورت الاسماء حسب حروف عمود معين

في المرفق بعض اسماء ممكن فرزها حسب رغبة 

ليس بسورت طبيعي

officena.rar

[الـعيدروس]

السلام عليكم

حط الشروط اول الكود وجرب تنفيذ الكود

Sub Ali_Sort()
Dim Cn_A As String
Dim Rn As Range, My_Sort As Range
Dim Va_Sp
   'xxxxxxxxxxxxxxxxx
   ' نطاق شروط احرف الفرز
    Set Rn = [A4:A13]
   ' نطاق المراد فرز بياناته
    Set My_Sort = [C1:C13]
   'xxxxxxxxxxxxxxxxx
With Application
    .ScreenUpdating = False
    Cn_A = Join(.Transpose(.Index(Rn.Value, 0)), ",")
    .AddCustomList ListArray:=My_Sort
    Va_Sp = .GetCustomListNum(My_Sort.Value)
 With ActiveSheet.Sort
      .SortFields.Clear
      .SortFields.Add Key:=My_Sort, Order:=xlAscending, CustomOrder:="""" & Cn_A & """"
      .SetRange My_Sort
      .Apply
 End With
    .DeleteCustomList Va_Sp
    .ScreenUpdating = True
End With
 Set Rn = Nothing: Set My_Sort = Nothing
End Sub

 

تم تعديل ديسمبر 2, 2015 بواسطه الـعيدروس

[أبو أنس80]

شكرا جزيلا 

بارك الله فيك

عمل رائع

تسلم يدك

 

تم تعديل ديسمبر 2, 2015 بواسطه أبو أنس80

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

جرب هذا الملف

 

names_by_letters.zip

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

أخي الكريم

ما هو المنطق في فرز الأسماء ؟؟؟

هل الحروف المذكورة هي الأساس ؟؟! وماذا لو كان الاسم ليس ضمن الحروف الموجودة في القائمة

أخي الحبيب أبو نصار

جربت الكود ولم أصل للمنطق المعمول عليه بالنسبة للطلب .. والنتائج خلاف ما فهمت

فهلا أخبرتني ما المنطق في الطلب؟

 

أقصد على سبيل المثال الحرف أ (بهمزة في النطاق الأول) يليه ا بدون همزة

عند تنفيذ الكود (وضعت بعض الأسماء بها حرف الألف عليه همزة للتجربة) وجدت أن الترتيب معكوس أي أن الأسماء التي لها حرف الألف بدون همزة أتت أولاً

وبقية الأسماء أتت في الترتيب العادي وليس الترتيب المفترض أن يكون الترتيب على أساسه

[الـعيدروس]

فعلاً الكود لاينفذ شيء 

سأعمل عليه لاحقاً ان شاء الله

[أبو أنس80]

وانا جربت ملف استاذ سليم لايشتغل

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

 

انا استفيد من ملف بسبب سورت في مدرستي مختل تماما

في حالة ارسال اسماء الى تربية ممكن على طلب سورت تربية و ليس مدرستي

اشكركم جميعا

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

أخي الكريم ابو أنس

هل كود الأخ أبو نصار أدى الغرض ؟!! لأني جربته ولم يؤدي المطلوب كما هو واضح لي ..

يرجى توضيح مشاركاتك قليلاً حيث أن الكلام لا يكون مفهوم بالنسبة لي بشكل كامل

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

[مختار حسين محمود]

  مش فاهم  أي حاجة فى أى حاجة  !!!!!!!!!!!!!!!   اللى فاهم  يا ريت يوضح  يمكن أقدر أساعد

 

تم تعديل ديسمبر 3, 2015 بواسطه مختار حسين محمود

[ا بو سليمان]

ننتظر ابداع الاحبه

[أبو أنس80]

اخيي ياسر كود ستاذ العيدروس جميل جدا و هو قصدي

 اما كود اخي سليم كود جميل و ملف رائع لكن انا اسفيد من كود عيد روس شوف المرفق

اعتذر لجميعكم بسبب عدم مفهوم ملاحضاتي

 

officena.rar

[أبو أنس80]

جربت كود  لاسم لكن لايشتغل

شوف المرفق

sort.rar

[أبو أنس80]

 يا اخوان جربت كود  لاسم لكن لايشتغل

شوف المرفق