Penggunaan IF Then Else Pada Excel VBA Macro

 


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

IF ELSE EXCEL VBA MACRO

IF ELSE EXCEL VBA MACRO

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

ELSEIF EXCEL VBA MACRO

ELSEIF EXCEL VBA MACRO

Terimakasih selamat mencoba semoga bermanfaat.

Edi Subarkah 

Belajaroffice.com media belajar bersama tutorial Ms Office lengkap meliputi : word, excel, powerpoint dan access yang ditulis secara beruntut simpel sehingga mudah dipahami bagi pemula, semoga bermanfaat. "berbagi itu indah"

VIEW COMMENTS

  • mitradetik

    rumus tersebut apakan berlaku untuk antar sheet ya mas edi

    • Edi Subarkah

      Ini untuk sheet yang aktif, nanti adalagi cara untuk pengaturan sheetnya.

  • wongcrewchild

    langsung praktek aja..biar nyambung
    tambah ilmu lagi, ditunggu kelanjutannya

    • Edi Subarkah

      silahkan di coba, ok tunggu aja. admin juga masih belajar, kita sama-sama belajar.

  • andre ws

    Kalau untuk execute fungsi di multiple line,( range(..).value ) gimana caranya mas Edi? apakah harus pakai array ?

Comments

Popular posts from this blog

Download Berbagai Font Notasi Angka Terbaik dan Cara Penulisan di MS Word

Font Notasi Angka Untuk membuat Partitur Lagu Not Angka

16+ Font dan Kode untuk Membuat Simbol Musik di Word