[vba] Funzione average su matrice

[yield.pm]

ReDim pp(100) As Double

FOR x=1 TO 100
pp(x)= "formula
next x

y=Application.WorksheetFunction.Average(pp(1), pp(100))

Il valore y in realtà mi da la media tra i soli pp(1) e pp(100) e non la media di tutti i 100 valori. Se utilizzo Application.WorksheetFunction.Sum(Range(pp(1), pp(100))) ottengo errore...

Come far calcolare la media di tutti i 100 valori?

Grazie

[Anthony47]

Userai

Codice: Seleziona tutto

Application.WorksheetFunction.Average(pp())


Ricorda che in genere la "base" di una matrice e' 0 (salvo l' uso di Option Base 1), per cui la tua ReDim pp(100) dichiara una matrice con 101 elementi; quindi la media sara' calcolata su 101 elementi.
Se vuoi lavorare su 100 elementi userai Option Base 1, oppure ReDim pp(1 To 100)

Ciao

[yield.pm]

grazie Anthony sei stato chiarissimo, ciao