Daftar Isi:
- For - Next
- Untuk Masing-masing - Selanjutnya
- Lakukan - Loop Sampai
- Lakukan Sementara - Loop
- If - Then
- If - Then - End If
- Jika - Kemudian - Lain
- Jika - Kemudian - Else - End If
- Pilih Kasus
- Goto
Video: Excel VBA IF THEN Statement (with ELSEIF & Looping in cells) 2024
Berikut adalah daftar dari sepuluh struktur kontrol pemrograman VBA Excel yang paling umum digunakan. Termasuk adalah contoh sederhana dari setiap struktur kontrol dan deskripsi singkat kapan Anda akan menggunakan struktur itu.
For - Next
Berguna untuk perulangan melalui array.
ArraySum = 0 Untuk i = 1 sampai 10 ArraySum = ArraySum + MyArray (i) Berikutnya i
Untuk Masing-masing - Selanjutnya
Berguna untuk perulangan melalui koleksi atau rangkaian sel.
SelectionSum = 0 Untuk Sel Setiap Seleksi SelectionSum = SelectionSum + cell. Nilai Next cell
Lakukan - Loop Sampai
Loop sampai kondisi terpenuhi.
Baris = 0 Lakukan Baris = Baris + 1 Loop Sampai Sel (Baris, 1). Nilai = "MsgBox" Sel kosong pertama ada di Row "& Row
Lakukan Sementara - Loop
Loop saat kondisi benar.
Baris = 1 Lakukan Sel Sel (Baris, 1)" Baris = Baris + 1 Loop MsgBox "Sel kosong pertama ada di Row" & Row
If - Then
Lakukan sesuatu jika kondisinya benar. Ditulis sebagai satu pernyataan.
Jika x = 1 Then y = 1
If - Then - End If
Lakukan sesuatu jika sebuah kondisi benar. Bisa menggunakan beberapa pernyataan.
Jika x = 1 Maka y = 1 z = 1 Akhir Jika
Jika - Kemudian - Lain
Lakukan sesuatu jika suatu kondisi benar; Jika tidak, lakukan sesuatu yang lain. Ditulis sebagai satu pernyataan.
Jika x = 1 Maka y = 1 Lain y = 0
Jika - Kemudian - Else - End If
Lakukan sesuatu jika suatu kondisi benar; Jika tidak, lakukan sesuatu yang lain. Bisa menggunakan beberapa pernyataan.
Jika x = 1 Maka y = 1 Z = 1 Lain y = 0 Z = 0 Akhir Jika
Pilih Kasus
Lakukan satu dari beberapa hal, tergantung pada suatu kondisi.
Pilih Kasus x Kasus 1 y = 1 Z = 1 Kasus> 1 y = 2 Z = 2 Kasus Lain y = 0 Z = 0 Akhir Pilih
Goto
Lompat ke pernyataan berlabel. Ini sebagian besar digunakan untuk penanganan error.
On Error GoTo Oops '[kode lebih banyak masuk ke sini] Keluar dari Sub Ups: MsgBox "Terjadi kesalahan"