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

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

 SubMinValue ()
    Range(" D2 ") = WorksheetFunction.Min(Range(" B2:B11 "))
End Sub

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

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

 SubMinValue ()
    'Create variable to store min value
    Dim minValue As Single
    
    'Calculate min value in range
    minValue = WorksheetFunction.Min(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Min Value in Range: " & minValue 
End Sub

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

Пов’язане: Як знайти максимальне значення в діапазоні за допомогою VBA

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

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

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

 SubMinValue ()
    Range(" D2 ") = WorksheetFunction.Min(Range(" B2:B11 "))
End Sub

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

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

Це означає, що мінімальне значення в колонці балів становить 10.

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

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

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

 SubMinValue ()
    'Create variable to store min value
    Dim minValue As Single
    
    'Calculate min value in range
    minValue = WorksheetFunction.Min(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Min Value in Range: " & minValue 
End Sub

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

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

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

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

Це обчислить мінімальне значення в стовпці B.

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

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

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