Perulangan Dalam Macro Excel VBA

Perulangan Dalam Macro Excel VBA

Perulangan Dalam Macro Excel VBA adalah salah satu teknik pemrograman yang sering digunakan. Sebuah loop di Excel VBA memungkinkan Anda untuk mengulang perintah melalui range sel dengan hanya beberapa kode garis.

Perulangan Tunggal

Anda dapat menggunakan satu loop untuk mengisi melalui beberapa sel sekaligus. Tambahkan sebuah tombol pada Sheet baru,dan klik kanan tombol lalu pilih View Code dan tambahkan baris kode berikut:

Private Sub CommandButton1_Click()

Dim i As Integer

For i = 1 To 6

Cells(i, 1).Value = 100

Next i

End Sub

Penjelasan:

baris kode akan mengeksekusi sebanyak 6 kali, dimana pada posisi i=1 maka akan mengisi baris1 kolom 1, demikan seterusnya sampai baris ke 6, sampai dengan 6 baris kolom akan terisi data

Looping Ganda

Anda dapat menggunakan double loop untuk melakukan perulangan pada dua dimensi sel.

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) = 100

Next j

Next i

Hasilnya :

Penjelasan:

disini (i) dimaksudkan sebagai baris dan( j )sebagai kolom, nah saat nilai i=1 dan j=1 maka rogram akan mengisi sel 1dan 2 bersamaan samapai enam kali eksekusi

Three Loop

Anda dapat menggunakan three loop untuk melakukan eksekusi program pada beberapa sheets sekaligus, ganti kode sebelumnya dan ketik kode seperti di bawah ini :

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).Cells(i, j).Value = 100

Next j

Next i

Next c

Penjelasan : (c ) disini di maksudkan sebagai nomor sheets dan (i) sebagai baris dan (j) nilai kolomnya, jadi pada saat tombol di klik, maka saat c=1 program akan mengeksekusi sheets1 dan mengisi data di kolom 1 dan 2 sebanyak 6x berikutnya ke sheets 2 dan 3 melakukan pengisian data dikolom 1 dan 2 sebanyak 6 kali sampai batas c=3, berarti sampai sheets3

Baca Juga  MACRO VBA EXCEL

Do While Loop

Bentuk lain dari perulangan adalah do while loop, yang mempunyai fungsi hampir sama, untuk mengetahui cara kerjanya ganti code di commandbutton1 menjadi seperti di bawah ini :

Dim i As Integer

i = 1

Do While i < 6

Cells(i, 1) = 50

i = i + 1

Loop

Maka kolom 1 akan diisi data 50 sebanyak 5 baris karena kita memberi batas dibawah 6 artinya 5x

Contoh berikutnya,untuk menambah data di kolom1 dan menempatkannya di kolom 2, coba ketikkan kode di bawah ini :

Dim i As Integer
i = 1

‘membaca baris yang tidak kosong di kolom1
Do While Cells(i, 1).Value <> “”

‘kolom2 akan diisi dengan value dari kolom 1 + 10
Cells(i, 2).Value = Cells(i, 1).Value + 10
i = i + 1
Loop

 

Tinggalkan Komentar

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

Need Help? Chat with us