Vba: hoe de gemiddelde waarde van het bereik te berekenen

U kunt de volgende basissyntaxis gebruiken om de gemiddelde waarde van een bereik in Excel te berekenen met behulp van VBA:

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

Dit specifieke voorbeeld berekent de gemiddelde waarde in het bereik B2:B12 en wijst het resultaat toe aan cel E2 .

Als u in plaats daarvan de gemiddelde waarde in een berichtvenster wilt weergeven, kunt u de volgende syntaxis gebruiken:

 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

De volgende voorbeelden laten zien hoe u elk van deze methoden in de praktijk kunt gebruiken met de volgende dataset in Excel die informatie bevat over verschillende basketbalspelers:

Voorbeeld 1: Bereken het gemiddelde van het bereik met VBA en geef de resultaten in de cel weer

Stel dat we de gemiddelde waarde in de puntenkolom willen berekenen en de resultaten in een specifieke cel willen weergeven.

We kunnen hiervoor de volgende macro maken:

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

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Merk op dat cel E2 de waarde 21.27273 bevat.

Dit vertelt ons dat de gemiddelde waarde in de puntenkolom 21,27273 is.

Voorbeeld 2: Bereken het gemiddelde van het bereik met VBA en geef de resultaten weer in het berichtenvenster

Stel dat we in plaats daarvan de gemiddelde waarde in de puntenkolom willen berekenen en de resultaten in een berichtenvenster willen weergeven.

We kunnen hiervoor de volgende macro maken:

 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

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Het berichtvenster vertelt ons dat de gemiddelde waarde in het bereik B2:B12 21.27273 is.

Merk op dat we in dit voorbeeld de gemiddelde waarde in het bereik B2:B12 hebben berekend.

Als u echter in plaats daarvan de gemiddelde waarde in een hele kolom wilt berekenen, kunt u in plaats daarvan B:B typen.

Hiermee wordt de gemiddelde waarde voor elke cel in kolom B berekend.

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

VBA: Hoe AVERAGEIF- en AVERAGEIFS-functies te schrijven
VBA: SUMIF- en SUMIFS-functies schrijven
VBA: Hoe COUNTIF- en COUNTIFS-functies te schrijven