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

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

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

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

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

 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

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

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

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

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

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

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

Зверніть увагу, що клітинка E2 містить значення 21,27273 .

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

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

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

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

 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

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

У вікні повідомлення повідомляється, що середнє значення в діапазоні B2:B12 становить 21,27273 .

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

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

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

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

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

VBA: як написати функції AVERAGEIF і AVERAGEIFS
VBA: як написати функції SUMIF і SUMIFS
VBA: як написати функції COUNTIF і COUNTIFS