VBA – Função Abs

Descrição do Abs

Retorna o valor absoluto de um número.

Exemplos simples de Abs

Sub Abs_Exemplo()
 MsgBox Abs(-12.5)
End Sub

Esse código retornará 12,5

Sintaxe de Abs

No editor do VBA, você pode digitar “Abs(” para ver a sintaxe da função Abs:

A função Abs contém um argumento:

Number (Número): Um valor numérico.

Exemplos da função Abs do Excel VBA

você pode fazer referência a uma célula que contém dados:

Sub Abs_Exemplo1()
    Dim celula As Range
    
    For Each celula In Range("A2:A4")
       celula.Offset(0, 1) = Abs(celula.Value)
    Next celula
End Sub

O resultado será o seguinte (consulte B2:B4)

Os dois exemplos a seguir retornarão 12.

MsgBox Abs(-12)

MsgBox Abs(12)

Para encontrar o número mais próximo de 2 quando uma matriz de números (1,5, 3,1, 2,1, 2,2, 1,8) é fornecida, você pode usar o código a seguir.

Sub Abs_Exemplo2()
    Dim Numeros
    Dim item
    Dim ValorMaisProximo As Double
    Dim dif As Double
    Dim minDif As Double
    minDif = 100
    
    Numeros = Array(1.5, 3.1, 2.1, 2.2, 1.8)
        
    For Each item In Numeros
       dif = Abs(item - 2)
       If dif < minDif Then
          minDif = dif
          ValorMaisProximo = item
       End If
    Next item

    MsgBox "O valor mais próximo: " & ValorMaisProximo
End Sub

O resultado será 2,1, como mostrado a seguir.