Как рассчитать абсолютные значения в 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: как подсчитать количество строк в диапазоне