اريد ضبط هذة المعادلة

[egymina2012]

في هذا الشيت اريد ضبط الترتيب الصفوف وفقا للنسبة المئوية وفي حال ان تكون النسبة متشابهة يتم الترتيب وفقا للحروف الابجدية 

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

لابلبلبلبلبلب.xlsx

[hegazee]

كيف يتم ادراج التقدير تلقائيا و لانعرف هل هذا التقدير يستحق مرتبة شرف أم لا؟

[Foksh]

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

مشاركة مع أخي حجازي ، جرب أن تقوم بتعديل أي نسبة مئوية وراقب الترتيب والفرز هل هو صحيح ومضبوط كما تريد ؟؟

 

SortBy2Way.xlsm

 

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

لابلبلبلبلبلب.xlsm

تم تعديل منذ 2 ساعات بواسطه Foksh

[عبدالله بشير عبدالله]

مغلمنا Foksh الفاضل

 جزاك الله خيرا

مع ملاحظة ان النطاق للفرز الى  .SetRange ws.Range("A1:M" & lastRow)  وليس .SetRange ws.Range("A1:L" & lastRow)
كما ارجو تعديل التقديرات حسب فهمي لتقسيم التقديرات من الملف   ان تكون التقديرات هكذا 

 لك كل التقدير والاحترام 

                Select Case Cell.Value
                    Case Is >= 92
                        Cell.Offset(0, -1).Value = "ممتاز مع مرتبة الشرف"
                    Case Is >= 90
                        Cell.Offset(0, -1).Value = "ممتاز"
                    Case Is >= 85
                        Cell.Offset(0, -1).Value = "جيد جداً مع مرتبة الشرف"
                    Case Is >= 75
                        Cell.Offset(0, -1).Value = "جيد جداً"
                    Case Is >= 65
                        Cell.Offset(0, -1).Value = "جيد"
                    Case Is >= 50
                        Cell.Offset(0, -1).Value = "مقبول"
                    Case Else
                        Cell.Offset(0, -1).Value = "مقبول س"
                End Select

 

[Foksh]

20 دقائق مضت, عبدالله بشير عبدالله said:

مع ملاحظة ان النطاق للفرز الى  .SetRange ws.Range("A1:M" & lastRow)  وليس .SetRange ws.Range("A1:L" & lastRow)

ملاحظتك صحيحة أخي وأستاذنا عبدالله ، جزاك الله خيراً على ذكرها . ولكني حين قمت بالتطبيق ارتأيت وبما أنه العمود M هو معادلة مقرونة برقم الصف فلم ألتفت لها ، ولم ألق لها بالاً -رغم تجربتي لها- ولكن لا يضر أن نقوم بالتصويب .. 

[عبدالله بشير عبدالله]

لا اعلم بوجود المعادلة الا من خلال ردك الاخير فعذرا وكلامك هو الصواب