Vba: jak obliczyć odchylenie standardowe zakresu

Do obliczenia odchylenia standardowego wartości w zakresie za pomocą języka VBA możesz użyć następującej podstawowej składni:

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

Ten konkretny przykład oblicza odchylenie standardowe wartości z zakresu B2:B11 i przypisuje wynik do komórki D2 .

Jeśli zamiast tego chcesz wyświetlić odchylenie standardowe wartości w oknie komunikatu, możesz użyć następującej składni:

 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

Poniższe przykłady pokazują, jak w praktyce zastosować każdą z tych metod, mając do dyspozycji następujący zbiór danych w Excelu, który zawiera informacje o różnych koszykarzach:

Przykład 1: Oblicz odchylenie standardowe zakresu za pomocą VBA i wyświetl wyniki w komórce

Załóżmy, że chcemy obliczyć odchylenie standardowe wartości w kolumnie punktów i wyświetlić wyniki w określonej komórce.

W tym celu możemy utworzyć następujące makro:

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

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Zauważ, że komórka D2 zawiera wartość 11,93734 .

Mówi nam to, że odchylenie standardowe wartości w kolumnie punktów wynosi 245.

Przykład 2: Oblicz odchylenie standardowe zakresu za pomocą VBA i wyświetl wyniki w oknie komunikatu

Załóżmy, że zamiast tego chcemy obliczyć odchylenie standardowe wartości w kolumnie punktów i wyświetlić wyniki w oknie komunikatu.

W tym celu możemy utworzyć następujące makro:

 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

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Okno komunikatu informuje nas, że odchylenie standardowe wartości z zakresu B2:B11 wynosi 11,937 .

Zauważ, że w tym przykładzie obliczyliśmy odchylenie standardowe wartości z zakresu B2:B11 .

Jeśli jednak zamiast tego chcesz obliczyć odchylenie standardowe wartości w całej kolumnie, możesz zamiast tego wpisać B:B .

Spowoduje to obliczenie sumy wartości dla każdej komórki w kolumnie B.

Uwaga : Pełną dokumentację metody StDev VBA znajdziesz tutaj .

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

VBA: Jak obliczyć średnią wartość zakresu
VBA: Jak policzyć liczbę wierszy w zakresie
VBA: Jak pisać funkcje SUMIF i SUMIFS