Looping Dengan For

Looping Dengan For

 

Contoh berikutnya akan memperkenalkan Anda dengan mengulang langkah dengan “for”. Sebuah untuk perulangan (loop) memungkinkan Anda untuk mengulangi tindakan yang sama sejumlah tertentu (beberapa kali). Ketik atau copy / paste baris berikut ke Editor VBA Anda, dalam Module1 Anda:

Kalau Module1 belum ada maka Anda harus menambah dengan klik pada sehingga anda memperoleh tampilan sebagai berikut:


 

Copy kan kode di bawah ini ke module1

 

Sub ContohUlang()

For x = 1 To 5

Cells(x, 3).Select

Selection.Value = x + 1

Next x

End Sub

 

 

Gambar 1 Sub Procedure contohulang

Berikutnya menjalankan makro langsung dari Editor VB dengan meletakkan kursor Anda di . (Atau mendorong F5 pada keyboard Anda). Atau dengan cara kembali ke Excel dengan Alt + F11. (atau Klik pada dipojok kiri atas). Dan Coba jalankan pada dengan klik pada Tab Developer sehingga muncul:

Gambar 2 Kotak Dialog Makro

Pilih Contoh Ulang dan Klik

Jika kursor ada di sel A1, maka hasil yang diperoleh adalah sebagai berikut:

Gambar 3 Hasil Sub Procedur ContohUlang

Anda akan melihat nomor 2 sampai 6 di kolom C. Dalam sub procedure di atas variabel x mewakili jumlah baris dari range sel dan menggunakan “For… Next” pernyataan untuk pengulangan lima baris pertama.

 

 

 

 

 


 

Leave a Reply

Your email address will not be published. Required fields are marked *