أبو محمد عباس قام بنشر يوليو 25, 2012 مشاركة قام بنشر يوليو 25, 2012 السلام عليكم الاساتذة الافاضل والاخوة الاعضاء سلام الله عليكم ورحمة منه وبركات اسال الله سبحانه وتعالى ان يتقبل الصيام والقيام في الشهر الفضيل ارفق لحضراتكم ملف فيه 12 عمود ( 12 فصل) المطلوب اخوتي الاعزاء كود لفرز عمود الاسماء فقط لكل الفصول في زر واحد تقبل الله سبحانه وتعالى الطاعات وغفر لكم ودمتم برعاية الله وحفظه فرز لعدة اعمدة.rar رابط هذا التعليق شارك More sharing options...
أبو محمد عباس قام بنشر يوليو 25, 2012 الكاتب مشاركة قام بنشر يوليو 25, 2012 السلام عليكم الاخوة الاعزاء رمضان كريم وتقبل الله سبحانه وتعالى الطاعات الحقيقة انا عندي فرز لكل فصل لكن اردت ان يكون الفرز بزر واحد اختصارا للوقت , لاحظوا المرفق والسلام عليكم ورحمة الله وبركاته فرز الاسماء بكود وزر واحد.zip رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر يوليو 25, 2012 مشاركة قام بنشر يوليو 25, 2012 رمضان مبارك اعتقد ان هذا هو المطلوب الفرز.rar رابط هذا التعليق شارك More sharing options...
جمال عبد السميع قام بنشر يوليو 26, 2012 مشاركة قام بنشر يوليو 26, 2012 ماشاء الله أستاذي أبو حنين كود ولاأروع بارك الله فيك رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر يوليو 26, 2012 مشاركة قام بنشر يوليو 26, 2012 العفو أخي الكريم محمود ، و رمضان مبارك ان شاء الله رابط هذا التعليق شارك More sharing options...
أبو محمد عباس قام بنشر يوليو 26, 2012 الكاتب مشاركة قام بنشر يوليو 26, 2012 السلام عليكم ورحمة الله وبركاته الاستاذ الغالي أبو حنين رمضان مبارك وتقبل الله سبحانه وتعالى الطاعات وغفر لكم ذنوبكم وجعل عملك هذا وجميع اعمالكم في ميزان حسناتك كود اكثر من رائع والفرز تلقائي وهذا اختصار اخر للوقت جزاك الله خيرا لكنني اردت فقط ان يكون الفرز للاسماء لان التسلسل تلقائي بالمعادلات وكذلك رقم القيد اينما يكون الاسم يذهب معه تلقائي دون الحاجة للفرز وعدلت على الكود حسب حاجتي ويعمل بشكل ممتاز وارتايت ان ارفق لك الملف بعد التعديل لان هناك اهتزاز عند الفرز هل يوجد خطا عندما عدلت على الكود ام هناك شيء اخر يمكن التخلص من الاهتزاز وعلى كل حال الكود فوق الرائع على صورته الحالية وهذا الخلل بسيط لانه يستخدم في بداية السنة الدراسية او عند التعديل احيانا لسبب النقل من والى المدرسة ودمتم برعاية الله وحفظه الفرزاستاذ ابو حنين.zip رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر يوليو 26, 2012 مشاركة قام بنشر يوليو 26, 2012 غير الكود السابق بهذا الكود فانه ينقص الاهتزاز نوعا ما 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 رابط هذا التعليق شارك More sharing options...
أبو محمد عباس قام بنشر يوليو 26, 2012 الكاتب مشاركة قام بنشر يوليو 26, 2012 (معدل) السلام عليكم الاستاذ الفاضل ابو حنين جزاك الله خيرا كود اكثر من رائع يعمل بشكل ممتاز ولايوجد به اهتزاز أدعو الله سبحانه وتعالى ان يثبت قدميك على الصراط يوم تزل الاقدام ويغفر لك وتقبل دعواتي لك بالموفقية والنجاح وزادك الله من فضله علما ومعرفة ودمتم برعاية الله وحفظه تم تعديل يوليو 26, 2012 بواسطه عباس السماوي رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر يوليو 26, 2012 مشاركة قام بنشر يوليو 26, 2012 غير الكود السابق بهذا الكود فانه ينقص الاهتزاز نوعا ما 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 الله ينور كود جميل قوى بس عايز اقول حاجة صغيرة بخصوص فرز الاسماء بالايكسيل الايكسيل بيخرف شوية عند التعامل مع فرز النصوص ولو بتفرز نفس الاسماء فى ملفين احدهما وورد والاخر ايكسيل ستجد فروق كثيرة خاصة عند التعامل مع اسماء تبدأ بحروف أ و إ و ا والورد يفرزها بصورة اكثر دقة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان