Excel VBA: Prosedur gelung diterangkan.

Excel VBA Loops

Gelung adalah salah satu alat pengaturcaraan yang paling asas dan kuat dalam VBA, dan digunakan di kebanyakan bahasa pengaturcaraan. Gelung digunakan untuk mengulangi blok kod seberapa banyak kali yang diperlukan, sehingga keadaan tertentu tetap benar atau titik tertentu (atau nilai) tercapai, setelah itu bagian berikutnya kod yang akan dilaksanakan. Gelung membolehkan anda menulis beberapa baris kod mudah dan mencapai output jauh lebih penting, hanya dengan pengulangan.

• Untuk Loop
  • Untuk ... Pernyataan Seterusnya
  • Untuk Setiap ... Kenyataan Seterusnya
• Lakukan Semasa Gelung
  • Lakukan Semasa ... Penyataan Gelung
  • Lakukan ... Loop While Penyataan
• Lakukan Sehingga Gelung
  • Melakukan ... Kenyataan Gelung
  • Adakah ... Gelung Sampai Pernyataan

Terdapat tiga jenis VBA Loops (dibahagikan kepada 6 gelung seperti di bawah):

Untuk Loop

Untuk ... Pernyataan Seterusnya

mengulangi blok kod nombor tertentu kali.

contoh berikut akan menunjukkan MsgBox selama 5 kali, dan memaparkan nombor tersebut.

 Sub F_Next_loop () Dim i Sebagai Integer Untuk i = 1 hingga 5 MsgBox i Berikut i Akhir Sub 

Untuk Setiap ... Kenyataan Seterusnya

The For Each ... Gelung Berikutnya mengulangi satu blok kod bagi setiap objek dalam satu kumpulan. Ia mengulangi pelaksanaan blok kod, untuk setiap elemen koleksi. Gelung berhenti apabila semua elemen dalam koleksi telah dilindungi, dan pelaksanaan bergerak ke seksyen kod dengan serta-merta berikutan pernyataan seterusnya.

 Sub F_each_loop () Dim Cell Sebagai Range Untuk Setiap Sel Dalam ActiveSheet.Range ("A1: A10") Cell.Interior.Color = RGB (160, 251, 142) 

 Pernyataan Exit Untuk segera menghentikan pelaksanaan gelung yang sedia ada dan melaksanakan seksyen kod dengan serta-merta berikutan kenyataan Seterusnya, 

Lakukan Semasa Gelung

mengulangi blok kod tanpa batas sementara kondisi tertentu terus dipenuhi dan dinilai untuk Benar, dan berhenti ketika kondisi berubah Palsu. Keadaan ini boleh diuji sama ada pada permulaan atau pada akhir Loop.

Lakukan Semasa ... Penyataan Gelung

menguji keadaan pada permulaan,

 Sub do_While () Dim i As Integer i = 1 Do While Cells (i, 1) .Value "" MsgBox ii = i + 1 Loop MsgBox i End Sub 

Lakukan ... Loop While Penyataan

menguji keadaan pada akhir Loop

 Sub do_While () Dim i Sebagai Integer i = 1 Do MsgBox ii = i + 1 Loop While Cells (i, 1) .Value "" MsgBox i End Sub 

 Pernyataan Exit Do akan segera menghentikan pelaksanaan gelung yang sedia ada dan melaksanakan bahagian kod dengan serta-merta berikutan penyata Berikutnya, 

Lakukan Sehingga Gelung

mengulangi satu blok kod tanpa batas sehingga kondisi dipenuhi dan mengevaluasi ke Benar. Keadaan ini boleh diuji sama ada pada permulaan atau pada akhir Loop

Melakukan ... Kenyataan Gelung

menguji keadaan pada permulaan,

 Sub do_Until () Dim i As Integer i = 1 Do Until Not IsEmpty (Sel (i, 1)) Sel (i, 1) .Interior.Color = RGB (255, 0, 0) i = i + 

Adakah ... Gelung Sampai Pernyataan

menguji keadaan pada akhir Loop.

 Sub do_Until () Dim i As Integer i = 1 Do Cells (i, 1) .Interior.Color = RGB (255, 0, 0) i = i + 1 Loop Until NotEmpty (Cells (i,