Contoh Membuat Macro dengan IF dan Do While

Seperti yang telah dibahas pada tutorial sebelumnya, macro pada excel bisa dibuat dengan 2 cara:

1. Dengan merekam aksi/kegiatan yang kita lakukan
2. Dengan membuat kode VBA secara langsung melalui layar Visual Basic

Pada dasarnya, sebuah Macro excel adalah sebuah procedure. Pada tutorial ini, akan diberikan contoh bagaimana membuat sebuah macro/procedure, dimana di dalamnya akan kita masukan contoh pernyataan yang menggunakan IF dan looping dengan Do While

Misalnya, disini kita memiliki sebuah table yang berisi data transaksi. Kita ingin membuat membuat sebuah macro yang bisa meanandai transaksi mana saja, yang memiliki sales lebih besar dari 3500, dengan format warna tertentu.

Langkah kode yang dibuat adalah:

1. Kita buat looping dari cell A2, ke A3, ke A4, terus sampai menemukan cell yang kosong
2. Selama proses looping, kita gunakan IF untuk mengecek apakah kolom Sales memiliki nilai >3500
3. Jika iya, maka terapkan format tertentu.

Jika Anda belum mengaktifkan tab Developer, silahkan ikuti tutorial sebelum video ini.

Berikut adalah langkahnya:

1. Pilih tab Developer | Code | Visual Basic
2. 
3. Pada jendela Visual Basic, buat modul baru klik kanan nama Workbook | Insert | Module
4. 
5. Setelah layer modul terbuka, kode siap ditulis di dalamnya
6. Buatlah prosedur FormatTable, yaitu dengan menulis kode Sub FormatTable() dan End Sub.
7. 
8. Kita bisa mengecek bahwa procedure ini sebuah macro dengan klik di tab Developer | Code | Macros
9. Nama procedure FormatTable akan muncul di daftar Macros tersebut
10. 
11. Berikutnya, masukan kode berikut ke dalam procedure FormatTable
12. 
13. 14. Untuk menjalankan kode-nya, klik tombol Run pada toolbar di bawah ini.
14. 
15. Atau bisa juga dengan memilih macro di dialog box, kemudian klik tombol Run
16. Atau bisa juga dengan memilih macro di dialog box, kemudian klik tombol Run
17. 

Penjelasan Kode VBA pada procedure FormatTable

1. Baris 4 sampai baris 15 adalah bagian yang dilooping (diulang-ulang) sampai kondisi tertentu
2. Kondisinya ada di baris 4, yaitu mengecek apakah Cells(i,1) kosong atau tidak melaui fungsi IsEmpty()
3. Looping dilakukan sampai ditemukan baris kosong (baris ke 22)
4. Kemudian, setiap kali looping, di baris ke 7, akan dicek melalui IF, apakah isi cells(I,7) > 3500
5. Jika iya, maka background cell diganti warna menjadi hijau (ColorIndex=10)
6. Dan warna huruf cell, diganti menjadi warna putih (ColorIndex=2)

Demikianlah cara membuat macro di Excel, dengan menggunakan fungsi IF.

Jika Anda memilik pertanyaan, atau contoh kasus tertentu yang ingin dibahas, silahkan tulis di kolom komentar.

Semoga bermanfaat. Chaw.