قنديل الصياد قام بنشر أغسطس 28, 2013 قام بنشر أغسطس 28, 2013 السلام عليكم اخوانى واساتذتى الاعزاء مرفق ملف به اوائل الصف برجاء التعديل بحيث يظهر التكرار كالتالى ( الاول \ الاول مكرر / الثانى / الثانى مكرر / الثالث / الرابع .... الخ ) Book1.rar
دغيدى قام بنشر أغسطس 28, 2013 قام بنشر أغسطس 28, 2013 أخى الكريم جرب تجد عند تساوى الترتيب يكون الأول مكرر و الأول مكرر
بن علية حاجي قام بنشر أغسطس 28, 2013 قام بنشر أغسطس 28, 2013 (معدل) السلام عليكم ورحمة الله أخي الكريم قنديل الصياد، تم التعديل على الكود حسب المطلوب (الرتبة تأتي دون كلمة "مكرر" وفي حالة التكرار تضاف لها كلمة "مكرر") وذلك باستبدال السطر : If WorksheetFunction.CountIf(Cer_Range, X_Mar) <> 1 Then TEXT_M = " مكرر " بالسطرين : Set MRange = Range(Cells(3, X_Mar.Column), Cells(X_Mar.Row - 1,X_Mar.Column)) If WorksheetFunction.CountIf(Cer_Range, X_Mar) <> 1 And WorksheetFunction.CountIf(MRange, X_Mar) >= 1 Then TEXT_M = " مكرر " تجد هذا التغيير بين السطرين ----------------------------------------------------------------------------------------------' أرجو أن يفي هذه بالمطلوب.... أخوك بن علية الملف المرفق : Book1_2.rar تم تعديل أغسطس 28, 2013 بواسطه بن علية حاجي
قنديل الصياد قام بنشر أغسطس 28, 2013 الكاتب قام بنشر أغسطس 28, 2013 شكرا استاذى العزيز قمت بعمل المطلوب كما اردت ولكن توجد مشكلة بسيطة الدالة التى تقوم بترتيب للاسم حسب المجموع موجودة ولكن لا تقوم بعملها رجاءا من اساتذتى فى المنتدى حل هذه المشكلة وشكرا لكم اساتذتى الكرام مرفق الملف Book1.rar
قنديل الصياد قام بنشر أغسطس 28, 2013 الكاتب قام بنشر أغسطس 28, 2013 السلام عليكم ورحمة الله أخي الكريم قنديل الصياد، تم التعديل على الكود حسب المطلوب (الرتبة تأتي دون كلمة "مكرر" وفي حالة التكرار تضاف لها كلمة "مكرر") وذلك باستبدال السطر : If WorksheetFunction.CountIf(Cer_Range, X_Mar) <> 1 Then TEXT_M = " مكرر " بالسطرين : Set MRange = Range(Cells(3, X_Mar.Column), Cells(X_Mar.Row - 1,X_Mar.Column)) If WorksheetFunction.CountIf(Cer_Range, X_Mar) <> 1 And WorksheetFunction.CountIf(MRange, X_Mar) >= 1 Then TEXT_M = " مكرر " تجد هذا التغيير بين السطرين ----------------------------------------------------------------------------------------------' أرجو أن يفي هذه بالمطلوب.... أخوك بن علية الملف المرفق : Book1_1.rar استاذى العزيز شكرا على الاهتمام بالرد ولكن الملف يفتح ويختفى بسرعة ولم اقم بغتحه
بن علية حاجي قام بنشر أغسطس 28, 2013 قام بنشر أغسطس 28, 2013 السلام عليكم ورحمة الله أخي الكريم، معذرة على هذا الخطأ غير المقصود لقد قمت بفتح الملف وتعديل الكود في نسخة إكسيسل 2007 لذا ظهر الخلل عند فتح الملف بنسخة إكسيل 2003... قد تم إنشاء الملف من جديد في نسخة 2003 واستبدال المرفق في الرد السابق بالأعلى بالمرفق الجديد... أتمنى هذه المرة أن يعمل معك الملف... أخوك بن علية
قنديل الصياد قام بنشر أغسطس 28, 2013 الكاتب قام بنشر أغسطس 28, 2013 اخى واستاذى العزيز تم فتح الملف ولكن لا توجد اى تعديلات شكرا لحضرتك واتمنى ان تقوم برؤية المعادلة التى تقوم بنقل وترتيب الاسماء والتعديل عليها حتى تعمل صحيحة مرفق ملف قمت بالتعديل عليه ولا يتبقى سوى معادلة ترتيب الاسم ولا اعرف اين الخطا الوارد بها Book1.rar
بن علية حاجي قام بنشر أغسطس 28, 2013 قام بنشر أغسطس 28, 2013 السلام عليكم ورحمة الله أخي الكريم قنديل، هذا مرفق آخر فيه تعديل على معادلة ترتيب الأسماء حسب الترتيب بالدرجات.... أخوك بن علية المرفق : Book1_3.rar
قنديل الصياد قام بنشر أغسطس 28, 2013 الكاتب قام بنشر أغسطس 28, 2013 شكرا لك استاذى واخى العزيز وعفوا لم اتنبه الى المعادلة فلك شكرى وامتنانى تحياتى وشكرا لاستاذى الكبير والجليل الاستاذ / عبد الله باقشير ان لم اجد بصمة منه فى ملفى ولكن وجوده فى الموضوع ومتابعته له امتنان وشرف غالى لاستاذ واخ جليل وفاضل
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.