السلام عليكم
نطلب منكم مساعدتي في تعديل كود تحديد رتبة تلميذ لمادة معينة داخل فصله بحيث يتغير حسب عمود و الصف
لقد ساعدني أحد اعضاء هذا المنتدى المتميز في تحديد هذا الكود لكن بالنسبة خلية محدد
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