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: как писать функции СУММЕСЛИ и СУММЕСЛИ