Vba: come calcolare il valore medio dell'intervallo

È possibile utilizzare la seguente sintassi di base per calcolare il valore medio di un intervallo in Excel utilizzando VBA:

 SubAverageRange ()
    Range(" E2 ") = WorksheetFunction.Average(Range(" B1:B12 "))
End Sub

Questo particolare esempio calcola il valore medio nell’intervallo B2:B12 e assegna il risultato alla cella E2 .

Se invece vuoi visualizzare il valore medio in una finestra di messaggio, puoi utilizzare la seguente sintassi:

 SubAverageRange ()
    'Create variable to store average value
    Dim avg As Single
    
    'Calculate average value of range
    avg = WorksheetFunction.Average(Range(" B1:B12 "))
    
    'Display the result
    MsgBox " Average Value in Range: " & avg
End Sub

Gli esempi seguenti mostrano come utilizzare nella pratica ciascuno di questi metodi con il seguente set di dati in Excel che contiene informazioni su vari giocatori di basket:

Esempio 1: calcola la media dell’intervallo utilizzando VBA e visualizza i risultati nella cella

Supponiamo di voler calcolare il valore medio nella colonna dei punti e visualizzare i risultati in una cella specifica.

Per fare ciò possiamo creare la seguente macro:

 SubAverageRange ()
    Range(" E2 ") = WorksheetFunction.Average(Range(" B1:B12 "))
End Sub

Quando eseguiamo questa macro, riceviamo il seguente output:

Si noti che la cella E2 contiene un valore di 21.27273 .

Questo ci dice che il valore medio nella colonna dei punti è 21.27273.

Esempio 2: calcolare la media dell’intervallo utilizzando VBA e visualizzare i risultati nella finestra di messaggio

Supponiamo invece di voler calcolare il valore medio nella colonna dei punti e visualizzare i risultati in una finestra di messaggio.

Per fare ciò possiamo creare la seguente macro:

 SubAverageRange ()
    'Create variable to store average value
    Dim avg As Single
    
    'Calculate average value of range
    avg = WorksheetFunction.Average(Range(" B1:B12 "))
    
    'Display the result
    MsgBox " Average Value in Range: " & avg
End Sub

Quando eseguiamo questa macro, riceviamo il seguente output:

La finestra di messaggio ci dice che il valore medio nell’intervallo B2:B12 è 21.27273 .

Tieni presente che in questo esempio abbiamo calcolato il valore medio nell’intervallo B2:B12 .

Tuttavia, se desideri invece calcolare il valore medio di un’intera colonna, puoi digitare B:B .

Questo calcolerà il valore medio per ciascuna cella nella colonna B.

Risorse addizionali

I seguenti tutorial spiegano come eseguire altre attività comuni in VBA:

VBA: come scrivere le funzioni MEDIA.SE e MEDIA.SE
VBA: come scrivere le funzioni SOMMA.SE e SOMMA.FS
VBA: come scrivere le funzioni COUNTIF e COUNTIFS