Sıralamada kaçıncı olmuş ...

[ozgretmen]

Merhabalar...
Bir okulda yapılan deneme sınavında bir öğrencinin yapmış olduğu nete göre okulda kaçıncı , sınıfta kaçıncı olduğunu nasıl gösterebiliriz ? Örnek Dosya Ekte.Teşekkürler.

 

[Ömer]

Merhaba,

Linki incelermisiniz..

Sıralama Fonksiyonu Uygulamaları

 

[ozgretmen]

Merhabalar;
Linkteki örnek çok güzel hazırlanmış.Benim sorudaki okulda kaçıncı olduğu kısmı hallettim.Ama aynı sınıf içinde kaçıncı olduğu kısmında takıldım...

 

[Ömer]

Merhaba,

Örnek dosyayı incelermisiniz. İstediğiniz bu mu?

 

[ozgretmen]

Ne diyebilirim ki ! Harikasınız.Şimdi yapmış olduğunuz örneği dikkatle incelemeye başlıyorum.İyi çalışmalar...

 

[Ömer]

Merhaba,

İşinize yaradığına sevindim.

İyi çalışmalar..

 

[ferdinand09]

[TR][TD]
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.
[/TD]
[TD]

[/TD]
[TD]

[/TD][/TR]
[TR][TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD][/TR]

 

[Ömer]

Merhaba,

Linki inceleyiniz.

https://www.excel.web.tr/threads/siralama-fonksiyonu-uygulamalari.23962/

.

 

[ferdinand09]

Merhaba,

Linki inceleyiniz.

https://www.excel.web.tr/threads/siralama-fonksiyonu-uygulamalari.23962/

.

Teşekkürler, çözüyorum.

 

[ferdinand09]

@Ömer Hocam merhaba,

Şöyle bir durum var. Yukarıdaki mesajımda örnek tablosunda topla.çarpım formülü ile genel sıralamayı yaptım. Ancak benim tek excelde 50 bin adet verim var, makrosunu bulamadım, yardımcı olabilir misiniz?

teşekkürler,

 

[Ömer]

İstediğiniz ilçe ölçütünüde ekleyip olması gerek sonuç değerleri elle yazıp sıralamanın mantığınıda dosya içinde açıklayıp yeni bir örnek dosya ekler misiniz.

 

[ferdinand09]

@Ömer Hocam,

Örnek dosyayı ve talebimi yazdım. Makrosu için destek olabilirseniz memnuniyet duyarım.

Teşekkürler.

 

[Ömer]

Yazdığınız formülün makrosu:

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

 

[ferdinand09]

@Ömer Hocam,

Çok teşekkürler, emeğinize sağlık. Gönderdiğiniz yazılımı ekledim, çalıştırdım. Genel sıralamada düzgün çalışıyor, ancak ilçe sıralamasında düzgün çalışmıyor. Çünkü örneğin Koçarlı ilçesinde 500 tam puan alan öğrenci ilçe sıralamasında 1. sırada olması gerekirken 2. sırada görünüyor.

Örneği ekledim. Desteğiniz için teşekkürler.

 

[Ömer]

Olmasını istediğiniz sonucu elle yazıp açıklamanız gerektiğini mesajımda belirtmiştim.

=TOPLA.ÇARPIM(($A$2:$A$12=A2)*(D2<$D$2:$D$12))+1

Formül sonucu istediğinizi veriyor mu? Ona göre makrosunu ilave edeceğim.

 

[ferdinand09]

@Ömer Hocam,

Evet formülü uyguladım, oluyor. Makronun neresini düzeltebilirim?

Çok sağolun.

 

[Ömer]

Deneyiniz.

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

 

[ferdinand09]

@Ömer Hocam,

Çok teşekkürler, sorunumu çözdünüz, sağolun.

 

[ferdinand09]

Deneyiniz.

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,
Yukarıdaki makroyu çalıştırdığımda 50 veya 100 kayıt için hemen işlem yapıyor, düzgün çalışıyor. 50 BİN satır için excel yanıt vermiyor, işlem yapılamıyor. Farklı bir kod ile 50 bin datayı sıralamamız mümkün olabilir mi?
Teşekkürler,

 

[Korhan Ayhan]

Deneyiniz.

Verilerinize göre oluşan işlem süresini bildirirseniz sevinirim.

İki yöntem kullanılmıştır.

1- Ado ile veriler arka planda sıralanıp bu sıralmaya göre büyüklük indexleri bulunmaktadır.
2- Veriler sayfada sıralanıp hafızaya alınıp büyüklük indexleri bulunmaktadır.