Вывести рейтинг от 1 до n в зависимости от баллов

@Kirilllllll · Регистрация: 21.09.2012

Здравствуйте, как посчитать рейтинг учеников по баллам.

В столбце А - фамилии , в столбце В - баллы. а в столбец С нужно вывести рейтинг от 1 до n в зависимости от баллов.

Как это можно сделать с помощью макроса? Знаю есть функция ранг для определия но мне она не подходит.

@chumich · 12.02.2015, 01:39

Сделал, по привычке, на форму, но я думаю в макрос не трудно переделать

Visual Basic

Private Sub CommandButton1_Click()
LastRow = ThisWorkbook.ActiveSheet.Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
For i = 1 To LastRow
Cells(i, 3) = TopList(Cells(i, 2), Range("B1", "B" & LastRow & ""))
Next i
End Sub
 
Function TopList(zn As Variant, dpz As Range) As Long
    Dim r As Long
    r = 1
    For Each c In dpz
        If zn < c.Value Then
            r = r + 1
        End If
    Next
    TopList = r
End Function

@Kirilllllll · 12.02.2015, 18:28 **[ТС]**

Спасибо

@Kirilllllll 0 / 0 / 0 Регистрация: 21.09.2012 Сообщений: 104
		1
	Вывести рейтинг от 1 до n в зависимости от баллов 11.02.2015, 19:46. Показов 751. Ответов 2 Метки нет (Все метки) Здравствуйте, как посчитать рейтинг учеников по баллам. В столбце А - фамилии , в столбце В - баллы. а в столбец С нужно вывести рейтинг от 1 до n в зависимости от баллов. Как это можно сделать с помощью макроса? Знаю есть функция ранг для определия но мне она не подходит. 0

@Kirilllllll 0 / 0 / 0 Регистрация: 21.09.2012 Сообщений: 104
	12.02.2015, 18:28 [ТС]	3
	Спасибо 0

Опции темы