Cara menghitung nilai absolut di vba (dengan contoh)

Nilai absolut suatu bilangan menyatakan jarak antara bilangan tersebut dan nol.

Untuk menghitung nilai absolut di VBA, Anda bisa menggunakan fungsi Abs .

Berikut cara umum untuk menggunakan fungsi ini dalam praktik:

 Sub FindAbsoluteValue()

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

Contoh khusus ini menghitung nilai absolut setiap sel dalam rentang A2:A10 dan menampilkannya dalam rentang B2:B10 .

Contoh berikut menunjukkan cara menghitung nilai absolut dalam VBA dalam praktiknya.

Contoh: Cara menghitung nilai absolut di VBA

Misalkan kita memiliki daftar nilai berikut di Excel:

Misalkan kita ingin menghitung nilai absolut setiap sel di kolom A dan menampilkannya di kolom B.

Kita dapat membuat makro berikut untuk melakukan ini:

 Sub FindAbsoluteValue()

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

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Kolom B sekarang menampilkan nilai absolut setiap nilai di kolom A.

Perhatikan bahwa setiap nilai positif di kolom A tetap positif di kolom B.

Perhatikan juga bahwa setiap nilai negatif di kolom A telah diubah menjadi nilai positif di kolom B.

Catatan : Anda dapat menemukan dokumentasi lengkap untuk fungsi VBA Abs di sini .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara menghitung nilai rata-rata rentang
VBA: Cara menambahkan nilai dalam suatu rentang
VBA: Cara menghitung jumlah baris dalam jangkauan