имеется массив А из n произвольных чисел среди которых есть положительные, отрицательные и равные нулю. найти сумму элементов предшествующих минимальному числу. так если А={3,4,9,2,11,-12,3} результат 3+4+9+2=18

Function func32589781(a As Range) As Double

Dim r As Range, s As Double

For Each r In a

If Fix((1 - Sgn(r)) / 2) Then: Exit For

s = s + r

Next

func32589781 = s

End Function

Excel VBA