Добрый день всем. Подскажите пожалуйста как сделать относительную ссылку для рейтинга. Существует формула для расчета рейтинга она в столбце H и J. на данный момент она зафиксирована для расчета первых 50 рейтингов. Возможно ли сделать так чтобы например в ячейке А1 я ставил необходимое мне значение (например 40) и формула так же просчитывала все только первые 40 значений. или же наоборот если я выставляю значение 60 она просчитывала первые 60 значений.
С уважением, Владимир.
Добрый день всем. Подскажите пожалуйста как сделать относительную ссылку для рейтинга. Существует формула для расчета рейтинга она в столбце H и J. на данный момент она зафиксирована для расчета первых 50 рейтингов. Возможно ли сделать так чтобы например в ячейке А1 я ставил необходимое мне значение (например 40) и формула так же просчитывала все только первые 40 значений. или же наоборот если я выставляю значение 60 она просчитывала первые 60 значений.
Результат - формула рейтинга, которая будет зависеть от значения в ячейке A1 Исходные данные кроме этих 2-х столбцов будут меняться, и не факт что будет 50 строк. Может исходных данных будет и 60 строк а может и 22. Вот хотелось бы чтобы уже существующая формула рейтинга в столбцах H и J была привязана к значению в ячейке A1 т.е Если в ячейке стоит значение 20 то формула рейтинга считает только первые 20 строк, если 40 то 40 строк, и т д.
Результат - формула рейтинга, которая будет зависеть от значения в ячейке A1 Исходные данные кроме этих 2-х столбцов будут меняться, и не факт что будет 50 строк. Может исходных данных будет и 60 строк а может и 22. Вот хотелось бы чтобы уже существующая формула рейтинга в столбцах H и J была привязана к значению в ячейке A1 т.е Если в ячейке стоит значение 20 то формула рейтинга считает только первые 20 строк, если 40 то 40 строк, и т д.osuna
Function Ранг_В_Диапазоне(Число As Variant, Начальная_ячейка As Range, _ Optional Количество_Ячеек As Long, Optional Порядок As Integer) As Variant If Начальная_ячейка.Count > 1 Then Ранг_В_Диапазоне = CVErr("#REF") Exit Function End If Dim L As Long With Начальная_ячейка If Количество_Ячеек = 0 Then L = Cells(Rows.Count, .Column).End(xlUp).Row _ Else: L = Количество_Ячеек Ранг_В_Диапазоне = Application.WorksheetFunction.Rank(Число, _ Range(Cells(.Row, .Column), Cells(.Row + L - 1, .Column)), Порядок) End With End Function
Function Ранг_В_Диапазоне(Число As Variant, Начальная_ячейка As Range, _ Optional Количество_Ячеек As Long, Optional Порядок As Integer) As Variant If Начальная_ячейка.Count > 1 Then Ранг_В_Диапазоне = CVErr("#REF") Exit Function End If Dim L As Long With Начальная_ячейка If Количество_Ячеек = 0 Then L = Cells(Rows.Count, .Column).End(xlUp).Row _ Else: L = Количество_Ячеек Ранг_В_Диапазоне = Application.WorksheetFunction.Rank(Число, _ Range(Cells(.Row, .Column), Cells(.Row + L - 1, .Column)), Порядок) End With End Function
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
