Penggunaan IF Then Else Pada Excel VBA Macro

sore semua.....ketemu kembali dengan saya admin. kali inin saya akan membagikan tips menggunakan fungsi IF-THEN-ELSE pada macro Excel. Beberapa hari ini admin sedang ada proyek membuat aplikasi dengan macro excel, oke kita langsung aja ya.

untuk format asal nya seperti ini : 

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

untuk lebih jelasnya kita langsung ke contoh aja ya, ketikkan macro dibawah ini.

"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

 

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

sekian tips hari ini, semoga bermamfaat....


tautan :
1.  Memunculkan data Pada sebuah Textbox dengan memasukkan kode pada textbox lain
2.  Penggunaan SpinButton pada Userform...
3.  Penjumlahan antara dua buah TextBox
4.  Cara Membuat Pemisah Ribuan pada TextBox Excel
5.  Membuat tombol cetak di Worksheets Excel