Min_No0s

Getting the minimum number from an array excluding zeros.

CodeFunctionName
What is this?

Public

Tested

Original Work
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

arrNumbers

Views 77

Downloads 36

CodeID
DB ID

ANmarAmdeen
626
Attachments
Revisions

v1.0

Wednesday
June
5
2024