DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Arkadaşlar ekteki örnekte, öğrenci sınav sonucuna göre genel sıralamada kaçıncı olduğunu bulmaya çalışıyorum, yapamadım. 5 öğrenci aynı puanı alarak 4. olmuşlar, buraya kadar tamam. Ancak 5. olması gereken öğrenci 9. olarak geliyor. Sebebi 5 öğrenci 4. olduğu için rank.eşit formülü bunları sayarak 5. olması gereken öğrenci 9. oluyor. Bunu nasıl çözebilirim?
Ayrıca ilçeye göre (yani koşullu) öğrencilerin kaçıncı olduklarını nasıl bulabilirim?
Desteğiniz için teşekkürler.
Teşekkürler, çözüyorum.Merhaba,
Linki inceleyiniz.
.
Sub Sirala()
Dim son As Long, i As Long
Application.ScreenUpdating = False
Range("B2:C" & Rows.Count).ClearContents
son = Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To son
Cells(i, "B") = Evaluate("=SUMPRODUCT((D" & i & "<D2:D" & son & ")/COUNTIF(D2:D" & son & ",D2:D" & son & "&" & """""))+1")
Cells(i, "C") = Evaluate("=SUMPRODUCT((A" & i & "<A2:A" & son & ")/COUNTIF(A2:A" & son & ",A2:A" & son & "&" & """""))+1")
Next i
End Sub
Sub Sirala()
Dim son As Long, i As Long
Application.ScreenUpdating = False
Range("B2:C" & Rows.Count).ClearContents
son = Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To son
Cells(i, "B") = Evaluate("=SUMPRODUCT((D" & i & "<D2:D" & son & ")/COUNTIF(D2:D" & son & ",D2:D" & son & "&" & """""))+1")
Cells(i, "C") = Evaluate("=SUMPRODUCT((A2:A" & son & "=A" & i & ")*(D" & i & "<D2:D" & son & "))+1")
Next i
End Sub
@Ömer Hocam,Deneyiniz.
Kod:Sub Sirala() Dim son As Long, i As Long Application.ScreenUpdating = False Range("B2:C" & Rows.Count).ClearContents son = Cells(Rows.Count, "A").End(xlUp).Row For i = 2 To son Cells(i, "B") = Evaluate("=SUMPRODUCT((D" & i & "<D2:D" & son & ")/COUNTIF(D2:D" & son & ",D2:D" & son & "&" & """""))+1") Cells(i, "C") = Evaluate("=SUMPRODUCT((A2:A" & son & "=A" & i & ")*(D" & i & "<D2:D" & son & "))+1") Next i End Sub