пользовательская функция МАКСЕСЛИМН

[Zorg]

Помогите, пожалуйста!
Необходима функция МАКСЕСЛИМН, то есть аналогичная СУММЕСЛИМН, но ищущая максимальное значение в массиве с рядом условий.

P.S. Знаю, что такую проблему можно решить формулами массива, но такое решение не подходит, так как массив не имеет постянных границ, в нем удаляются и добавляются строки и т.д., а считать массивом столбец целиком формулы не позволяют.
Пример массива во вложении.
Заранее спасибо!

[alex77755]

но ищущая максимальное значение в массиве с рядом условий.

Среди чего искать максимальное значение? Что за ряд условий?
Как предполагается задавать массив?
Вопросов больше чем ответов

[Hugo121]

Не вылизывал, но уже работает:

Option Explicit

Function MaxJesliMn(MaxRange As Range, IfRange As Range, uslovie)
Dim r As Range, i&
For Each r In MaxRange.Columns(1).Cells
i = i + 1
If IfRange.Columns(1).Cells(i).Value = uslovie Then
If MaxJesliMn < r.Value Then MaxJesliMn = r.Value
End If
Next
End Function

[Zorg]

to Hugo121
Да, огромное спасибо, именно то, что нужно, но в данном случае это формула МАКСЕСЛИ, а нужна МАКСЕСЛИМН, то есть? чтобы условий и диапазонов условий было несколько.
Как ее так переделать, не подскажете?
Zorg

[Zorg]

to Hugo121

Все, сам переделал, СПАСИБО! ))

[DeniTaipov]

Сообщение от Hugo121

Не вылизывал, но уже работает:

Option Explicit

Function MaxJesliMn(MaxRange As Range, IfRange As Range, uslovie)
Dim r As Range, i&
For Each r In MaxRange.Columns(1).Cells
i = i + 1
If IfRange.Columns(1).Cells(i).Value = uslovie Then
If MaxJesliMn < r.Value Then MaxJesliMn = r.Value
End If
Next
End Function

Привет помоги пожалйста. этот код который ты написал как его использовать?

[Hugo121]

http://www.planetaexcel.ru/tip.php?aid=122

[IIY]

Hugo121,
написанная тобой функция работает только для массива положительных чисел.
Подскажи, пожалуйста, как переделать эту функцию, чтобы она работала и для массива, который состоит, в том числе, и с отрицательных чисел?