Getting the minimum number from an array excluding zeros.
Function Min_No0s(arrNumbers)
Dim Result
' Result = arrNumbers(0)
Result = WorksheetFunction.Max(arrNumbers)
For Each I In arrNumbers
If I < Result And I < > 0 Then
Result = I
End If
Next
Min_No0s = Result
End Function
Dim Result
' Result = arrNumbers(0)
Result = WorksheetFunction.Max(arrNumbers)
For Each I In arrNumbers
If I < Result And I < > 0 Then
Result = I
End If
Next
Min_No0s = Result
End Function
arrNumbers
Views 99
Downloads 36
CodeID
DB ID
