Perulangan dalam VBA excel

Perulangan adalah serangkaian bentuk kegiatan atau tugas dalam pemrograman dengan mengulang satu statement (perintah) sampai batas yang diinginkan. Perulangan dalam Vba Excel salah satunya berfungsi untuk mengulangi perintah tugas yang bersifat repetitive atau berulang, menjalankan program menggunakan perulangan dapat dilakukan dengan mengatur berapa kali perulangan terjadi atau berdasarkan sebuah nilai kondisi. sebagai contoh Jika nilai atau kondisi yang diuji bernilai benar maka akan diulangi perintah programnya. Sebaliknya jika kondisi bernilai salah maka program tidak akan mengulangi perintah program. Berikut ini adalah contoh perulangan dalam Vba excel disertai contohnya.

Perulangan Do … Loop

Perulangan menggunakan struktur Do Loop akan mengontrol perulangan perintah program berdasarkan nilai kondisi. Ada dua variasi struktur Do loop:

1. Do Until
2. Do While

Perintah Do until akan mengulangi baris program selama kondisinya bernilai false (salah) sedangkan perintah Do While akan mengulangi baris program selama kondisinya bernilai True (benar). Exit Do juga dapat anda tambahkan dalam penulisan Do loop akan tetapi bersifat Optional. Exit Do berfungsi untuk keluar dari perulangan dan menjalankan kembali perintah dibawah statement Loop.

Syntax:

Do While <Kondisi>
     <Statement Block>
[Exit Do]
Loop

Atau

Do Until <Kondisi>
     <Statement Block>
[Exit Do]
Loop

Contoh penulisan struktur Do Loop:

Do while ActiveCell.Value<>””
      ActiveCell.Value=ActiveCell.Value * 1.5
      Activecell.offset(1,0).select
Loop

Dalam penulisan perintah perulangan Do loop anda juga dapat tuliskan dengan struktur seperti dibawah ini:

Do 
     <Statement Block>
[Exit Do]
Loop Until<Kondisi>

Atau

Do
     <Statement Block>
[Exit Do]
Loop While <Kondisi>

perbedaan struktur penulisan diatas sebenarnya tidak jauh berbeda, letak perbedannya adalah letak penempatan kondisi perulanganya. jika kondisi di letakan setelah Perintah Do Maka program akan m

Contoh penulisan Program:

Do
intCount=intCount+1
Loop Until MsgBox(“Continue?”, vbYesNo)=vbNo

CONTOH LATIHAN

Isilah kolom kosong dalam tabel workbook Sample_data.xlsm, gunakan properti offset dan formula R1C1 untuk mengisi cell B10 (Kolom Nomor), F10 (kolom Area), H10 (kolom Unit Price) , J10 (kolom Discount), da K10(kolom Total). Gunakan perulangan untuk melengkapi isi data pada kolom nomor, area, Unit price, Discount dan Total untuk baris dibawahnya.

Langkah-Langkah:

1. Bukalah file latihan Sample data.xlsm
2. Tuliskan prosedur isi_data untuk baris 10
   
3. Tambahkan struktur perulangan Do until untuk mengisi kolom kosong dibawahnya secara otomatis.
   
4. Lengkapi perintah program sebelumya dengan perintah di bawah ini.
5. Jalankan menggunakan run program F5 atau tambahkan Shapes untuk menjalankan prosedur isi_data.
6. Simpan Workbook Sample data.xlsm untuk menyimpan perubahan.

Dari contoh program menggunakan perulangan diatas untuk mengulangi penulisan nomor sesuai urutan, kami gunakan sebuah variabel bernama IntNomor bernilai 1, kemudian untuk mengisi data pada kolom kosong menggunakan properti offset dan Formula R1C1. jika anda belum paham penggunaan variabel , Properti offset dan Formula R1C1 anda dapat mempelajarinya pada pembelajaran sebelumnya.

Perulangan For to Next

Perulangan for adalah perulangan perintah program mengulang baris perintah dengan ditentukan berapa kali perulanganya. Anda dapat tentukan perulangan tanpa menuliskan kondisi untuk diuji sebelumnya. Menggunakan struktur perulangan for next dibutuhkan sebuah variable penghitung atau disebut (counter). Ketika program dijalankan variable penghitung akan bertambah atau berkurang setiap kali perulangan dijalankan.

Syntax:

For <Counter> = <start> to <end> [Step<increment>]
     <Statement>
     [Exit for]
Next [<counter>]

Contoh penulisan Program:

Dim intIndex as integer
For intIndex=1 to Worksheets.Count
        Worksheets(intIndex).select
        Range(“a1”).Select
       Selection.CurrentRegion.select
       Selectionn.Column.AutoFit
Next intIndex

Perulangan FOR EACH

Perulangan dengan strukturn for each next agak sedikit berbeda daripada perulangan dengan struktur for to next. Perulangan dengan srtruktur ini digunakan terutama untuk perulangan dengan koleksi objek (object Collection).

Syntax:

For Each <element> in <CollectionReference>
     <statemenet blok>
     [Exit for]
     <statemenet blok>
Next <element>

Contoh program:

For Each WS In Worksheets
     WS.select
     Cells.select
     Selection.Clear
Next WS

Untuk lebih dalam lagi untuk mempelajari perulangan VBA Excel dengan struktur do loop, for to next dan for each, ,  kami akan bahas di materi selanjutnya dengan contoh kasus yang relevan dalam pekerjaan pengolahan data, sebagai contoh untuk rekap data dari beberapa workbook dan beberapa worksheets untuk dijadikan satu, menambahkan baris total dalam setiap tabel dan masih banyak lagi contoh kasus lainya. semoga latihan ini memberikan informasi yang bermanfaat untuk anda. Terimakasih 😀