Macro for Newbie: Perintah Looping FOR

Macro for Newbie: Perintah Looping FOR

Kita akan membahas cara menggunakan perintah looping pada pemrograman menggunakan Macro atau VBA (Visual Basic for Applications). Seperti judul, materi ini ditujukan buat yang baru belajar dalam membuat macro, atau bisa juga sebagai pengingat saja. Sebenarnya perintah ini berlaku juga untuk pemrograman VBA pada aplikasi Microsoft Office lainnya, tapi disini kita membahas macro untuk Excel. Seperti biasa, kalau belum mengenal Macro atau VBA untuk Excel, silahkan buka posting ini "Membuat Aplikasi Pada Excel".

Format penulisan kode macro seperti ini:

Sub NamaProcedure()

    kode_disini

End Sub

Setiap kode yang akan kita bahas disini pastinya diletakkan pada baris diantara Sub NamaProcedure() dan End Sub.

Perintah FOR
Bentuk dasar penulisan perintah looping FOR adalah:

For i = n to m step x

...

...

Next i

Variabel n,m dan x adalah integer, bukan decimal. n awal perhitungan, m akhir perhitungan, dan x adalah langkah menghitung, x bisa digunakan angka negatif untuk menghitung mundur. Bila tidak disertakan, maka nilai default dari x adalah 1
Contoh:

jumlah = 0

For i = 1 to 20 step 1

    jumlah = jumlah + i

Next i

MsgBox "Jumlah : " & jumlah

Coba dirunning macro ini, seharusnya muncul Message Box seperti ini:

TIPS: Untuk menjalankan Macro, bisa dengan tombol F5, atau gunakan tekan F8 untuk menjalankan macro secara bertahap masing-masing baris




Untuk keluar dari Looping For, gunakan perintah Exit For, contoh:

jumlah = 0

For i = 1 to 20 step 1

    jumlah = jumlah + i

    If jumlah > 25 then

          Exit for
    End if

Next i
MsgBox "Jumlah : " & jumlah

Coba dijalankan dengan tombol F5, dan lihat hasilnya

Sekarang kita coba menggunakan perhitungan mundur:

jumlah = 200

For i = 20 to 1 step -2

    jumlah = jumlah - i

Next i
MsgBox "Jumlah : " & jumlah

Running lagi, dan liat hasilnya

Nah itu tadi sedikit panduan menggunakan perintah looping FOR, berikutnya kita akan membahas perintah looping dengan DO, atau DO UNTIL. Semoga bermanfaat...