Як обчислити абсолютні значення у vba (з прикладом)

Абсолютне значення числа представляє відстань між числом і нулем.

Для обчислення абсолютних значень у VBA можна використовувати функцію Abs .

Ось поширений спосіб використання цієї функції на практиці:

 Sub FindAbsoluteValue()

    Dim i As Integer
    
    For i = 2 To 10
        Range(" B " & i) = Abs(Range(" A " & i))
    Next i
      
End Sub

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

У наступному прикладі показано, як обчислити абсолютні значення у VBA на практиці.

Приклад: як обчислити абсолютні значення у VBA

Припустимо, у нас є наступний список значень в Excel:

Припустімо, ми хочемо обчислити абсолютне значення кожної комірки в стовпці A та відобразити їх у стовпці B.

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

 Sub FindAbsoluteValue()

    Dim i As Integer
    
    For i = 2 To 10
        Range(" B " & i) = Abs(Range(" A " & i))
    Next i
      
End Sub

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

У стовпці B тепер відображається абсолютне значення кожного значення в стовпці A.

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

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

Примітка . Ви можете знайти повну документацію для функції VBA Abs тут .

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

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

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