اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

السلام عليكم

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

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

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

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

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

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

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 لا أعلم السبب في ذلك ..يرجى مراجعة الملف بشكل جيد

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

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

تقبل تحياتي

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

  • Like 2
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information