Excel VBA Untuk Loop Berikutnya
VBA For Next loop adalah loop yang digunakan di antara semua bahasa pemrograman, dalam loop ini ada kriteria setelah pernyataan for yang kode loop dalam loop sampai kriteria tercapai dan ketika kriteria tercapai, pernyataan selanjutnya mengarahkan prosedur ke langkah kode berikutnya.
Loop “For Next” adalah salah satu loop yang paling sering digunakan dibandingkan loop lain dalam pengkodean VBA. Perulangan akan membantu kita mengulangi jenis tugas yang sama untuk sel yang ditentukan hingga kondisinya BENAR.
FOR LOOP melakukan loop melalui rentang sel dan melakukan tugas tertentu hingga kondisinya BENAR. Misalnya, jika Anda ingin mengulang 10 sel pertama dan memasukkan nomor seri yang ditambah 1, Anda dapat menggunakan FOR NEXT.
Perulangan ini membutuhkan variabel untuk menjalankan perulangan. Dengan menggunakan variabel ini, kita dapat mereferensikan sel secara dinamis.
Ini mencakup tiga parameter.
Untuk Pernyataan = Titik Awal Ke Titik Akhir (Lakukan Beberapa Tugas) Pernyataan Berikutnya
Dari titik awal, loop akan mulai dan melakukan beberapa tugas setelah menyelesaikan tugas, pindah ke loop berikutnya dan sekali lagi melakukan tugas yang sama di sel yang berbeda. Seperti ini, hingga mencapai titik akhir, ia terus melakukan tugas yang ditentukan.
Bagaimana cara menggunakan VBA untuk Loop Berikutnya?
Asumsikan Anda ingin memasukkan nomor seri dari 1 hingga 10 hingga A1 hingga sel A10. Tentu saja, kita dapat menyisipkan seperti menulis sepuluh baris kode.
Kode:
Sub For_Next_Loop_Example1 () Range ("A1"). Nilai = 1 Range ("A2"). Nilai = 2 Range ("A3"). Nilai = 3 Range ("A4"). Nilai = 4 Range ("A5") .Nilai = 5 Rentang ("A6"). Nilai = 6 Rentang ("A7"). Nilai = 7 Rentang ("A8"). Nilai = 8 Rentang ("A9"). Nilai = 9 Rentang ("A10") Nilai = 10 Akhir Sub
Tetapi bagaimana jika saya ingin memasukkan 100 nomor seri? Tentu saja, saya tidak dapat menulis 100 baris kode hanya untuk memasukkan nomor seri. Di sinilah keindahan dari loop “FOR NEXT” terlihat . Ikuti langkah-langkah di bawah ini untuk meminimalkan kode.
Langkah 1: Pertama, kita perlu mendefinisikan variabel. Saya telah mendeklarasikan nama variabel yang disebut "Serial_Number" sebagai tipe data integer.
Kode:
Sub For_Next_Loop_Example2 () Redupkan Serial_Number Sebagai Integer End Sub
Langkah 2: Sekarang saya memesan untuk menerapkan loop BERIKUTNYA, tujuan kami adalah memasukkan nomor seri dari 1 hingga 10, jadi ini berarti loop kami harus dijalankan selama sepuluh kali. Jadi pernyataan FOR LOOP harus seperti ini.
Untuk Serial_Number = 1 sampai 10
Serial_Number Berikutnya
Kode:
Sub For_Next_Loop_Example2 () Dim Serial_Number As Integer For Serial_Number = 1 To 10 Next Serial_Number End Sub
Langkah 3: Kami telah menerapkan loop. Sekarang setelah loop diterapkan, kita perlu menentukan apa yang harus kita lakukan di dalam loop. Tujuan kita di sini adalah untuk memasukkan nomor seri dari 1 sampai 10. Jadi tulis kode sebagai Cells (Serial_Number, 1) .Value = Serial_Number.
Kode:
Sub For_Next_Loop_Example2 () Redup Serial_Number As Integer Redup Serial_Number = 1 Sampai 10 Cells (Serial_Number, 1) .Value = Serial_Number Redup Serial_Number End Sub
Langkah 4: Alasan mengapa kami memberikan Serial_Number di properti CELLS karena kami tidak dapat menentukan nomor hardcore untuk referensi baris di sini. Setiap kali loop berjalan, saya ingin memasukkan nomor seri baru di sel baru, bukan di sel yang sama.
Langkah 5: Jalankan kode baris demi baris dengan menekan tombol F8.
Langkah 6: Tempatkan kursor pada variabel Serial_Number; ini menunjukkan nilai Serial_Number saat ini.
Pada saat ini, nilai Serial_Number adalah nol.
Langkah 7: Tekan sekali lagi tombol F8, warna kuning akan berpindah ke baris kode berikutnya di VBA. Sekarang tempatkan kursor pada Serial_Number.
Sekarang nilai Serial_Number sama dengan satu karena sekarang loop dimulai dan loop kita mulai dari 1, jadi nilai serial_Number variabel sama dengan satu.
Satu hal lagi yang menarik disini adalah dimana variabel Serial_Number berada disana, itu juga sama dengan 1.
Jadi di properti sel, kami telah menyebutkan kode sebagai:
Sel (Serial_Number, 1) .Value = Serial_Number
Ini berarti Sel (1, 1). Nilai = 1. (Sel (1,1) berarti Baris1 & Kolom1.
Jadi di baris nomor 1 dan kolom nomor 1, nilainya harus 1.
Langkah 8: Sekarang tekan F8 sekali lagi dan lihat apa yang terjadi di Row1 & Column1 yaitu, sel A1.
Jadi kita mendapat 1 sebagai nilai yaitu nilai Serial_Number.
Langkah 9: Sekarang tekan tombol F8 sekali lagi. Biasanya kode berikutnya harus dijalankan, yaitu akhir substatement. Tapi di sini, ini akan kembali ke "baris di atas".
Langkah 10: Ingat loop sudah menyelesaikan proses pertama. Sekarang kembali untuk kedua kalinya. Sekarang tempatkan kursor pada variabel Serial_Number dan lihat apa nilainya.
Sekarang variabel Serial_Number sama dengan 2 karena loop sudah kembali untuk kedua kalinya.
Nah, dimanapun Serial_Number berada, nilainya sama dengan 2. Jadi kode barisnya:
Sel (Serial_Number, 1) .Value = Serial_Number sama dengan:
Sel (2, 1). Nilai = 2. (Sel (2,1) berarti Baris2 & Kolom1 yaitu sel A2).
Langkah 11: Jalankan kode ini dan lihat nilainya di sel A2.
Jadi, kami mendapat nilai nomor seri kedua.
Langkah 12: Sekarang tekan tombol F8. Ini akan kembali ke baris di atas untuk mengulangi kode. Kali ini nilai Serial_Number akan menjadi 3.
Langkah 13: Jadi, di mana pun Serial_Number, ada yang sama dengan 3.
Jadi kode barisnya: Cells (Serial_Number, 1) .Value = Serial_Number sama dengan:
Sel (3, 1). Nilai = 3. (Sel (3,1) berarti Baris3 & Kolom1 yaitu sel A3).
Langkah 14: Tekan F8 untuk mengeksekusi baris yang disorot dan lihat nilainya di sel A3.
Langkah 15: Sekarang terus tekan F8. Ini akan terus memasukkan nomor seri. Nilai momen dari variabel Serial_Number adalah 10 itu akan menghentikan perulangan dan keluar dari perulangan.
