Excel VBA Untuk Gelung Seterusnya
Gelung VBA Untuk Seterusnya adalah gelung yang digunakan di antara semua bahasa pengaturcaraan, dalam gelung ini terdapat kriteria selepas pernyataan yang mana kod tersebut akan bergelung dalam gelung sehingga kriteria tercapai dan ketika kriteria tersebut dicapai pernyataan berikutnya mengarahkan prosedur ke langkah seterusnya kod.
Gelung "Untuk Seterusnya" adalah salah satu gelung yang sering digunakan berbanding gelung lain dalam pengekodan VBA. Gelung akan membantu kita mengulangi jenis tugas yang sama untuk sel yang ditentukan sehingga keadaannya BENAR.
UNTUK LOOP gelung melalui jarak sel dan melakukan tugas tertentu sehingga keadaannya BENAR. Sebagai contoh, jika anda ingin melingkari 10 sel pertama dan memasukkan nombor siri yang bertambah dengan 1, anda boleh menggunakan gelung SELANJUTNYA.
Gelung ini memerlukan pemboleh ubah untuk menjalankan gelung. Dengan menggunakan pemboleh ubah ini, kita dapat merujuk sel secara dinamik.
Ia merangkumi tiga parameter.
Untuk Penyataan = Titik Permulaan Ke Titik Akhir (Lakukan Beberapa Tugas) Penyataan Seterusnya
Dari titik permulaan gelung akan bermula dan melakukan beberapa tugas setelah menyelesaikan tugas itu beralih ke gelung berikutnya dan sekali lagi melakukan tugas yang sama di sel yang berlainan. Seperti ini, sehingga sampai ke titik akhir, ia terus melakukan tugas yang ditentukan.
Bagaimana cara menggunakan VBA For Next Loop?
Andaikan anda mahu memasukkan nombor siri dari 1 hingga 10 hingga sel A1 hingga A10. Sudah tentu, kita boleh memasukkan seperti menulis sepuluh baris kod.
Kod:
Sub For_Next_Loop_Example1 () Julat ("A1"). Nilai = 1 Julat ("A2"). Nilai = 2 Julat ("A3"). Nilai = 3 Julat ("A4"). Nilai = 4 Julat ("A5") . Nilai = 5 Julat ("A6"). Nilai = 6 Julat ("A7"). Nilai = 7 Julat ("A8"). Nilai = 8 Julat ("A9"). Nilai = 9 Julat ("A10") .Nilai = 10 Sub Akhir
Tetapi bagaimana jika saya mahu memasukkan 100 nombor siri? Sudah tentu, saya tidak dapat menulis 100 baris kod hanya untuk memasukkan nombor siri. Di sinilah keindahan gelung "UNTUK SETERUSNYA" masuk ke dalam gambar. Ikuti langkah di bawah untuk meminimumkan kodnya.
Langkah 1: Pertama, kita perlu menentukan pemboleh ubah. Saya telah menyatakan nama pemboleh ubah yang disebut "Serial_Number" sebagai jenis data integer.
Kod:
Sub Untuk_Next_Loop_Example2 () Dim Serial_Number Sebagai Sub End Integer
Langkah 2: Sekarang saya memerintahkan untuk menggunakan gelung SELANJUTNYA, objektif kami adalah memasukkan nombor siri dari 1 hingga 10, jadi ini bermaksud gelung kami harus berjalan sepuluh kali. Jadi pernyataan FOR LOOP harus seperti ini.
Untuk Nombor Siri = 1 hingga 10
Nombor Siri Seterusnya
Kod:
Sub Untuk_Next_Loop_Example2 () Dim Serial_Number Sebagai Integer Untuk Serial_Number = 1 Hingga 10 Siri Akhir Nombor Akhir
Langkah 3: Kami telah menggunakan gelung. Sekarang setelah gelung digunakan, kita perlu menentukan apa yang harus kita lakukan di dalam gelung. Objektif kami di sini adalah memasukkan nombor siri dari 1 hingga 10. Oleh itu, tulis kodnya sebagai Sel (Nombor Siri, 1). Nilai = Nombor Siri.
Kod:
Sub Untuk_Next_Loop_Example2 () Dim Serial_Number Sebagai Integer Dim Serial_Number = 1 To 10 Cells (Serial_Number, 1). Value = Serial_Number Dim Serial_Number End Sub
Langkah 4: Sebab mengapa kami memberikan nombor siri di harta CELLS kerana kami tidak dapat menentukan nombor tegar untuk rujukan baris di sini. Setiap kali gelung berjalan, saya ingin memasukkan nombor siri baru di sel baru, bukan di sel yang sama.
Langkah 5: Jalankan kod baris demi baris dengan menekan kekunci F8.
Langkah 6: Letakkan kursor pada pemboleh ubah Serial_Number; ia menunjukkan nilai semasa Serial_Number.
Pada masa ini, nilai Serial_Number adalah sifar.
Langkah 7: Tekan sekali lagi kekunci F8, warna kuning akan beralih ke baris kod seterusnya di VBA. Sekarang letakkan kursor pada Nombor Siri.
Sekarang nilai Serial_Number sama dengan satu kerana sekarang gelung dimulakan dan gelung kita bermula dari 1, jadi nilai pemboleh ubah Serial_Number sama dengan satu.
Satu perkara yang lebih menarik di sini ialah di mana sahaja nombor Serial_Number ada, itu juga sama dengan 1.
Oleh itu, dalam harta sel, kami telah menyebut kodnya sebagai:
Sel (Nombor Siri, 1). Nilai = Nombor Siri
Ini bermaksud Sel (1, 1). Nilai = 1. (Sel (1,1) bermaksud Row1 & Column1.
Jadi pada baris nombor 1 dan lajur nombor 1, nilainya harus 1.
Langkah 8: Sekarang tekan F8 sekali lagi dan lihat apa yang berlaku di Row1 & Column1 iaitu sel A1.
Oleh itu, kami mendapat 1 sebagai nilai iaitu nilai Serial_Number.
Langkah 9: Sekarang tekan kekunci F8 sekali lagi. Biasanya kod seterusnya harus dijalankan iaitu, akhir pencawang. Tetapi di sini, ia akan kembali ke "garis di atas."
Langkah 10: Ingat gelung sudah menyelesaikan larian pertama. Sekarang kembali untuk kali kedua. Sekarang letakkan kursor pada pemboleh ubah Serial_Number dan lihat berapa nilainya.
Sekarang pembolehubah Serial_Number sama dengan 2 kerana gelung sudah kembali untuk kali kedua.
Sekarang, di mana sahaja Serial_Number berada, sama dengan nilai 2. Jadi kod baris:
Sel (Nombor Siri, 1). Nilai = Nombor Siri sama dengan:
Sel (2, 1). Nilai = 2. (Sel (2,1) bermaksud Row2 & Column1 iaitu sel A2).
Langkah 11: Jalankan kod ini dan lihat nilainya di sel A2.
Jadi, kami mendapat nilai nombor siri kedua.
Langkah 12: Sekarang tekan kekunci F8. Ia akan kembali ke baris di atas untuk mengulang kodnya. Nilai Serial_Number kali ini ialah 3.
Langkah 13: Jadi di mana sahaja Serial_Number berada, sama dengan 3.
Jadi kod baris: Sel (Nombor Siri, 1). Nilai = Nombor Siri sama dengan:
Sel (3, 1). Nilai = 3. (Sel (3,1) bermaksud Row3 & Column1 iaitu sel A3).
Langkah 14: Tekan F8 untuk melaksanakan garis yang diserlahkan dan melihat nilainya di sel A3.
Langkah 15: Sekarang terus tekan F8. Ia akan terus memasukkan nombor siri. Nilai momen pemboleh ubah Serial_Number adalah 10 ia akan berhenti melingkar dan keluar dari gelung.
