Fungsi Looping Pada Excel VBA Macro

Pada artikel sebelumnya sudah dibahas fungsi if then else pada Excel vba macro, kita lanjutkan lagi. Kali ini admin akan membahas coding  yang penting juga untuk dipelajari yaitu fungsi dari Looping Excel VBA Macro.

Looping yaitu merupakan statment perintah yang digunakan melakukan perulangan sampai batas tertentu sesuai yang diinginkan.

Sebagai contoh kita ingin menuliskan kalimat secara berulang sepuluh kali, tentunya kurang praktis kalau menulis perintah/koding berulang-ulang sebanyak sepuluh kali. Contoh lain kita akan melakukan penjumlahan berulang secara beruntut sepuluh kali.

Dengan fungsi looping ini kita cukup menuliskan koding sekali maka perintah perulangan berapapun bisa kita kerjakan hanya dengan sekali klik/printah. Berikut ini beberapa fungsi looping yang bisa digunakan:

Buatlah terlebih dahulu dari menu developer sebutah button/tombol

• Looping For >>> Next

Fungsi ini merupakan perulangan yang batas diketahui diawal yang bisa kita tentukan.

Contoh penulisannya :

Sub Button1_Click()
For i = 1 To 10
Range(“B” & i).Value = i
Next i
End Sub

(ket : Pada Range “B” & i artinya kolom B baris i nilainya akan melakukan looping/pengulangan sampai sepuluh kali, hasilnya bilangan berurut seperti gambar diatas)

• Looping Do >>> While

Perulangan yang memilki kondisi, apabilia syarat terpenuhi barulah program akan menghentikan perintahnya. Penggunaannya sama pada diatas hanya beda penulisan koding.

Contoh:

Sub Button1_Click()
Dim i As Integer
i = 1
Do
Range(“B” & i).Value = i
i = i + 1
Loop While i <= 10
End Sub

• Do >>> Loop Until

Hampir sama dengan yang Do >> While, statement perulanggannya akan berhinti jika kondisi telah terpenuhi.

Contohnya :

Sub Button1_Click()
Dim i As Integer
i = 1
Do
Range(“B” & i).Value = i
i = i + 1
Loop Until i > 10

End Sub

(ket perulangan dengan penjumlahan i +1  dimana  loop akan berhenti jika kurang dari 10, hasilnya sama bilangan urut seperti gambar diatas).

Contoh penerapannya yaitu pada pembuatan tombol print otomatis

Selamat mencoba, Terimakasih semoga bermanfaat.