IF THEN

IF THEN

Gunakan pernyataan If Then di Excel VBA untuk mengeksekusi baris kode jika kondisi tertentu terpenuhi.

Pernyataan If Then

Tempatkan command button pada lembar kerja Anda dan tambahkan baris kode berikut:

Dim score As Integer , result As String
score = Range (“A1”) Nilai

If¬†score> = 60¬†Maka¬†result = “pass”

Range (“B1”). Value = result

Penjelasan: jika skor lebih besar dari atau sama dengan 60, Excel VBA mengembalikan lulus.

Hasil ketika Anda mengklik tombol perintah di lembar:

Excel VBA Jika Kemudian Pernyataan

Catatan: jika skor kurang dari 60, Excel VBA menempatkan nilai hasil variabel kosong ke dalam sel B1.

Pernyataan Lain

Tempatkan  command button pada lembar kerja Anda dan tambahkan baris kode berikut:

Dim score As Integer , result As String
score = Range (“A1”) Nilai

If score> = 60 Maka
result = “pass”
Else
result = “fail”
End If

Range (“B1”). Value = result

Penjelasan: jika skor lebih besar dari atau sama dengan 60, Excel VBA mengembalikan lulus, jika tidak, pengembalian Excel VBA gagal.

Hasil ketika Anda mengklik tombol perintah di lembar:

Pernyataan Lain VBA Excel

Catatan: hanya jika Anda memiliki satu baris kode setelah Then dan tidak ada pernyataan Else, itu diperbolehkan untuk menempatkan baris kode langsung setelah Then dan untuk menghilangkan (meninggalkan) End If (contoh pertama). Jika tidak, mulailah baris baru setelah kata Then dan Else dan akhiri dengan End If (contoh kedua).

Loop

 

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  command button 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  command button pada lembar kerja Anda dan tambahkan baris kode berikut:

Dim i Sebagai Integer , j Sebagai Integer

Untuk i = 1 hingga 6
Untuk j = 1 hingga 2
Sel (i, j). Nilai = 100
Berikutnya j
Berikutnya 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  command button 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  command button 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  command button 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