Vba: hoe de standaardafwijking van het bereik te berekenen

U kunt de volgende basissyntaxis gebruiken om de standaardafwijking van waarden in een bereik te berekenen met behulp van VBA:

 SubStDevRange ()
    Range(" D2 ") = WorksheetFunction.StDev(Range(" B2:B11 "))
End Sub

Dit specifieke voorbeeld berekent de standaardafwijking van waarden in het bereik B2:B11 en wijst het resultaat toe aan cel D2 .

Als u in plaats daarvan de standaardafwijking van de waarden in een berichtvenster wilt weergeven, kunt u de volgende syntaxis gebruiken:

 SubStDevRange ()
    'Create variable to store standard deviation of values
    Dim stdev As Single
    
    'Calculate standard deviation of values in range
    stdev = WorksheetFunction.StDev(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Standard Deviation of Values in Range: " & stdev 
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 de standaardafwijking van het bereik met behulp van VBA en geef de resultaten in cellen weer

Stel dat we de standaardafwijking van de waarden in de puntenkolom willen berekenen en de resultaten in een specifieke cel willen weergeven.

We kunnen hiervoor de volgende macro maken:

 SubStDevRange ()
    Range(" D2 ") = WorksheetFunction.StDev(Range(" B2:B11 "))
End Sub

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

Merk op dat cel D2 de waarde 11.93734 bevat.

Dit vertelt ons dat de standaardafwijking van de waarden in de puntenkolom 245 is.

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

Stel dat we in plaats daarvan de standaardafwijking van de waarden in de puntenkolom willen berekenen en de resultaten in een berichtenvenster willen weergeven.

We kunnen hiervoor de volgende macro maken:

 SubStDevRange ()
    'Create variable to store standard deviation of values
    Dim stdev As Single
    
    'Calculate standard deviation of values in range
    stdev = WorksheetFunction.StDev(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Standard Deviation of Values in Range: " & stdev 
End Sub

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

Het berichtenvenster vertelt ons dat de standaardafwijking van de waarden in het bereik B2:B11 11,937 is.

Merk op dat we in dit voorbeeld de standaardafwijking van waarden in het bereik B2:B11 hebben berekend.

Als u echter in plaats daarvan de standaardafwijking van waarden in een hele kolom wilt berekenen, kunt u in plaats daarvan B:B typen.

Hiermee wordt de som van de waarden voor elke cel in kolom B berekend.

Opmerking : u kunt de volledige documentatie van de StDev VBA-methode hier vinden.

Aanvullende bronnen

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

VBA: Hoe de gemiddelde waarde van het bereik te berekenen
VBA: het aantal rijen binnen bereik tellen
VBA: SUMIF- en SUMIFS-functies schrijven