Penggunaan IF pada macro

Dalam merencanakan sebuah program dalam Visual Basic for Application (VBA) tentunya terdapat pengendalian alur program didalamnya. salah satunya adlaah menggunakan percabangan (branch). Percabangan ini salah satunya menggunakan perintah IF. Penggunaan IF pada macro excel logikanya sama dalam VBA, hanya penulisanya saja yang berbeda. Percabangan atau branch berfungsi dalam pengendalian alur program sebagai pengambil keputusan berdasarkan operasi Boolean yang bernilai TRUE atau FALSE.

Penggunaan IF … END

Struktur penulisan percabangan yang pertama menggunakan perintah IF dan End, perintah logika ini berfungsi untuk pengujian kondisi atau ekspresi. Jika anda sudah terbiasa menggunakan fungsi IF dalam formula excel, anda tidak akan kesulitan memahami struktur penulisan IF dalam VBA. Struktur IF dalam VBA bekerja dengan cara cek kondisi atau ekspresi, Jika kondisi yang dihasilkan bernilai benar (TRUE) maka program akan menjalankan perintah benarnya. Jika kondisi bernilai salah (FALSE) maka program akan menjalankan perintah salahnya.

Syntax:

If<Kondisi>Then<statement>
If intNilai>60 then hasil =”LULUS”

Kita dapat menuliskan struktur IF satu baris jika hanya satu kondisi yang akan di test. Atau kita juga dapat menuliskanya menggunakan blok kode tergantung dari jumlah statement yang dihasilkan.

Sintax:

If<kondisi>then
<statement block>
End if

Contoh Penulisan Program:

If inNilai>60 then
Hasil=”LULUS”
Grade =”C”
End if

Penggunaan IF THEN ELSE Macro

Penggunaan struktur IF then Else hampir sama dengan If end dengan blok kode, penambahan perintah else berfungsi untuk pengambilan keputusan jika kondisi bernilai salah. Struktur penulisan If Then Else juga berfungsi untuk membandikan 2 kondisi saja dalam logika pemrograman.

Syntax:

If<kondisi>then
<statement block>
Else
<statement block>
End if

Contoh Penulisan Program:

If inNilai>60 then
     Hasil=”LULUS”
     Grade =”C”
Else
     Hasil =”TIDAK LULUS”
     Grade =”D”
End if

Jika struktur penulisan If diatas hanya menguji satu dan dua kondisi saja, bagaiamana ketika kondisi yang akan diuji lebih dari dua. Untuk kondisi semacam ini hampir mirip dengan penggunaan nesting If dalam formula excel hanya strukturnya saja yang berbeda. Kita akan rubah sedikit struktur If end dengan menambahkan statement elseif.

Syntax :

If<kondisi 1>then
   <statement block 1>
Elseif <kondisi 2>then
   <statement block 2>
Else <kondisi n>
   <statement block n>
End if

Contoh Program penulisan IF lebih dari dua kondisi:

If inNilai>90 then
   Hasil=”LULUS”
   Grade =”A”
Elseif intNilai>70
     Hasil =”LULUS CATATAN”
     Grade =”B”
Else
     Hasil =”GAGAL”
     Grade =”C”
End if

CONTOH LATIHAN

Gunakan struktur penulisan IF then Else dengan kondisi jika range A1 bernilai kosong maka jalankan prosedur isi data jika tidak tutup workbook Sample_data.

Langkah-langkah penulisan program:

  1. Buka File Sample_data.xlsm
  2. Tambahakan perintah program dalam Sheet1(DATA) module
  3. Tuliskan perintah dibawah ini
    Penggunaan IF pada macro
  4. Jalan program menggunakan F5
  5. Klik OK pada Msgbox dan prosedur Isi_data akan dijalankan
  6. Jalankan kembali menggunakan F5
  7. Klik Cancel pada Msgbox maka prosedur Isi_data tidak dijalankan dan keluar dari program excel.

Penggunaan SELECT CASE Vba excel

Menggunakan statement select case sama halnya ketika kita menggunakan statement If end yatitu berfungsi untuk menguji kondisi dalam pengambilan keputusn. Statement Select case dapat anda gunakan ketika menemukan kodisi yang kompleks dalam logika pemrograman. Penulisan kode select case lebih simple dibandingkan dengan struktur penulisan If then Else.

Sintax Select case:

Select case <test ekpresi>
Case <ekspresi 1>
     <statement block 1>
Case <ekspresi 2>
     <statement block 2>
Case <ekspresi n>
     <statement block n>
[case else]
     <statement block>
End Select

Contoh Penulisan Select Case:

Select case Nilai
Case is >90
Msgbox “Nilai adalah A”
Case is >80
Msgbox “Nilai adalah B”
Case is >60
Msgbox “Nilai adalah C”
Case is >50
Msgbox “Nilai adalah D”
Case else
Msgbox “Nilai adalah E”
End Select

Semoga bermanfaat untuk anda 😀

The post Penggunaan IF pada Macro Excel appeared first on Belajar Microsoft Excel.