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).

OperatorKeteranganContoh
^Pangkat5 ^ 4
-Negatif-3
*Perkalian8 * 3
/Pembagian10 / 2
\Pembagian Bilangan Bulat10 \ 2
modModulus5 mod 2
+Penjumlahan3 + 4
-Pengurangan7 - 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

Contoh Kasus 1

  • Buat script untuk menghitung atau menjumlahkan 10000 dan 500 lalu hasilnya disimpan di variable hasil
  • Tampilkan isi dari hasil ke Msgbox

Jawaban :

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

Contoh Kasus 2

  • Buat script untuk mengkalikan nilai yang ada di Range B2 dengan Nilai C2 dan hasilnya disimpan kedalam Variable Hasil
  • Simpan Variable hasil di Range J10

Jawaban :

Sub Proses()
    Dim Hasil as Double

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

Leave a Reply

Your email address will not be published. Required fields are marked *