Penggunaan IF Then Else Pada Excel VBA Macro

Artikel sebelumnya sudah dibahas Variabel dan beberapa tipe Excel VBA Macro, pada kesempatan ini admin belajaroffice.com akan membahas contoh penggunaan coding dari fungsi if then else pada Excel vba macro.

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

Terimakasih selamat mencoba semoga bermanfaat.