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

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

قام بنشر

السلام عليكم

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

ارفق لحضراتكم ملف فيه 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

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

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

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

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

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

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