Data variabel beserta fungsi looping dan if then pada VBA

Variabel dan beberapa tipe data yang sering digunakan pada excel vba macro.
Ketika kita akan membuat koding pada excel vba macro dimana terdapat variabel-variabel yang komplek, langkah awal yang dilakukan yaitu kita mendefinisikan masing-masing variabel tersebut serta menentukan tipenya datanya.

Penulisan variabel dalam bahasa pemprograman Excel VBA macro ada beberapa ketentuan diantaranya berupa : kombinasi tulisan huruf atau angka setelah huruf, tidak ada spasi, tidak tanda titik atau koma, variabel satu dengan yang lain harus unik.

Biasanya penulisanya diawali dengan Dim variabel As tipenya, berikut akan dijelaskan bebarapa tipe yang sering digunakan.

Sebelumnya dari tab menu Developer buatlah sebuah button/tombol, kemudian ketikan koding dibawah ini

Tipe-tipe data variabel pada excel vba macro diantaranya yaitu sebagai berikut :

1. Integer

Integer digunakan untuk data berupa nomer/angka bilangan bulat

Contoh penulisannya
Sub Button1_Click()
Dim p, l, Luas As Integer
p = Range(“B2”).Value
l = Range(“B3”).Value
Luas = p * l
MsgBox Luas
End Sub

2. Double

Doubel digunakan untuk data dengan tipe angka yang lebih komplek termasuk desimal atau koma

Contoh penulisannya
Sub Button1_Click()
Dim p, l, Keliling As Double
p = Range(“B2”).Value
l = Range(“B3”).Value
Keliling = 2 * (p + l)
MsgBox Keliling
End Sub

3. String

String digunakan untuk data dengan tipe tulisan huruf

Contoh penulisnnya :
Sub Button1_Click()
Dim Lahir, Ramal As String
Lahir = Range(“B1”).Value
If Lahir = “Ganjil” Then Ramal = “Anda Tidak Cocok Kerja Di Air”
If Lahir = “Genap” Then Ramal = “Anda Tidak Cocok Kerja Di Darat”
Range(“A3”).Value = Ramal
End Sub

4. Boolean

Boolean digunakan untuk data dengan nilai true atau false

Contohnya :
Sub Button3_Click()
Dim x As Boolean
x = True
MsgBox “Benar”
End Sub


 

Fungsi Looping

Dengan fungsi looping ini kita cukup menuliskan koding sekali maka perintah perulangan berapapun bisa kita kerjakan hanya dengan sekali klik/printah. Berikut ini beberapa fungsi looping yang bisa digunakan:

Buatlah terlebih dahulu dari menu developer sebutah button/tombol

1. Looping For >>> Next

Fungsi ini merupakan perulangan yang batas diketahui diawal yang bisa kita tentukan.

Contoh penulisannya :

    Sub Button1_Click()
    For i = 1 To 10
    Range(“B” & i).Value = i
    Next i
    End Sub

(ket : Pada Range “B” & i artinya kolom B baris i nilainya akan melakukan looping/pengulangan sampai sepuluh kali, hasilnya bilangan berurut seperti gambar diatas)

2. Looping Do >>> While

Perulangan yang memilki kondisi, apabilia syarat terpenuhi barulah program akan menghentikan perintahnya. Penggunaannya sama pada diatas hanya beda penulisan koding.

Contoh:

    Sub Button1_Click()
    Dim i As Integer
    i = 1
    Do
    Range(“B” & i).Value = i
    i = i + 1
    Loop While i <= 10
    End Sub

3. Do >>> Loop Until

Hampir sama dengan yang Do >> While, statement perulanggannya akan berhinti jika kondisi telah terpenuhi.

Contohnya :

    Sub Button1_Click()
    Dim i As Integer
    i = 1
    Do
    Range(“B” & i).Value = i
    i = i + 1
    Loop Until i > 10

    End Sub

(ket perulangan dengan penjumlahan i +1  dimana  loop akan berhenti jika kurang dari 10, hasilnya sama bilangan urut seperti diatas).

Penggunaan IF Then Else

Dalam pembuatan pemprograman menggunakan VBA Macro, fungsi if else ini banyak manfaatnya dan sering dipakai dalam koding yang kompleks. Rumus if then else yaitu berfungsi untuk menjalankan fungsi perintah dimana terdapat satu, dua atau lebih suatu kondisi tertentu dengan hasil yang berbeda-beda.
Misalnya jika kondisi1 maka fungsi perintah yang dijalankan A, jika kondisi2 maka perintah yang dijalankan B dsb.
Penulisan codingnya secara umumnya formatnya sebagai berikut :

    If <kondisi> Then <hasil_true> Else <hasil_false> End if

Untuk lebih jelasnya berikut ini Contoh penggunaannya :
Buka Ms Office Excel, kemudian dari menu Developer buatlah  button/tombol kemudian masukan koding dibawah ini.

Contoh dibawah ini koding untuk menentukan kelulusan dengan kriteria nilai yang bisa ditentukan

Sub Button1_Click()
Dim NilaiA As Double
Dim Hasil As String
NilaiA = Range(“B1”).Value
If NilaiA >= 60 Then
Hasil = “Anda lulus”
Else
Hasil = “Anda Gagal”
End If
Range(“B3”).Value = Hasil
End Sub

Selanjutnya contoh  dengan 3 kondisi yaitu bisa gunakan tambahan fungsi Elseif

Contoh dibawah ini koding untuk menentukan kriteria : kurang, cukup dan baik dengan nilai tertentu.

Sub Button2_Click()
Dim NilaiA As Double
Dim Hasil As String
NilaiA = Range(“B1”).Value
If NilaiA < 60 Then
Hasil = “Kurang”
ElseIf NilaiA <= 70 Then
Hasil = “Cukup”
ElseIf NilaiA > 70 Then
Hasil = “Baik”
End If
Range(“B3”).Value = Hasil

End Sub