MacroFacili: Valore minimo

Un esmpio di funzione che trova il valore minimo di un numero di valori a piacere.

La funzione sfrutta la possibilità di VBA di scrivare una funzione che accetti un numero variabile di parametri e le funzioni LBound e Ubound per accedere ai singoli parametri.

In questo modo la funzione potrà essere chiamata indifferentemente come: Minimo(a,b), Minimo(a,b,c), Minimo(a,b,c...)

Function Minimo(ParamArray Valori() As Variant) As Double
  r = Valori(LBound(Valori))
  For i = LBound(Valori) + 1 To UBound(Valori)
    If (Valori(i) < r) Then r = Valori(i)
  Next i
  Minimo = r
End Function