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

كود لفرز الاسماء تصاعديا لعدة اعمدة في زر واحد ولعمود الاسماء فقط


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

السلام عليكم

الاساتذة الافاضل والاخوة الاعضاء سلام الله عليكم ورحمة منه وبركات اسال الله سبحانه وتعالى ان يتقبل الصيام والقيام في الشهر الفضيل

ارفق لحضراتكم ملف فيه 12 عمود ( 12 فصل) المطلوب اخوتي الاعزاء كود لفرز عمود الاسماء فقط لكل الفصول في زر واحد

تقبل الله سبحانه وتعالى الطاعات وغفر لكم

ودمتم برعاية الله وحفظه

فرز لعدة اعمدة.rar

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

السلام عليكم

الاخوة الاعزاء رمضان كريم وتقبل الله سبحانه وتعالى الطاعات الحقيقة انا عندي فرز لكل فصل لكن اردت ان يكون الفرز بزر واحد اختصارا للوقت , لاحظوا المرفق

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

فرز الاسماء بكود وزر واحد.zip

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

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

الاستاذ الغالي أبو حنين رمضان مبارك وتقبل الله سبحانه وتعالى الطاعات وغفر لكم ذنوبكم وجعل عملك هذا وجميع اعمالكم في ميزان حسناتك

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

ودمتم برعاية الله وحفظه

الفرزاستاذ ابو حنين.zip

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

غير الكود السابق بهذا الكود فانه ينقص الاهتزاز نوعا ما


Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False

Range("D9:D108").Sort Key1:=Range("D9"), Order1:=xlAscending

Range("I9:I108").Sort Key1:=Range("I9"), Order1:=xlAscending

Range("O9:O108").Sort Key1:=Range("O9"), Order1:=xlAscending

Range("U9:U108").Sort Key1:=Range("U9"), Order1:=xlAscending

Range("AA9:AA108").Sort Key1:=Range("AA9"), Order1:=xlAscending

Range("AG9:AG108").Sort Key1:=Range("AG9"), Order1:=xlAscending

Range("AM9:AM108").Sort Key1:=Range("AM9"), Order1:=xlAscending

Range("AS9:AS108").Sort Key1:=Range("AS9"), Order1:=xlAscending

Range("AY9:AY108").Sort Key1:=Range("AY9"), Order1:=xlAscending

Range("BE9:BE108").Sort Key1:=Range("BE9"), Order1:=xlAscending

Range("BK9:BK108").Sort Key1:=Range("BK9"), Order1:=xlAscending

Range("BQ9:BQ108").Sort Key1:=Range("BQ9"), Order1:=xlAscending


Application.ScreenUpdating = True

End Sub

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

السلام عليكم

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

وتقبل دعواتي لك بالموفقية والنجاح وزادك الله من فضله علما ومعرفة

ودمتم برعاية الله وحفظه

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

غير الكود السابق بهذا الكود فانه ينقص الاهتزاز نوعا ما


Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False

Range("D9:D108").Sort Key1:=Range("D9"), Order1:=xlAscending

Range("I9:I108").Sort Key1:=Range("I9"), Order1:=xlAscending

Range("O9:O108").Sort Key1:=Range("O9"), Order1:=xlAscending

Range("U9:U108").Sort Key1:=Range("U9"), Order1:=xlAscending

Range("AA9:AA108").Sort Key1:=Range("AA9"), Order1:=xlAscending

Range("AG9:AG108").Sort Key1:=Range("AG9"), Order1:=xlAscending

Range("AM9:AM108").Sort Key1:=Range("AM9"), Order1:=xlAscending

Range("AS9:AS108").Sort Key1:=Range("AS9"), Order1:=xlAscending

Range("AY9:AY108").Sort Key1:=Range("AY9"), Order1:=xlAscending

Range("BE9:BE108").Sort Key1:=Range("BE9"), Order1:=xlAscending

Range("BK9:BK108").Sort Key1:=Range("BK9"), Order1:=xlAscending

Range("BQ9:BQ108").Sort Key1:=Range("BQ9"), Order1:=xlAscending


Application.ScreenUpdating = True

End Sub

الله ينور كود جميل قوى

بس عايز اقول حاجة صغيرة بخصوص فرز الاسماء بالايكسيل

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

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

والورد يفرزها بصورة اكثر دقة

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information