حل مشكلة فى ابجدة الأسماء الذكور أولا ـ الإناث أولا

[الأستاذ / محمد الدسوقى]

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

أرجو منكم مساعدتى في حل هذه المشكلة ، كما تعودنا منكم دائمًا تقديم الخير

المشكلة :  ( مرفق ملف يوضح المشكلة )

عند ( أبجدة الأسماء الذكور أولاً )  ..الكود شغال 100 %  ...

أما عند ( أبجدة الأسماء الإناث أولاً )  ..الكود شغال  ولكن تأتى الأسماء مرتبة بداية من أخر الشيت  من أسفل لأعلى وليس بداية من الخلية (  D18) كما بأبجدة الذكور

مع العلم أننى قد استخدمت نفس الكود في برامج أخرى وكان شغال 100 % ولكن هذه المرة لا أعرف سبب المشكلة

يعنى الخلاصة أريد ابجدة الأسماء سواء (الذكور أولا ) أو (الإناث أولا ) يبدأ الترتيب في الخلية (  D18)

ولكم وافر الشكر والاحترام

ترتيب التلاميذ حسب النوع.rar

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

أخي الكريم محمد الدسوقي

دعنا نبتعد عن الأكواد المسجلة بالماكرو العادي ..جرب الأكواد التالية فهي أيسر وأفضل إن شاء الله

أحدهما للذكور والآخر للإناث (اكتشف بنفسك) .. والفرق بين الكودين بسيط جداً جداً حوالي حرفين (اكتشف بنفسك)

هذا هو شعار المرحلة القادمة (اكتشف بنفسك)

الكود من هنا

تقبل تحياتي

[ابن بنها]

33 دقائق مضت, ياسر خليل أبو البراء said:

Sub Sort_Female() Dim LR As Long LR = Range("D" & Rows.Count).End(xlUp).Row Range("C18:N" & LR).Sort Key1:=Range("J18:J" & LR), Order1:=2, Header:=xlNo End Sub

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

42 دقائق مضت, ياسر خليل أبو البراء said:

Sub Sort_Male() Dim LR As Long LR = Range("D" & Rows.Count).End(xlUp).Row Range("C18:N" & LR).Sort Key1:=Range("J18:J" & LR), Order1:=1, Header:=xlNo End Sub

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

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

بارك الله فيك أخي الكريم اين بنها

ولكن الأرقام كما غيرتها غير صحيحة .. الرقم 1 هنا 1 في الكودين ، وهو مرتبط بالعمود الذي يتم على أساسه الترتيب

حتى إذا أردنا إضافة عمود آخر قمنا بإضافة مفتاح جديد Key2 وترتيب جديد Order2 ...

راجع حلقات افتح الباب وستكتشف بنفسك (الحلقة الثالثة عشرة)

وعشان متدورش كتير إليك الرابط التالي

من هنا

[الأستاذ / محمد الدسوقى]

أستاذى ومعلمى الفاضل الأستاذ / ياسر خليل أبو البراء

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

وليس بوسعى إلا أن أدعو الله ان يزيدك من علمه الذى طالما لا تبخل به على امثالنا

وأنه من دواعى سرورى أن أكون عضوًا فى مدرستكم صرح العلم والخبراء فى هذا المجال

و جزاكم الله خيرا

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

وجزيت خيراً أخي الغالي محمد الدسوقي بمثل ما دعوت لنا

ومشكور على كلماتك الطيبة وشعورك النبيل ..

والحمد لله أن تم المطلوب على خير

[ابو عبدالبارى]

الأخ الكريمالأستاذ / محمد الدسوقى

السلام عليكم

يمكن التعديل على الكود الموجود بالملف للحصول على النتائج المطلوبة

Sub Male_Abgada()
Application.ScreenUpdating = False
last = Cells(Rows.Count, "d").End(xlUp).Row
Range("C18:N" & last).Sort Key1:=Range("D18"), Order1:=xlAscending, Header:= _
        xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
Range("C18:N" & last).Sort Key1:=Range("J18"), Order1:=xlDescending, Header:= _
        xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
        Application.ScreenUpdating = True
    
Range("A1").Select

End Sub
Sub Female_Abgada()
Application.ScreenUpdating = False
last = Cells(Rows.Count, "d").End(xlUp).Row
Range("C18:N" & last).Sort Key1:=Range("D18"), Order1:=xlAscending, Header:= _
        xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
Range("C18:N" & last).Sort Key1:=Range("J18"), Order1:=xlAscending, Header:= _
        xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
        Application.ScreenUpdating = True
    
Range("A1").Select

End Sub

 

[ابن بنها]

Sub Sort_Male()
    Dim LR As Long
    LR = Range("D" & Rows.Count).End(xlUp).Row
    Range("C18:N" & LR).Sort Key1:=Range("J18:J" & LR), Order1:=xlDescending, Header:=xlNo
End Sub

xlDescending

ارجو من الساده المحترمين وضع الرقم 1 مره ومره اخرى الرقم 2

 الرقم يؤدي نفس الكلمه 

في 9/1/2016 at 02:27, ياسر خليل أبو البراء said:

xlAscending

تساوي الرقم 1

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

أخي الكريم ابن بنها

هوناً علينا .. أعتذر عن الخطأ الذي بدر مني ، فقد رأيت الأرقام في مشاركتك بجوار كلمة Order .. وعلى هذا الأساس قمت بالرد (العتب على النظر !!)

بالفعل لديك حق ، يمكن استخدام الرقم 1 بدلاً من كلمة xlAscending ، والرقم 2 بدلاً من xlDesciending ... أي أن كلاهما يؤدي نفس الغرض

 

بارك الله فيك وجزيت خيراً على الإضافة