Como calcular valores absolutos em vba (com exemplo)

O valor absoluto de um número representa a distância entre o número e zero.

Para calcular valores absolutos em VBA, você pode usar a função Abs .

Esta é uma maneira comum de usar esta função na prática:

 Sub FindAbsoluteValue()

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

Este exemplo específico calcula o valor absoluto de cada célula no intervalo A2:A10 e os exibe no intervalo B2:B10 .

O exemplo a seguir mostra como calcular valores absolutos em VBA na prática.

Exemplo: Como calcular valores absolutos em VBA

Suponha que temos a seguinte lista de valores no Excel:

Suponha que queiramos calcular o valor absoluto de cada célula na coluna A e exibi-los na coluna B.

Podemos criar a seguinte macro para fazer isso:

 Sub FindAbsoluteValue()

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

Quando executamos esta macro, recebemos a seguinte saída:

A coluna B agora exibe o valor absoluto de cada valor na coluna A.

Observe que cada um dos valores positivos na coluna A permaneceu positivo na coluna B.

Observe também que cada um dos valores negativos na coluna A foi convertido em valores positivos na coluna B.

Nota : Você pode encontrar a documentação completa da função VBA Abs aqui .

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras tarefas comuns em VBA:

VBA: Como calcular o valor médio do intervalo
VBA: Como adicionar valores em um intervalo
VBA: Como contar o número de linhas no intervalo