Pengulangan : Do Until

Pengulangan Do Until ini kurang lebih sama seperti pengulangan sebelumnya yaitu do while.

VBA (Visual Basic for Applications) menyediakan beberapa jenis perulangan, termasuk do until loop, yang memungkinkan program untuk menjalankan blok kode berulang kali sampai kondisi tertentu tidak terpenuhi.

Do Until Loop pada VBA

Do Until loop pada VBA adalah salah satu jenis perulangan yang memungkinkan program untuk menjalankan blok kode berulang kali sampai kondisi tertentu tidak terpenuhi.

Sintaks dasar dari do until loop adalah sebagai berikut:

Do Until kondisi
    ' kode yang akan diulang
Loop

atau

Do 
    ' kode yang akan diulang
Loop Until kondisi

Perbedaanya sudah saya jelaskan di materi do While loop.

Di sini, kondisi adalah suatu kondisi boolean yang akan dievaluasi sebelum menjalankan blok kode yang ditandai dengan pernyataan ‘kode yang akan diulang’.

Jika kondisi tersebut bernilai salah, maka blok kode akan dijalankan.

Setelah blok kode dijalankan, program akan kembali ke pernyataan ‘Do’ dan mengevaluasi kondisi lagi.

Jika kondisi masih bernilai salah, maka blok kode akan dijalankan lagi. Proses ini akan terus berlanjut sampai kondisi bernilai benar.

Jika kondisi benar setelah itu program akan keluar dari loop dan melanjutkan eksekusi kode dibawahnya.

Contoh Penggunaan Do Until pada VBA

Berikut adalah contoh sederhana penggunaan do until pada VBA:

Sub DoUntilExample()
    Dim i As Integer
    i = 1
    
    Do Until i > 5
        MsgBox i
        i = i + 1
    Loop
End Sub

Dalam contoh ini, program akan menampilkan pesan dialog dengan nilai variabel i pada setiap iterasi loop, yang akan berjalan selama i kurang dari atau sama dengan 5.

Ketika i mencapai nilai 6, kondisi tidak lagi memenuhi syarat dan loop akan berhenti.

Perhatikan bahwa nilai variabel i ditingkatkan dengan 1 pada setiap iterasi loop.

Tanpa peningkatan nilai ini, loop akan menjadi loop tak terbatas, karena kondisi akan selalu bernilai salah.

Leave a Reply

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

Chat WhatsApp
WhatsApp