Vba: як додати значення в діапазон

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

 SubSumValues ()
    Range(" D2 ") = WorksheetFunction.Sum(Range(" B2:B11 "))
End Sub

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

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

 SubSumValues ()
    'Create variable to store sum of values
    Dim sum As Single
    
    'Calculate sum of values in range
    sum = WorksheetFunction.Sum(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Sum of Values in Range: " & sum
End Sub

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

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

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

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

 SubSumValues ()
    Range(" D2 ") = WorksheetFunction.Sum(Range(" B2:B11 "))
End Sub

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

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

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

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

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

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

 SubSumValues ()
    'Create variable to store sum of values
    Dim sum As Single
    
    'Calculate sum of values in range
    sum = WorksheetFunction.Sum(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Sum of Values in Range: " & sum
End Sub

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

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

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

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

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

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

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

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