ترتييب الاسماء ابجدياً يعتمد على حروف الاسم الاول ومطاطياً

[عامر ياسر]

السلام عليكم أساتذة الاكسيل المبدعون سؤالي اريد ترتيب الطلاب ابجدياً بحيث

يكون الترتيب معتمدا على حروف الاسم الأول مثال إبراهيم وادم الحرف الأول هو حرف أ

حيث يقوم الترتيب بجعل إبراهيم قبل ادم لأن الحرف الثاني من الاسم الـ ب قبل حرف د

وينطبق ذلك على الاناث ..... ويكون الترتيب الذكور أولا ومن ثم الاناث

ويكون الترتيب مطاطياً بحيث كلما اضيف اسما جديدا يرتبه تلقائيا 

كما موجود بالملف 

 

 

ترتيب الاسماء.xlsx

[ابراهيم الحداد]

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

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

اما الكود الثانى فضعه فى حدث ولرقة العمل

Sub SortData()
Range("C2:E" & Range("D" & Rows.Count).End(xlUp).Row).Sort key1:=Range("E2"), _
order1:=xlDescending, key2:=Range("D2"), order2:=xlAscending
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then
Call SortData
End If
End Sub

 

[احمد بدره]

بعد إذن أستتاذنا الفاضل زيزو

يجب ملاحظة كتابة كل الأسماء المبدوءة بألف بدون همزة  ، وكذك كل الأسماء المنتية بتاء مربوطة تُكتب هاء

حتى يتم الترتيب بأكوااد الأستاذ زيزو  كما تريد بالضبط

[عامر ياسر]

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