Daftar Isi:
- Contoh For-Next
- Anda dapat menggunakan nilai Langkah untuk melewatkan beberapa nilai balasan dalam loop For-Next. Berikut adalah contoh sebelumnya, ditulis ulang untuk jumlah hanya angka ganjil antara 1 dan 1 000:
- A For-Next loop juga bisa mencakup satu atau lebih Exit For statements dalam loop. Ketika VBA menemukan pernyataan ini, loop akan berakhir dengan segera.
- Anda dapat memiliki sejumlah pernyataan dalam loop dan sarang For-Next loop di dalam loop For-Next lainnya.
Video: Automation using do while loop Excel 2024
Jenis loop paling sederhana dalam pemrograman VBA Excel adalah loop For-Next. Perulangan dikendalikan oleh variabel counter, yang dimulai pada satu nilai dan berhenti pada nilai lain. Pernyataan antara pernyataan For dan pernyataan Next adalah pernyataan yang berulang dalam loop.
Contoh For-Next
Contoh berikut menggunakan loop For-Next untuk menjumlahkan 1.000 angka pertama yang positif. Variabel Total dimulai sebagai nol. Kemudian perulangan terjadi. Variabel Cnt adalah penghitung loop. Ini dimulai sebagai 1 dan bertambah dengan 1 setiap kali melalui loop. Lingkaran berakhir saat Cnt adalah 1, 000.
Contoh ini hanya memiliki satu pernyataan di dalam loop. Pernyataan ini menambahkan nilai Cnt ke variabel Total. Saat loop selesai, MsgBox menampilkan jumlah angka.
Sub AddNumbers () Dim Total Sebagai Double Dim Cnt As Long Total = 0 Untuk Cnt = 1 To 1000 Total = Total + Cnt Next Cnt MsgBox Total End Sub
Karena penghitung loop adalah variabel normal, Anda dapat menulis kode untuk mengubah nilainya di dalam blok kode antara For dan the Next statements. Ini, bagaimanapun, adalah praktik yang sangat buruk .
Anda dapat menggunakan nilai Langkah untuk melewatkan beberapa nilai balasan dalam loop For-Next. Berikut adalah contoh sebelumnya, ditulis ulang untuk jumlah hanya angka ganjil antara 1 dan 1 000:
Sub AddOddNumbers () Dim Total Sebagai Double Dim Cnt As Long Total = 0 Untuk Cnt = 1 sampai 1000 Langkah 2 Total = Total + Cnt Selanjutnya Cnt MsgBox Total End Sub
Kali ini, Cnt dimulai sebagai 1 dan kemudian mengambil nilai 3, 5, 7, dan seterusnya. Nilai Langkah menentukan bagaimana penghitung bertambah. Perhatikan bahwa nilai loop atas (1000) tidak benar-benar digunakan karena nilai Cnt tertinggi adalah 999.
Sub ShadeEveryThirdRow) Dim i As Long Untuk i = 1 sampai 100 Langkah 3 Baris (i). Pedalaman. Warna = RGB (200, 200, 200) Selanjutnya i End Sub
Cek hasil menjalankan makro ini.
Menggunakan loop untuk menerapkan bayangan latar ke baris.
A For-Next loop juga bisa mencakup satu atau lebih Exit For statements dalam loop. Ketika VBA menemukan pernyataan ini, loop akan berakhir dengan segera.
Contoh berikut menunjukkan pernyataan Exit For. Rutin ini adalah prosedur Fungsi, yang dimaksudkan untuk digunakan dalam formula lembar kerja.Fungsi menerima satu argumen (variabel bernama Str) dan mengembalikan karakter ke kiri digit angka pertama. Misalnya, jika argumennya adalah "KBR98Z," fungsinya mengembalikan "KBR. "
Function TextPart (Str) Dim i As Long TextPart =" "Untuk i = 1 Untuk Len (Str) Jika IsNumerik (Mid (Str, i, 1)) Kemudian Keluar Untuk Else TextPart = TextPart & Mid (Str, i, 1) End If Next i End Function
Lingkaran For-Next dimulai dengan 1 dan diakhiri dengan nomor yang mewakili jumlah karakter dalam string. Kode menggunakan fungsi Midba VBA untuk mengekstrak satu karakter dalam lingkaran. Jika karakter numerik ditemukan, pernyataan Exit For akan dieksekusi, dan loop berakhir sebelum waktunya.
Jika karakter tidak numerik, itu ditambahkan ke nilai yang dikembalikan (yang sama dengan nama fungsi). Satu-satunya saat loop akan memeriksa setiap karakter adalah jika string dilewatkan saat argumen tidak mengandung karakter numerik.
Contoh bersarang For-Next
Anda dapat memiliki sejumlah pernyataan dalam loop dan sarang For-Next loop di dalam loop For-Next lainnya.
Contoh berikut menggunakan loop For-Next bersarang untuk memasukkan nomor acak ke dalam kisaran sel 12 baris demi baris. Perhatikan bahwa rutinitas mengeksekusi lingkaran batin
Menggunakan loop untuk membuat pola kotak-kotak. Sub MakeCheckerboard () Dim R As Long, C As Long Untuk R = 1 sampai 8 Jika Lembar KerjaFungsi. IsOdd (R) Kemudian Untuk C = 2 sampai 8 Langkah 2 Sel (R, C). Pedalaman. Warna = 255 Selanjutnya C Else Untuk C = 1 sampai 8 Langkah 2 Sel (R, C). Pedalaman. Color = 255 Next C End If Next R Rows ("1: 8").RowHeight = 35 Kolom ("A: H"). ColumnWidth = 6. 5 End Sub
Berikut adalah contoh terakhir yang menggunakan loop For-Next bersarang, dengan nilai Langkah. Prosedur ini menciptakan papan catur dengan mengubah warna latar belakang sel bolak-balik.
Penghitung baris dari 1 sampai 8. Suatu konstruksi If-Then menentukan struktur For-Next yang bersarang untuk digunakan. Untuk baris bernomor ganjil, penghitung Kol dimulai dengan 2. Untuk baris bernomor genat, penghitung Kol dimulai dengan 1. Kedua loop menggunakan nilai Langkah 2, jadi sel alternatif akan terpengaruh. Dua pernyataan tambahan membuat sel persegi (seperti kotak-kotak nyata).
