Apa Do Sampai Loop di VBA Excel?
Dalam VBA Do Sampai Loop , kita perlu mendefinisikan kriteria setelah pernyataan sampai yang berarti ketika kita ingin perulangan berhenti dan pernyataan akhir adalah perulangan itu sendiri. Jadi jika kondisinya FALSE, ia akan tetap mengeksekusi pernyataan di dalam loop tetapi jika kondisinya TRUE langsung, ia akan keluar dari pernyataan Do Hingga.
Seperti kata-kata itu sendiri yang mengatakan bahwa untuk melakukan beberapa tugas hingga kriteria tercapai, Lakukan hingga perulangan digunakan di hampir semua bahasa pemrograman, di VBA juga terkadang kami menggunakan Do hingga perulangan. Do Until Loop artinya melakukan sesuatu hingga kondisi menjadi BENAR. Ini seperti fungsi logika yang bekerja berdasarkan TRUE atau FALSE.
Ini kebalikan dari loop Do While di mana Do while menjalankan loop selama kondisinya BENAR.
Sintaksis
Do Sampai loop memiliki dua jenis sintaks.
Sintaks # 1
Lakukan Sampai [kondisi] [Lakukan Beberapa Tugas] Loop
Sintaks # 2
Lakukan [Lakukan Beberapa Tugas] Ulangi Sampai [kondisi]
Keduanya terlihat sangat mirip dan ada satu perbedaan sederhana yang ada.
Dalam sintaks pertama "Do Sampai", loop memeriksa kondisi terlebih dahulu dan mendapatkan hasil kondisi TRUE atau FALSE. Jika kondisinya SALAH, ia akan mengeksekusi kode dan melakukan tugas tertentu dan jika kondisinya BENAR maka ia akan keluar dari loop.
Pada sintaks kedua "Do" loop pertama akan menjalankan tugas cod kemudian menguji apakah kondisinya TRUE atau FALSE. Jika kondisinya SALAH maka akan kembali lagi dan melakukan tugas yang sama. Jika kondisinya BENAR maka ia akan langsung keluar dari loop.
Contoh
Saya tahu tidak mudah untuk memahami apa pun di bagian teori, tetapi tidak ada yang perlu dikhawatirkan. Kami akan memberi Anda contoh mudah untuk memahami loop. Lanjutkan membaca. Untuk memulai pembelajaran, mari kita lakukan tugas memasukkan 10 nomor seri pertama dari sel A1 hingga A10.
Anda dapat mengunduh Template VBA Do Hingga Excel ini di sini - VBA Do Hingga Template ExcelIkuti langkah-langkah di bawah ini untuk menerapkan loop "Lakukan Hingga".
Langkah 1: Buat nama makro terlebih dahulu untuk memulai subprocedure.
Kode:
Sub Do_Until_Example1 () End Sub
Langkah 2: Tentukan variabel sebagai "Long". Saya telah mendefinisikan "x" sebagai tipe data yang panjang.
Dim x Selama
Langkah 3: Sekarang masukkan kata "Lakukan Sampai".
Lakukan sampai
Langkah 4: Setelah memulai nama loop, masukkan kondisi sebagai "x = 11".
Lakukan Sampai x = 11
x = 11 adalah tes logis yang telah kami terapkan. Jadi baris ini mengatakan untuk menjalankan perulangan sampai x sama dengan 11.
Langkah 5: Terapkan properti CELLS dan mari masukkan nomor seri dari 1 hingga 10.
Sel (x, 1). Nilai = x
Catatan: Di sini kita telah menyebutkan "x" dimulai dari 1, jadi pada nilai x pertama sama dengan 1. Di mana "x" ada sama dengan 1.
Langkah 6: Sekarang tutup loop dengan memasukkan kata "LOOP".
Sub Do_Until_Example1 () Dim x Selama Hingga x = 11 Sel (x, 1) Nilai = x Loop
Akhiri Sub
Ok, kita selesai dengan bagian pengkodean, sekarang kita akan menguji kode baris demi baris untuk memahami loop dengan lebih baik.
Untuk menjalankan kode baris demi baris pertama tekan tombol F8.
Ini pertama-tama akan menyorot nama makro dengan warna kuning.
Jika Anda dapat melihat garis kuning, dikatakan bahwa itu tidak akan dieksekusi jika Anda menekan tombol F8 sekali lagi.
Sekarang tekan tombol F8 sekali lagi, garis kuning akan menuju ke Lakukan Sampai Loop.
Sekarang untuk memahami perulangan letakkan kursor pada variabel "x" dan lihat nilai variabel "x".
Jadi, x = 0. Karena baris yang disorot adalah baris pertama dalam loop sehingga nilai "x" adalah nol, jadi tekan tombol F8 sekali lagi dan lihat nilai "x". Sebelum keluar, kode berjalan dan menetapkan nilai ke "x" sebagai 1.
Sekarang mulai lagi menjalankan loop dengan menekan tombol F8. Lihat nilai "x".
Sekarang nilai "x" ditampilkan sebagai 1. Untuk memiliki nilai tambahan ke variabel "x" kita perlu menetapkan kembali nilai variabel "x" sebagai x = x + 1 di dalam loop.
Sekarang tekan tombol F8 sekali lagi dan kita akan mendapatkan nilai 1 di sel A1.
Sekarang tekan tombol F8 sekali lagi dan lihat berapa nilai "x".
Nilai variabel "x" sekarang adalah 2. Jadi kondisi kita mengatakan untuk menjalankan loop sampai kondisi menjadi TRUE, maka loop kita terus berjalan sampai nilai “x” menjadi 11.
Tekan F8 sekali lagi itu akan melompat kembali ke garis loop "Lakukan Sampai".
Tekan tombol F8 dua kali lagi, kita akan mendapatkan nilai 2 di sel A2.
Tekan tombol F8 lagi dan nilai "x" menjadi 3 sekarang.
Tekan lagi tombol F8 itu akan melompat kembali ke loop sekali lagi.
Seperti ini, loop ini akan terus menjalankan tugas sampai nilai “x” menjadi 11. Sekarang saya telah mengeksekusi loop hingga nilai “x” menjadi 11.
Sekarang jika saya menekan F8 itu masih akan kembali ke loop.
Tetapi jika saya menekan tombol F8 sekarang akan keluar dari loop karena kondisi yang diterapkan menjadi "TRUE" yaitu x = 11.
Jadi kami memiliki nomor seri dari 1 hingga 10 di lembar excel sekarang.
Jadi, ini adalah ide dasar dari loop "Lakukan Sampai". Untuk memahami loop apa pun, Anda perlu menjalankan kode baris demi baris hingga Anda mendapatkan pengetahuan penuh tentang loop.
