Pengertian looping dan penggunannya di Excel

Pengertian looping dan penggunannya di Excel

Pengertian looping dan penggunannya di Excel

Pengertian looping dan penggunannya di Excel, Looping adalah salah satu teknik pemrograman yang paling kuat. Sebuah loop di Excel VBA memungkinkan Anda melakukan loop melalui berbagai sel hanya dengan beberapa baris kode.

Loop Tunggal

Anda dapat menggunakan satu loop untuk melakukan loop melalui rentang sel satu dimensi.

Tempatkan tombol perintah pada lembar kerja Anda dan tambahkan baris kode berikut:

Dim i As Integer

For i = 1 To 6
Cells (i, 1). Value = 100
Next i

Hasil ketika Anda mengklik tombol perintah di lembar:

Loop Tunggal di Excel VBA

Penjelasan: Baris kode antara For dan Next akan dieksekusi enam kali. Untuk i = 1, Excel VBA memasukkan nilai 100 ke dalam sel di persimpangan baris 1 dan kolom 1. Ketika Excel VBA mencapai Next i, itu meningkatkan i dengan 1 dan melompat kembali ke pernyataan For. Untuk i = 2, Excel VBA memasukkan nilai 100 ke dalam sel di persimpangan baris 2 dan kolom 1, dll.

Catatan: merupakan praktik yang baik untuk selalu membuat indentasi (tab) kode di antara kata Untuk dan Berikutnya. Ini membuat kode Anda lebih mudah dibaca.

Loop Ganda

Anda dapat menggunakan loop ganda untuk melakukan loop melalui rentang sel dua dimensi.

Tempatkan tombol perintah pada lembar kerja Anda dan tambahkan baris kode berikut:

Dim i As Integer, j As Integer
For i = 1 To 6
For j = 1 To 2
Cells(i, j).Value = 100
Next j
Next i

Hasil ketika Anda mengklik tombol perintah di lembar:

Loop Ganda di Excel VBA

Penjelasan: Untuk i = 1 dan j = 1, Excel VBA memasukkan nilai 100 ke dalam sel di persimpangan baris 1 dan kolom 1. Ketika Excel VBA mencapai Berikutnya j, ia meningkatkan j dengan 1 dan melompat kembali ke pernyataan For j . Untuk i = 1 dan j = 2, Excel VBA memasukkan nilai 100 ke dalam sel di persimpangan baris 1 dan kolom 2. Selanjutnya, Excel VBA mengabaikan Next j karena j hanya berjalan dari 1 hingga 2. Saat Excel VBA mencapai Next i , ini meningkatkan i dengan 1 dan melompat kembali ke pernyataan For i. Untuk i = 2 dan j = 1, Excel VBA memasukkan nilai 100 ke dalam sel di persimpangan baris 2 dan kolom 1, dll.

Putaran Tiga

Anda dapat menggunakan triple loop untuk melakukan loop melalui rentang dua dimensi pada beberapa lembar kerja Excel.

Tempatkan tombol perintah pada lembar kerja Anda dan tambahkan baris kode berikut:

Dim c As Integer , i As Integer , j As Integer

For c = 1 To 3
For i = 1 To 6
For j = 1 To 2
Worksheets (c). Cell (i, j). Value = 100
Next j
Next i
Next c

Penjelasan: Satu-satunya perubahan yang dibuat dibandingkan dengan kode untuk loop ganda adalah kita telah menambahkan satu loop lagi dan menambahkan Lembar Kerja (c). di depan Sel untuk mendapatkan rentang dua dimensi pada lembar pertama untuk c = 1, lembar kedua untuk c = 2 dan lembar ketiga untuk c = 3. Unduh file Excel untuk melihat hasil ini.

Do While Loop

Selain loop For Next, ada loop lain di Excel VBA. Misalnya, Do While Loop. Kode ditempatkan antara Do While dan Loop akan diulang selama bagian setelah Do While benar.

1. Tempatkan tombol perintah pada lembar kerja Anda dan tambahkan baris kode berikut:

Dim i As Integer
i = 1

Do While i <6
Cells (i, 1]. Nilai = 20
i = i + 1
Loop

Hasil ketika Anda mengklik tombol perintah di lembar:

Do While Loop

Penjelasan: selama i lebih rendah dari 6, Excel VBA memasukkan nilai 20 ke dalam sel di persimpangan baris i dan kolom 1 dan menambah i sebesar 1. Di Excel VBA (dan dalam bahasa pemrograman lain), simbol ‘= ‘berarti menjadi.¬†Itu tidak berarti setara.¬†Jadi i = i + 1 berarti i menjadi i + 1. Dengan kata lain: ambil nilai sekarang dari i dan tambahkan 1 padanya.¬†Misalnya, jika i = 1, i menjadi 1 + 1 = 2. Hasilnya, nilai 20 akan ditempatkan ke dalam kolom A sebanyak lima kali (bukan enam karena Excel VBA berhenti ketika i sama dengan 6).

2. Masukkan beberapa angka di kolom A.

Berapapun Jumlah Baris

3. Tempatkan tombol perintah pada lembar kerja Anda dan tambahkan baris kode berikut:

Dim i As Integer
i = 1

Do¬†While¬†Cells (i, 1) .Value <> “”
Cells (i, 2) .Value = Cells (i, 1). Value + 10
i = i + 1
Loop

Hasil ketika Anda mengklik tombol perintah di lembar:

Loop Do While Lanjutan

Penjelasan: asalkan Cells (i, 1). Value tidak kosong (<> berarti tidak sama dengan), Excel VBA memasukkan nilai ke dalam sel di persimpangan baris i dan kolom 2, yaitu 10 lebih tinggi dari nilainya di sel di persimpangan baris i dan kolom 1. Excel VBA berhenti ketika i sama dengan 7 karena Sel (7, 1). Nilainya kosong. Ini adalah cara yang bagus untuk mengulang sejumlah baris pada lembar kerja.

 

Tinggalkan Komentar

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Need Help? Chat with us