[VBA] Passare array ad una funzione con argomento paramArray

[valeriobb87]

Ho una funzione che calcola il valore più grande in un array:

Function Massimo(ParamArray args() As Variant)

Dim i As Integer
i = 0
Dim val_max As Variant
val_max = args(i)

For i = 1 To UBound(args)
    If args(i) > val_max Then
        val_max = args(i)
    End If
Next

Massimo = val_max

Testata e funzionante, il codice sotto funziona:

MsgBox Massimo("pippo", "pluto", "paperino")

Ora devo passare un array di stringhe alla funzione Massimo:

MsgBox Massimo(allsubFld)

allsubFld è un array di stringhe, ma ottengo errore 13 di run time, tipo non corrispondente; come si passa un array a paramArray?
Grazie.

[Boolean]

ParamArray ti consente di passare un numero indefinito di argomenti che la funzione "interpreta" come Array. Se passi direttamente un Array, passi un solo argomento, e non un Array di argomenti.
Per risolvere il problema, devi cambiare la definizione della funzione, utilizzando come argomento un Variant:

Function Massimo(args As Variant)

Dim i As Integer
i = 0
Dim val_max As Variant
val_max = args(i)

For i = 1 To UBound(args)
    If args(i) > val_max Then
        val_max = args(i)
    End If
Next

Massimo = val_max

Ovviamente dovrai variare il codice della funzione in modo da controllare che l'argomento sia effettivamente un array, ma in questo modo, se devi passare un array costruito direttamente alla chiamata della funzione scriverai così:

MsgBox Massimo(Array("pippo", "pluto", "paperino"))

Altrimenti potrai popolare il tuo array in un altro momento, passandolo poi alla funzione:

MsgBox Massimo(allsubFld)

Boolean