Jak obliczyć wartości bezwzględne w vba (z przykładem)

Wartość bezwzględna liczby reprezentuje odległość między liczbą a zerem.

Aby obliczyć wartości bezwzględne w VBA, możesz skorzystać z funkcji Abs .

Oto typowy sposób wykorzystania tej funkcji w praktyce:

 Sub FindAbsoluteValue()

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

W tym konkretnym przykładzie obliczana jest wartość bezwzględna każdej komórki w zakresie A2:A10 i wyświetlana w zakresie B2:B10 .

Poniższy przykład pokazuje jak w praktyce obliczyć wartości bezwzględne w VBA.

Przykład: Jak obliczyć wartości bezwzględne w VBA

Załóżmy, że mamy następującą listę wartości w Excelu:

Załóżmy, że chcemy obliczyć wartość bezwzględną każdej komórki w kolumnie A i wyświetlić ją w kolumnie B.

W tym celu możemy utworzyć następujące makro:

 Sub FindAbsoluteValue()

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

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Kolumna B wyświetla teraz wartość bezwzględną każdej wartości w kolumnie A.

Należy pamiętać, że każda z wartości dodatnich w kolumnie A pozostała dodatnia w kolumnie B.

Należy również pamiętać, że każda z wartości ujemnych w kolumnie A została przeliczona na wartości dodatnie w kolumnie B.

Uwaga : Pełną dokumentację funkcji VBA Abs znajdziesz tutaj .

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

VBA: Jak obliczyć średnią wartość zakresu
VBA: Jak dodać wartości w zakresie
VBA: Jak policzyć liczbę wierszy w zakresie