エクセル関数、プラスマイナス混在でmaxを抽出する関数

エクセル関数、絶対値でmaxを抽出する関数

選択範囲にプラスとマイナスが混在する場合でも符合付きで絶対値のmaxを抽出する関数です。

関数の例は１列のみ対応です。

エクセルの標準関数でも対応出来ますがこちらの方が範囲指定がスマートですし

マクロ修正で色々な応用出来る例と思って下さい。

Function MaxAbs(ws As Range) As Double
Dim i_end As Double
Dim p_max As Double
Dim i As Double

i_end = ws.Count
p_max = 0

For i = 1 To i_end
    If (Abs(p_max) < Abs(ws.Cells(i, 1))) Then
        p_max = ws.Cells(i, 1)
    End If
Next

MaxAbs = p_max

End Function


エクセル関数だけで抽出する例

=max(max(範囲),abs(min(範囲)))*if(max(範囲)>abs(min(範囲)),1,-1)