Собственная функция RANK

@3004 · Регистрация: 22.09.2013

Студворк — интернет-сервис помощи студентам

Здравствуйте, помогите пожалуйста разобраться с функцией RANK. Она должна делать следующее:
Числа Ранг по убыванию Ранг по возрастанию
10 5 1
50 1 5
30 3 3
40 2 4
20 4 2
Вот мои наработки по этому поводу:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function MyRank(v As Double, arr As Range, t As Integer) As Double
Dim i As Integer
Dim arr1 As Range
   If (t = 0) Then
    Range(arr1).Sort Key1:=Range(arr.Cell(1, arr.Column)), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
            For i = 1 To arrR.Rows.Count           If (arr1.Cells(i, arr1.Column) = v) Then
                MyRank = i
           End If
           Next i
   End If
  If (t = 1) Then
   Range(arr1).Sort Key1:=Range(arr.Cell(1, arr.Column)), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
           For i = 1 To arrR.Rows.Count
           If (arr1.Cells(i, arr1.Column) = v) Then
              MyRank = i
               'Exit Function
          End If
          Next i
   End If
End Function

Не могу понять почему при запуске выдаёт ошибку #ЗНАЧ

@Alex77755 · 12.06.2015, 08:16

Напиши комментарии к каждой строке. Может свмому станет понятнее что пытаешься сделать.
Мне не понятно:
1. Только объявлена переменая arr1 и сразу сортируетя! Она же даже не назначена!
2.Затем идёт цикл до количества строк вообще мифического arrR.

Visual Basic
1
Option Explicit

в самом верху модуля поможет исправить некоторые ошибки

@Казанский · 12.06.2015, 15:23

3004, "Похожие темы" внизу страницы смотрели?
Каким образом использовать Rank, когда есть заполненный массив
А сортировка в функции, вызываемой с листа, работать не будет.

Новые блоги и статьи Все статьи Все блоги /
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	12.06.2015, 15:23
	3004, "Похожие темы" внизу страницы смотрели? Каким образом использовать Rank, когда есть заполненный массив А сортировка в функции, вызываемой с листа, работать не будет. 0