طلب مساعدة في تعديل كود رتبة نقطة التلميذ لمادة في الفصل

[jall77]

السلام عليكم

نطلب منكم مساعدتي في تعديل كود تحديد رتبة تلميذ لمادة معينة داخل فصله بحيث يتغير حسب عمود و الصف

لقد ساعدني أحد اعضاء هذا المنتدى المتميز في تحديد هذا الكود لكن بالنسبة خلية محدد

ActiveSheet.Range("H6") = Application.WorksheetFunction.Rank([H5], Sheets(sh).Range("D" & ri & ":D" & rf))

أرغب في كود يتغير بتغير الصف و العمود مثل الشكل التالي :

ActiveSheet.Cells(i, 9) = Application.WorksheetFunction.Rank(Cells(i, 8), Sheets(sh).Range(Cells(ri, cl), Cells(rf, cl)))

وبارك الله فيكم

Classeur1.zip

[jall77]

ننتظر منكم الجواب بارك الله فيكم