Operator : Aritmatika

Operator Artitmatika adalah operator yang digunakan untuk melakukan perhitungan matematika pada Visual Basic for Applications (VBA) seperti penjumlahan , pengurangan , kali dan juga bagi.

Operator ini relatif sama dengan apa yang sudah dipelajari di sekolah pada pelajaran matematika.

Berikut ini beberapa Operator Aritmatika yang ada pada Visual Basic for Applications (VBA).

Operator	Keterangan	Contoh
^	Pangkat	5 ^ 4
-	Negatif	-3
*	Perkalian	8 * 3
/	Pembagian	10 / 2
\	Pembagian Bilangan Bulat	10 \ 2
mod	Modulus	5 mod 2
+	Penjumlahan	3 + 4
-	Pengurangan	7 - 2

Contoh penggunaannya misalnya :

Contoh untuk pangkat, misalnya kita mau menghitung 2 pangka 3 kemudian hasilnya disimpan didalam variable Z, maka scriptnya adalah

Sub Pangkat()
    Dim Z as Double

    Z = 2 ^ 3
    Debug.print Z 'Hasilnya 8
End Sub

Debug.print adalah perintah untuk mencetak hasil (isi dari Z) ke immediate windows

vba.co.id

Pada script diatas Z menghasilkan nilai 8 hasil dari perhitungan 2 pangkat 3.

Selain dengan nilai langsung bisa juga nilai dimasukan kedalam sebuah variable, pembahasan tentang variable akan dibahas secara mendalam pada materi selanjutnya.

contohnya seperti dibawah ini:

Sub Pangkat()
    Dim Z as Double, X As Double, Y as Double

    X = 2
    Y = 3
    Z = X ^ Y
    Debug.print Z 'Hasilnya 8
End Sub

Pada contoh diatas, 2 dan 3 dimasukan kedalam variable X dan Y. Selanjutnya X dan Y dihitung dengan pangkat dan hasilnya disimpan di variable Z.

Untuk contoh operator lainnya sama saja, tinggal sesuaikan dengan operator yang ingin digunakan pada perhitungan yang ingin dilakukan pada VBA.

Sub AritmatikaDasar()
    Dim x As Double, y As Double
    Dim Pangkat As Double, Jumlah As Double
    Dim Kali As Double, Bagi As Double, Kurang As Double
    Dim Bbulat As Double, Sisa As Double
    
    x = 7
    y = 5
    
    Pangkat = x ^ y     
    'Pangkat : Menghasilkan 16807
    
    Kali = x * y        
    'Kali : Menghasilkan 35
    
    Bagi = x / y        
    'Bagi : Menghasilkan 1.4
    
    Sisa = x Mod y      
    'Mod : Menghasilkan 2
    
    Bbulat = x \ y       
    'Div : Menghasilkan 1
    
    Jumlah = x + y      
    'Tambah : Menghasilkan 12
    
    Kurang = x - y      
    'Kurang : menghasilkan 2
End Sub

Jawaban :

Sub Jumlahkan()
   Hasil = 10000 + 500 
   Msgbox Hasil
End Sub

Jawaban :

Sub Proses()
    Dim Hasil as Double

    Hasil = Sheet1.Range("B2").value * Sheet1.Range("C2").value
    Sheet1.Range("J10").value = Hasil 
End Sub