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

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

قام بنشر

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

ارجو ان تكونوا فى افضل حال بفضل الله

ارجو من سيادتكم عمل معادلة او كود لترتيب البنات اولا ثم االبنين

جعلكم الله فى عوننا دائما

ترتيب النوع.rar

قام بنشر

شكرا على سرعة استجابتك

ولكن ابحث عن كود او معادلة عند كتابة النوع يرتب تلقائيا الاسماء ابجديا البنات مجمعين اولا ثم البنين مجمعبن اسفلهم ومرتبون ابجديا

قام بنشر

السلام عليكم

===========

ولكنى تغلبت عليه بالحيلة وساترك لك اكتشافها

شاهد المرفق

الاستاذ الفاضل هشام شلبي

الحمدلله على سلمتك والله وحشتنا

والحيلة جميلة جداً ةتدل على ذكاء ومفهومية بارك الله لك بهما

قام بنشر

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

اولا جهد مبذول وشكر على طول العمر اخى هشام

ثانيا انا لن ارتقى الى مستوى ذكائك وحيلك

ثالثا لى طلبين حتى اتعلم من علمكم

الاول اذا اردت تغير المدى بان اجعل النوع فى الخلية x فاى جزء اغير فى الكود حتى يعمل بدقة

ثانيا ما هى الحلية التى قمت سيادتكم بعملها ارجو توضيحها حتى نتعلم ولك منى كل التقدير والاحترام استاذنا الخلوق

قام بنشر

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

اولا جهد مبذول وشكر على طول العمر اخى هشام

ثانيا انا لن ارتقى الى مستوى ذكائك وحيلك

ثالثا لى طلبين حتى اتعلم من علمكم

الاول اذا اردت تغير المدى بان اجعل النوع فى الخلية x فاى جزء اغير فى الكود حتى يعمل بدقة

ثانيا ما هى الحلية التى قمت سيادتكم بعملها ارجو توضيحها حتى نتعلم ولك منى كل التقدير والاحترام استاذنا الخلوق

بعد اذن الاستاذ الفاضل العزيز الموهوب هشام شلبي

اولاً يبقى المدى في الكو ثابت وهوRange("A2:J100").Select

ثانياً لتغييير عمود الجنس من I الى اي عمود يجب ان تعدل في عمود الحيلة (العمود المخفي) J

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

اتمنى ان اكون وفقت في فهم حيلة الاستاذ هشام

وان اكون اوصلت الفكرة

قام بنشر

السلام عليكم

===========

اخى عبدالله بارك الله فيك كل ما قلته ان شاء الله صدقا

اخى جمال اشكرك على كلامك الطيب

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

ارفق ملفك لكى يعمل كل الاخوة عليه ونستفيد جميعا

اعذرنى على دخولى المتقطع حيث انى ادخل على النت من تليفون المنزل وان شاء الله يستقيم الحال قريبا

قام بنشر (معدل)

هذا هو تواضع العلماء اخى هشام

والملف موجود فى المشاركة اذا ارد الاخوة العمل عليه والمناقشة ليكون موضوع بناء

ويقومو باثراء الموضوع وقد ضربت انت ضربت البداية

لكن لم تجاوبنى اخى هشام على

اولا اذا اردت تغير المدى بان اجعل النوع فى الخلية x فاى جزء اغير فى الكود حتى يعمل بدقة

ثانيا ما هى الحلية التى قمت سيادتكم بعملها ارجو توضيحها حتى نتعلم ولك منى كل التقدير

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

السلام عليكم

===========

الكود المستخدم فى هذه الحالةسيكون

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

    Range("A2:Y100").Select 'هذا هو المدى المعمول فيه الفرز

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

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


    Target.Select

End Sub

اما عن الحيلة فعندما تظهر العمود J ستجدنى قد استخدمت دالة LEFT لايجدا الحرف الاول من اسم الطالب والحرف الول من النوع فمثلا الصورة توضح ذلك

414023520.jpg

قام بنشر

تجمع العظماء عندى فى موضوع والله انه لشرف لا استحقه على راسهم

العلامة الخلوق هشام شلبى

والاستاذ المعطاء جمال دغيدى

ولاستاذ المحسن عبدالله المحراب

الحيل من ابداع الاذكياء استاذنا الفاضل جمال

اشكر كل من ساهمو بكلمة

والله انه لعيد ان يتجمع هذه النخبة هنا

قام بنشر

بالعكس الكود يعمل جيداً ولكن وجود احمد في السطر الثاني هو ان جنسه انثى وعند تغيير جنسه الى ذكر يتم تغيير ترتيبه

أخى عبد الله

نفس المشكلة

فرز بالكود2.rar

قام بنشر (معدل)

بالعكس الكود يعمل جيداً ولكن وجود احمد في السطر الثاني هو ان جنسه انثى وعند تغيير جنسه الى ذكر يتم تغيير ترتيبه

أخى عبد الله

نفس المشكلة

استاذي جمال شكراً لتوضيحك وحلك كان ذكي جداً

شكرا لك اخى فى الله دغيدى على سعة صدرك وحسن اسضافتك زيادة علمك

لكن المشكلة مازلت موجودة الايوجد حل

تفضل المرفق

بعد اذن استاذنا الفاضل جمال دغيدي

فرز بالكود3.rar

تم تعديل بواسطه عبدالله المجرب

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