Thursday, March 17, 2016

Perintah For .. Next Pada VBA, Untuk Melakukan Pengulangan/Loop

www.AstroDigi.com AstroDigi.com | Kamis, 17 Mar 2016 | Kali ini saya akan membahas perintah VBA yang digunakan untuk iterasi (pengulangan/loop) yaitu For .. Next. Sintax dari perintah Fro .. Next adalah: 

For counter As tipe_data = nilai_awal To nilai_akhir
-----
-----
Next counter

Catatan:
----- adalah deret baris perintah
Counter adalah variabel yang digunakan untuk menghitung jumlah pengulangan/ iterasi
Nilai_awal adalah variabel yang digunakan untuk menentukan nilai awal dari pengulangan
Nilai_akhir adalah variabel yang digunakan untuk menentukan nilai akhir dari pengulangan

Perhatikan contoh dari deretan perintah berikut ini:
------------------------------------------------
For angkaku As Integer = 1 To 7
Debug.Write(angkaku.ToString & " ")
Next angkaku

Debug.WriteLine("")

'maka hasilnya akan menjadi: 1 2 3 4 5 6 7
------------------------------------------------

Untuk pengulangan dengan penghitungan dengan langkah tertentu anda bisa menambahkan perintah STEP pada baris yang sama dengan For ..
Misalnya:
------------------------------------------------
For angkaku As Integer = 2 To 11 Step 2
Debug.Write(angkaku.ToString & " ")
Next angkaku

Debug.WriteLine("")

'maka hasilnya akan menjadi: 2 4 6 8 10
------------------------------------------------

STEP dapat juga berupa bilangan desimal (pecahan) misalnya:
------------------------------------------------
For angkaku As Integer = 2 To 7 Step 0.5
Debug.Write(angkaku.ToString & " ")
Next angkaku

Debug.WriteLine("")

'maka hasilnya akan menjadi: 2 2.5 3 3.5 4 4.5 5 5.5 6 6.5 7
------------------------------------------------

Ditengah perintah For .. Next dapat juga dipasang perintah untuk keluar dari pengulangan/loop dengan kondisi tertentu, dengan menambahkan perintah Exit For, setelah baris persyaratan disebutkan, misalnya:
------------------------------------------------
For angkaku As Integer = 2 To 7 Step 0.5
Debug.Write(angkaku.ToString & " ")
If angkaku = 4 then
Exit For
End If
Next angkaku

Debug.WriteLine("")

'maka hasilnya akan menjadi: 2 2.5 3 3.5 4
'karena pengulangan hanya sampai nilai “angkaku” mencapai 4 saja
------------------------------------------------

Demikian penjelasan singkat mengenai cara penggunaan perintah For .. Next pada VBA, yang dapat anda gunakan untuk melakukan pengulangan pekerjaan pada jalur perintah-perintah dalam VBA. Selamat mencoba :-)

 www.AstroDigi.com (Nino Guevara Ruwano)

Comments :

0 comments to “Perintah For .. Next Pada VBA, Untuk Melakukan Pengulangan/Loop”


Post a Comment