تفعيل كود ( أبجدة الذكور أولاً ) ثم ( أبجدة الإناث أولاً ) بالملف المرفق بالموضوع

[فايز فراج]

السلام عليكم

برجاء تفعيل كود ( أبجدة الذكور أولاً ) ثم ( أبجدة الإناث أولاً ) الموجود بشيت ( إضافة أسماء الطلاب )

- الكود من عمل أستاذنا الفاضل / ياسر خليل أبو البراء .... اقتبسته من منتدى أوفيسنا .... لكن لم يعطى لي نتائج بعدم ترتيب الأولاد الذكور أبجدياً من حرف الألف ... إلى الياء .... وكذلك البنات

ولكم جزيل الشكر

الصف الأول الإبتدائي 2016.rar

تم تعديل سبتمبر 1, 2016 بواسطه فايز فراج

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

جرب التالي .. لاحظ أن الموضوع الذي اقتبست منه الكود فيه رابط لحلقات افتح الباب وفيه تفصيل أكثر لو احببت الإطلاع عليه

Sub Sort_Female()
    Dim LR As Long
    LR = Range("M" & Rows.Count).End(xlUp).Row
    Range("K7:R" & LR).Sort Key1:=Range("R7:R" & LR), Order1:=xlAscending, Key2:=Range("M7:M" & LR), Order2:=xlAscending, Header:=xlNo
End Sub

Sub Sort_Male()
    Dim LR As Long
    LR = Range("M" & Rows.Count).End(xlUp).Row
    Range("K7:R" & LR).Sort Key1:=Range("R7:R" & LR), Order1:=xlDescending, Key2:=Range("M7:M" & LR), Order2:=xlAscending, Header:=xlNo
End Sub

يوجد معادلات في النطاق وبعد تنفيذ الأكواد تعطي خطأ VALUE لا أعلم السبب في ذلك ..يرجى مراجعة الملف بشكل جيد

والوقت لا يسعني الآن للإطلاع على الملف

عموماً أترك الأمر لإخواني بالمنتدى ليدرسوا المشكلة بشكل أعمق

تقبل تحياتي

[فايز فراج]

5 ساعات مضت, ياسر خليل أبو البراء said:

جرب التالي .. لاحظ أن الموضوع الذي اقتبست منه الكود فيه رابط لحلقات افتح الباب وفيه تفصيل أكثر لو احببت الإطلاع عليه

Sub Sort_Female()
    Dim LR As Long
    LR = Range("M" & Rows.Count).End(xlUp).Row
    Range("K7:R" & LR).Sort Key1:=Range("R7:R" & LR), Order1:=xlAscending, Key2:=Range("M7:M" & LR), Order2:=xlAscending, Header:=xlNo
End Sub

Sub Sort_Male()
    Dim LR As Long
    LR = Range("M" & Rows.Count).End(xlUp).Row
    Range("K7:R" & LR).Sort Key1:=Range("R7:R" & LR), Order1:=xlDescending, Key2:=Range("M7:M" & LR), Order2:=xlAscending, Header:=xlNo
End Sub

يوجد معادلات في النطاق وبعد تنفيذ الأكواد تعطي خطأ VALUE لا أعلم السبب في ذلك ..يرجى مراجعة الملف بشكل جيد

والوقت لا يسعني الآن للإطلاع على الملف

عموماً أترك الأمر لإخواني بالمنتدى ليدرسوا المشكلة بشكل أعمق

تقبل تحياتي

أستاذنا الفاضل / ياسر خليل أبو البراء .... جزاك الله خيراااااااااااااااااا

المشكلة فعلاً موجودة في النطاقات إلـ فيها معادلات .... لكن قمت بالتعديل على بعض النطاقات ألـ موجودة في الكود ثم ابتعدت تماماً عن النطاقات ألـ موجودة فيها المعادلات .

- كما قمت بالتعديل في الكود بحيث يتم ... ترتيب الذكور أولاً ثم يليها ترتيب الإناث ثانياً في نفس النطاق الموجود فيه أسماء الطلاب ... فالحمد لله التجربة تمت ...

- حضرتك فتحت لي الباب بكتابتك للكود .... ثم عملت عليه الكثير من التجارب ... وبالفعل أصبت الهدف

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

كم يعجبني الشخص الذي يبحث عن الهدف ويسدد .. هذا هو أول طريق النجاح

بارك الله فيك أخي الكريم فايز فراج (ف ف) وإن شاء الله نرى منك مساهمات فعالة في المنتدى ..ضع قدمك على أول الطريق وتوكل على الله ..

تقبل وافر تقديري واحترامي