Do...Loop

Perintah Do...Loop digunakan untuk menguji suatu kondisi awa dari pengulangan. Sebenarnya fungsinya hampir sama saja dengan For...Next. Perintah Do...Loop ini akan berjalan sepanjang kondisi bernilai True dan akan berhenti ketika kondisi menjadi False. Pola perintah Do...Loop yang akan kita bahas adalah sbb:

• Do While...Loop
• Do Until...Loop
• Do...Loop While
• Do...Loop Until
  

1.Do While...Loop
Pola:

Do While[kondisi]
[statement]
Loop

Contoh aplikasinya:

Sub Test1()
i = 1
Do While i <= 10 Cells(i, 1) = i i = i + 1
Loop
End Sub

Perintah pengulangan akan terjadi terus selama pengulangan lebih kecil atau sama dengan 10 kali(Do While <=10). Perintah akan berhenti pada saat pengulangan sudah mencapai 10 kali. Hasil perintah ini adalah mengirim data angka 1 sampai 10 pada kolom A1 sampai A10.

2.Do Until...Loop
Pola:

Do Until[kondisi]
[statement]
Loop

Contoh aplikasinya:

Sub Test2()
i = 1
Do Until i = 11
Cells(i, 1) = i
i = i + 1
Loop
End Sub

Hasil perintah ini juga adalah mengirim data angka 1 sampai 10 pada kolom A1 sampai A10

3.Do...Loop While
Pola:

Do
[statement]
Loop While[kondisi]

Contoh aplikasinya:

Sub Test3()
i = 1
Do
Cells(i, 1) = i
i = i + 1
Loop While i < style="color: rgb(51, 51, 255);">
End Sub

Hasil perintah ini juga adalah mengirim data angka 1 sampai 10 pada kolom A1 sampai A10

4.Do...Loop Until
Pola:

Do
[statement]
Loop Until[kondisi]

Contoh aplikasinya:

Sub Test4()
i = 1
Do
Cells(i, 1) = i
i = i + 1
Loop Until i = 11
End Sub

Hasil perintah ini juga adalah mengirim data angka 1 sampai 10 pada kolom A1 sampai A10.