Pengulangan : For Next

Seperti pada judulnya, pengulangan adalah sebuah fungsi yang berfungsi untuk mengulang script.

Misalnya dalam VBA ingin menghasilkan sebuah text “saya makan” sebanyak 5 kali, maka tidak mungkin jika script “saya makan” ditulis sebanyak 5 kali juga.

Karena ini adalah bahasa pemrograman tentu ada langkah yang lebih mudah dari menulis “saya makan” sebanyak 5 kali

Msgbox "saya makan"
Msgbox "saya makan"
Msgbox "saya makan"
Msgbox "saya makan"
Msgbox "saya makan"

Karena itu lah fungsi pengulangan disini dibutuhkan.

Pengulangan For Next pada VBA (Visual Basic for Applications) adalah salah satu jenis perulangan yang digunakan untuk menjalankan sebuah blok kode sebanyak jumlah tertentu.

For Next sangat berguna dalam membuat makro atau program VBA karena memungkinkan program untuk mengulang sebuah blok kode dengan mudah.

Pengulangan For Next digunakan ketika akan melakukan pengulangan dengan kondisi yang jelas dari mulai berapa sampai berapa.

Sintaks dasar dari For Next pada VBA adalah sebagai berikut:

For counter = start To end [Step stepValue]
    ' kode yang akan diulang
    [Exit For]
Next [counter]

Di sini, counter adalah variabel yang digunakan untuk menghitung jumlah perulangan,

start dan end adalah nilai awal dan akhir dari perulangan, dan stepValue ini sifatnya optional adalah jumlah yang ditambahkan atau dikurangkan pada setiap iterasi perulangan.

Exit For ini juga optional jika dalam program membutuhkan aksi keluar dari pengulangan dengan segera.

Terkahir Next counter digunakan untuk menandai akhir dari blok kode yang diulang dan menaikkan nilai variabel counter.

Contoh penggunaan For Next pada VBA adalah sebagai berikut:

Sub ForNextExample()
    Dim i As Integer
    
    For i = 1 To 5 
        MsgBox "saya makan"
    Next i
End Sub

Dalam contoh ini, program akan menjalankan blok kode yang ditandai dengan pernyataan MsgBox “saya makan” sebanyak lima kali, dimulai dari 1 dan diakhiri dengan 5 dengan kenaikan sebesar 1 pada setiap iterasi perulangan.

Hasilnya adalah program akan menampilkan pesan dialog dengan nilai “saya makan” sebanyak 5 kali

Selain itu, For Next pada VBA juga dapat digunakan untuk mengulang blok kode dengan nilai variabel mundur

Berikut ini adalah contoh penggunaan For Next pada VBA dengan variabel step yang berbeda:

Sub ForNextVariableExample()
    Dim Nilai As Integer
    
    For Nilai = 5 To 1 Step -1
       MsgBox "saya makan " & Nilai
    Next Nilai
End Sub

Dalam contoh ini, step -1 artinya setiap loncatanya dikurangi 1, hasilnya akan menjadi 5,4,3,2,1 dst.

Step ini bisa minus dan plus dan bisa berapa saja nilainya. Misalnya, jika Step 2 dan nilai dimulai dari 1 maka, hasilnya nilai akan menjadi 1 kemudian 3 loncat ke 5 lalu 7 dan seterusnya.

Agar lebih memahami dibawah ini adalah beberapa contoh kasus yang menggunakan pengulangan For Next.

Contoh Kasus Loop For

  • Isikan sebuah nomor urut dari 1 hingga 10 di Kolom A dengan menggunakan For-Next

Jawaban :

Sub BuatNomor()
Dim I As Integer

For I = 1 To 10
    Sheet3.Cells(I + 1, 1) = I
Next I
End Sub

Contoh Kasus Loop For 2

  • Setelah selesai dengan kasus 1, selanjutnya warnai Nama yang ada di No 1, 3 , 5 dan seterusnya

Jawaban

Sub BuatWarna()
Dim I As Integer

For I = 1 To 10 Step 2
    Sheet3.Cells(I + 1, 2).Interior.Color = &HECC9A6
Next I
End Sub
List Tutorial
Apa yang sedang kamu cari?

Temukan beberapa kata kunci yang diinginkan.

Search