المساعدة في عمل كود يؤدي عملية الفرز

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

السلام عليكمأهلاً بكم إخواني الأحباءالرجاء مساعدتي في عمل كود يقوم بعملية الفرز لتوافق الشروط التاليةيتم فرز كل صف دراسي على حده ثم ترتيب الذكور أبجديا ثم الإناث ، ويا حبذا لو كان في الكود إمكانية اختيار الصفأخوكم أبو البراء

Record_2010.rar

[طارق محمود]

السلام عليكم

كيف أحوالك أخي ياسر

أسعد الله صباحك

أعتقد أن الجداول المحورية أفضل هنا في هذه الحالة

أنظر للمرفق

Record_2010_2.rar

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

باشمهندس طارق

والله زمان يا مبدع

بيعجبني فيك كل ما فيك

الجداول المحورية محتاج منك تشرحها بالفيديو لو أمكن لإني أجهلها إلى حد كبير

ثانيا : أريد أيضا كود فرز لاستخدامه في أكثر من ماكرو ... يعني دا مجرد مثال عشان أتعلم منه عمل الكود الخاص بالفرز والأبجدة ....

أرجو ألا أكون أثقل عليك

بس إنت لك وحشة كبيرة قوي

أخوك أبو البراء

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

إخواني أريد مساعدتكم

عاجل وضروري

أخوكم المحتاج مساعدتكم

أبو البراء

[عبدالله باقشير]

السلام عليكم

بارك الله فيك اخي الحبيب طارق

رائع جدا في استخدامك للجداول المحورية

--------------------------------

اخي الفاضل / ابو البراء

ده كود الفرز حسب طلبك

Sub kh_Sort()


With Range("School")

    .Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _

        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

        DataOption1:=xlSortNormal


    .Sort Key1:=Range("E2"), Order1:=xlDescending, Header:=xlGuess, _

        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

        DataOption1:=xlSortNormal


    .Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlGuess, _

        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

        DataOption1:=xlSortTextAsNumbers

End With

End Sub

اما عن اختيار الصف ممكن بعملية التصفية بعد الفرز بالكود اعلاه

تفضل المرفق

Record_2010.rar

تم تعديل يناير 11, 2010 بواسطه خبور خير

[طارق محمود]

السلام عليكم

بارك الله فيك اخي الحبيب طارق

رائع جدا في استخدامك للجداول المحورية

السلام عليكم

أخي العزيز الحبيب الفاضل / خبور خير

جزاك الله خيرا علي كلماتك الطيبة

فماذا تقول عنك وعن باقي عمالقة الإكسل هنا بالمنتدي

ومامدي روعتكم في إستخدام كل إمكانياته

ماأنا إلا طالب علم لديكم

يعلم الله كم من الأمور تعلمتها منكم

وكم أحبم فيه عز وجل

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

الأخ خبور خير

الأخ طارق

بارك الله فيكما وجزيتما عني خير الجزاء

بقي لي طلب واحد ... واحد فقط إن شاء الله

كنت أطمع في التحكم أكثر بنموذج للمستخدم يسمح بالتصفية والفرز حاجة كدا تكون جديدة من نوعها!!!

ولو أمكن شرح للكود والخيارات التي يمكن تغييرها للتحكم بالكود أكثر...

أخوكم أبو البراء

تم تعديل يناير 12, 2010 بواسطه YasserKhalil