Функция МАКС() не учитывающая знак чисел?

[Wasup!]

Какой функцией можно получить максимальное значение, из перечня ячеек, не учитывая знак исходных чисел?

т.е. для чисел 1 5 -8 значение такой функции будет -8

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

Если делать свою функцию, то как в нее передавать диапазон ячеек, и как потом этот диапазон обходить?

[ZlydenGL]

Function MyFunction(MyRange as Range) as Double
Dim I, myAVG as Double
For Each I In MyRange.Cells
myAVG=myAVG+I.Value
Next I
MyFunction=myAVG/myRange.Cells.Count
Exit Function

[sergeyvg]

=МАКС(ABS(A1:A4))
но ввести эту функцию нажав CTRL+SHIFT+ENTER

[GSerg]

Угу.
И выведет она тебе для этих трёх чисел 8. А должна -8.

Если формулой, то =ЕСЛИ(ABS(МИН( ))>ABS(МАКС( )),МИН(),МАКС( ))

[ZlydenGL]

Ой, блин, что я написал...

Правильный код:
Function MyMAX(MyRange as Range) as Double
Dim I
For Each I In MyRange.Cells
If MyMAX<ABS(I.Value) Then MyMAX=I.Value
Next I
Exit Function

[Wasup!]

Мне кажется, что лучше так

Код: Выделить всё

Function fAbsMax(vRange As Range) As Double

Dim vCell
Dim vAbsMax     As Double
Dim vMax        As Double

    For Each vCell In vRange
        If IsNumeric(vCell) = True Then
            If vAbsMax < Abs(vCell) Then
                vAbsMax = Abs(vCell)
                vMax = vCell
            End If
        End If
    Next vCell
fAbsMax = vMax
End Function

А что будет работать быстрее: такая функция или
=ЕСЛИ(ABS(МИН( ))>ABS(МАКС( )),МИН(),МАКС( ))
?

[ZlydenGL]

Wasup!, если значение Cell не Numeric, то автоматически Cell.Value будет равно 0. ИМХО, лишняя проверка

[Wasup!]

А помоему нет, если ячейка содержит строку, то Cell.Value будет содержать строку. И при попытке присвоить vMax = vCell возникнет ошибка несответствия типов.

[ZlydenGL]

Wasup!, ты уверен? Проверь... Но AFFAIN Value всегда и во всех объектах хранит именно цифру.