Gelung VBA Excel
Gelung biasanya digunakan dalam semua bahasa pengaturcaraan, di mana terdapat keperluan tertentu atau kriteria ketika kita memerlukan kod tertentu untuk menjalankan waktu tertentu kita menggunakan gelung untuk kod tersebut, sekarang ada banyak jenis gelung dalam VBA seperti Do sementara, Lakukan hingga, Untuk Gelung dan Untuk setiap gelung, gelung ini membantu kod untuk dilaksanakan sehingga keadaan dipenuhi.
Biar saya membuat pernyataan ini pada awalnya sendiri. "Sekiranya anda ingin menguasai VBA, anda perlu melengkapkan konsep konsep gelung dalam makro VBA."
Gelung tidak lain hanyalah melalui rangkaian sel, melalui pelbagai objek untuk mengulangi tugas yang sama untuk pengumpulan sel atau objek. Daripada melakukan tugas dalam sekumpulan baris kod yang terpisah dengan menggunakan gelung, kita dapat memendekkan panjang kod ke tahap yang paling mungkin.
Senarai 4 Jenis Gelung VBA Teratas
- Untuk Gelung Seterusnya
- Untuk Setiap Gelung
- Lakukan Semasa Gelung
- Lakukan Sehingga Gelung
Mari lihat setiap jenis ini secara terperinci.
Taip # 1 - Untuk Gelung Seterusnya
Untuk gelung Selanjutnya membolehkan kita melingkupi jarak sel dan melakukan tugas yang sama untuk setiap sel yang dinyatakan dalam gelung. Di sini kita perlu memberitahu nombor permulaan & nombor akhir.
Contohnya
Sebagai contoh, jika anda ingin memasukkan nombor siri dari 1 hingga 10, di bawah ini adalah cara tradisional untuk memasukkan nombor siri.
Sub-Nombor Bersiri ()
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
Nampak baik, bukan? Tetapi masalahnya di sini hanya 10 kali kita perlu melaksanakan tugas ini. Tetapi bayangkan bagaimana jika anda ingin memasukkan 100 atau 1000 nombor, bolehkah anda menulis kod 100 atau 1000 baris. Tidak mungkin, dan di situlah keindahan gelung For Next sangat berguna.
Langkah 1: Buka makro dan nyatakan pemboleh ubah i sebagai Integer.
Sub Masukkan_Serial_Number ()
Dim i Sebagai Integer
Sub Akhir
Langkah 2: Sekarang buka For Loop . Di sini sebutkan permulaan dan akhir gelung menggunakan pemboleh ubah i.
Langkah 3: Sekarang tulis kod yang ingin anda laksanakan. Kita perlu memasukkan nombor dari 1 hingga 10 di sel A1 hingga A10. Daripada menggunakan kaedah Range, gunakan kaedah Cells.
Ia meminta nombor baris kerana pada awalnya kita telah menyatakan pemboleh ubah i sebagai integer. Nilainya adalah 1. Oleh itu, sebutkan saya suka nombor baris anda dan 1 sebagai nombor lajur anda.
Sekarang nilai nilai sel semasa harus satu, bukannya menyebut nombor satu menyebutkan i sebagai nilai. Kerana setiap kali gelung berjalan, nilai saya akan meningkat sebanyak 1.
Sekarang tekan kekunci F8 untuk melangkah ke satu demi satu baris. Tekan F8 sehingga mencapai gelung For.
Warna kuning ini adalah petunjuk bahawa baris kod yang dipilih akan dijalankan. Letakkan kursor pada I, dan ia akan menunjukkan nilainya sebagai sifar.
Sekarang tekan kekunci F8 sekali lagi dan letakkan kursor pada i & sekarang nilainya adalah 1.
Jadi nilai i di mana-mana sekarang sama dengan 1. " Sel (I, 1). Nilai = I" bermaksud Sel (1, 1). Nilai = 1.
Tekan kekunci F8 dan lihat nilainya di sel A1. Anda mesti melihat 1 dalam sel A1.
Sekarang, jika anda menekan kekunci F8, ia akan kembali ke gelung For sekali lagi kerana had akhir pemboleh ubah i adalah 10. Kali ini nilai saya akan menjadi 2.
Untuk gelung Seterusnya akan berjalan selama 10 kali dan masukkan nombor siri dari 1 hingga 10.
Taip # 2 - Untuk Setiap Gelung
Untuk Setiap gelung dalam VBA adalah untuk mengulangi kumpulan objek. Untuk gelung gelung seterusnya melalui sel dan melaksanakan tugas, dan Untuk setiap gelung gelung melalui objek seperti Lembaran Kerja, Carta, Buku Kerja, Bentuk.
Dengan menggunakan gelung ini, kita dapat melalui semua lembaran kerja dan melaksanakan beberapa tugas. Contohnya, anda boleh melengkapkan semua lembaran kerja untuk menyembunyikan & menyembunyikan lembaran kerja.
Contoh # 1
Sekiranya anda ingin menyembunyikan semua lembaran kerja kecuali helaian yang sedang anda kerjakan, bagaimana anda melakukannya? Sekiranya anda mempunyai 20 helai buku kerja, ini adalah proses yang memakan masa. Tetapi dengan UNTUK SETIAP gelung, kita dapat melaksanakan tugas ini.
Saya mempunyai 5 helai, dan saya mahu menyembunyikan semua helaian kecuali helaian "Utama" di bawah kod akan melakukan tugas untuk saya.
Sub Ke_Hide_All_Sheet ()
Dim Ws Sebagai Lembaran Kerja
Untuk Setiap Ws Dalam Buku Aktif
Sekiranya Ws.Name "Utama" Kemudian
Ws.Visible = xlSheetVeryHidden
End If
Ws Seterusnya
Sub Akhir
Contoh # 2
Sekiranya anda ingin membongkar semua helaian tersembunyi, maka kod di bawah akan berfungsi untuk anda.
Sub Ke_UnHide_Specific_Sheet ()
Dim Ws Sebagai Lembaran Kerja
Untuk Setiap Ws Dalam Buku Aktif
Ws.Visible = xlSheetVisible
Ws Seterusnya
Sub Akhir
Jenis # 3 - Lakukan Semasa Gelung
Do While loop melakukan tugas sementara keadaan yang diberikan adalah BENAR, dan setelah keadaan menjadi PALSU, ia akan berhenti menggelung. Tidak seperti dua gelung lain, Do While menguji keadaan di hujung gelung, bukan pada awalnya.
Saya akan menunjukkan kepada anda contoh memasukkan nombor siri dengan gelung Do While.
Sub Do_Wile_Contoh ()
Dim i Sebagai Integer
i = 1
Lakukan Semasa saya <11
Sel (i, 1). Nilai = i
i = i + 1
Gelung
Sub Akhir
Gelung di atas akan berjalan sementara saya kurang dari 11 dan terus memasukkan nombor siri. Apabila saya menjadi lebih besar dari 11, ia akan berhenti bergelung.
Jenis # 4 - Lakukan Sehingga Gelung
Tidak seperti gelung Do While, gelung Do Sampai tidak berjalan semasa keadaannya BENAR; sebaliknya, gelung sehingga keadaan PALSU. Contohnya, lihat kod di bawah.
Sub Do_Until_Contoh ()
Dim i Sebagai Integer
i = 1
Do Hingga i = 11
Sel (i, 1). Nilai = i
i = i + 1
Gelung
Sub Akhir
Satu-satunya perbezaan antara gelung Do While & Do Sampai adalah operator yang kami tentukan. Dalam Do, Sementara kita menyebutkan menjalankan loop semasa i kurang dari (<), 11 tetapi dalam do hingga loop, kita menyebutkan untuk menjalankan loop sehingga i sama dengan (=) hingga 11.
Perkara yang Perlu Diingat
- Terdapat contoh gelung Excel VBA yang lebih maju, tetapi kami akan membahas masing-masing dalam artikel yang berasingan secara terperinci.
- Setiap gelung adalah untuk pemboleh ubah objek.
- Walaupun Do While & Do Sampai kelihatan sama menyebutkan keadaannya sangat penting.
- Gelung adalah konsep yang sangat penting.
