Vba: як обчислити стандартне відхилення діапазону

Ви можете використовувати такий базовий синтаксис, щоб обчислити стандартне відхилення значень у діапазоні за допомогою VBA:

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

У цьому конкретному прикладі обчислюється стандартне відхилення значень у діапазоні B2:B11 і призначається результат клітинці D2 .

Якщо замість цього ви хочете відобразити стандартне відхилення значень у вікні повідомлення, ви можете використовувати такий синтаксис:

 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

У наведених нижче прикладах показано, як використовувати кожен із цих методів на практиці з таким набором даних у Excel, який містить інформацію про різних баскетболістів:

Приклад 1: обчислення стандартного відхилення діапазону за допомогою VBA та відображення результатів у клітинці

Припустимо, ми хочемо обчислити стандартне відхилення значень у стовпці балів і відобразити результати в певній клітинці.

Для цього ми можемо створити такий макрос:

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

Коли ми запускаємо цей макрос, ми отримуємо такий результат:

Зверніть увагу, що клітинка D2 містить значення 11,93734 .

Це говорить нам про те, що стандартне відхилення значень у стовпці балів становить 245.

Приклад 2: обчислення стандартного відхилення діапазону за допомогою VBA та відображення результатів у вікні повідомлень

Припустімо, замість цього ми хочемо обчислити стандартне відхилення значень у стовпці балів і відобразити результати у вікні повідомлення.

Для цього ми можемо створити такий макрос:

 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

Коли ми запускаємо цей макрос, ми отримуємо такий результат:

У вікні повідомлення повідомляється, що стандартне відхилення значень у діапазоні B2:B11 становить 11,937 .

Зверніть увагу, що в цьому прикладі ми розрахували стандартне відхилення значень у діапазоні B2:B11 .

Однак, якщо замість цього ви хочете обчислити стандартне відхилення значень у всьому стовпці, ви можете натомість ввести B:B .

Це обчислить суму значень для кожної комірки в стовпці B.

Примітка . Ви можете знайти повну документацію методу StDev VBA тут .

Додаткові ресурси

У наступних посібниках пояснюється, як виконувати інші типові завдання у VBA:

VBA: як обчислити середнє значення діапазону
VBA: як підрахувати кількість рядків у діапазоні
VBA: як написати функції SUMIF і SUMIFS