Genel Sıralama

[hisarbey]

Saygı Değre Arkadaslar, okulda yaptığımiz 8 denemenin ortalamasını alip bunları buyukten kuçüğe doğru sıralamak istiyorum yardımcı olursanız sevinirim.İlgi ve alakanız icin simdiden tesekkür ederim.

 

[Orion1]

Dosyanız ekte.

Option Base 1
Sub Makro1()
Dim myarr(1 To 8), x As Variant
For i = 3 To Cells(65536, "C").End(xlUp).Row
deg = ""
    For z = 4 To 11
        If Cells(i, z).Value = "" Then
            deg = 0
            Else
            deg = Cells(i, z).Value
        End If
        myarr(z - 3) = deg
    Next z
    For z = 1 To 7
        For j = z + 1 To 8
            If myarr(z) < myarr(j) Then
                x = myarr(z)
                myarr(z) = myarr(j)
                myarr(j) = x
            End If
        Next j
    Next z
    deg = ""
    For z = 1 To 8
        deg = deg & "-" & myarr(z)
    Next z
    Cells(i, "L").Value = deg
    Cells(i, "M").Value = WorksheetFunction.Average(Range("D" & i & ":K" & i))
Next i
End Sub

 

[muygun]

Merhaba;
Soru çözümlenmiş ama İşlevlerle bir örnekte benden.
İyi çalışmalar.

 

[hisarbey]

ilgi ve alakanız icin tesekkür ederim. Muygun üstadımın yaptığı program tam istedigim gibi tekrar tesekkürler...

 

[Ali]

Sanırım arkadaşlar link vermek istememiş.

Aşağıdaki linki inceleyebilirsiniz. Zaten forumda buna benzer uygulamalar var.


Sıralama Fonksiyonu Uygulamaları

.