Struktur Looping pada Visual Basic for Application dengan excell

Looping sangat memberikan kemudahan dalam pemograman, terutama yang berkenaan dengan perhitungan dalam jumlah banyak, seperti perhitungan rumus-rumus numerik, boleh dikata sistem looping ini gampang-gampang susah, terutama kalau tidak mengetahui syntax dasar pemograman.
minggu-minggu ini memang sengaja saya kejar untuk menulis prmograman visual basic terlebih dahulu, baru minggu depan, dimulai lagi CFD nya.
dalam pemograman pada blog ini menggunakan beberapa referensi buku, diantaranya
1. Numerical Methods with VBA Programming, By James Hiestand
2. Excel for scientists and engineers: numerical methods, Volume 1 By E. Joseph Billo

sayangnya buku pertama masih susah di cari softcopinya, klo ada yang punya tolong bagi ya, sementara ini saya baca melalui google books, dan beberapa contohnya, for .. next banyak digunakan untuk proses looping dengan menambahkan nilai maupun mengurangi nilainya.

For Next
masukkan command button pada excell, seperti gambar di bawah berikut

jangan lupa masuk design mode, lalu double klik untuk memasukkan program

ketikkan program seperti berikut

Private Sub CommandButton1_Click()
For i = 1 To 15
Cells(i, 1) = 2 * i
Next i
End Sub

perintah tersebut artinya untuk i dari 1 sampai 15, menuliskan pada cell (i,1) = baris ke i di kolom satu, yaitu 2*1, untuk mengetahui hasilnya, keluar dari desain mode lalu klik tombol hitung, hasilnya adalah

Gampang bukan?

For Next dengan Step
dalam VBA selain perintah for next diatas, terdapat juga perintah untuk melakukan looping dengan step tertentu, dengan cara yang sama seperti diatas, ketikkan kode seperti berikut

Private Sub CommandButton1_Click()
 For i = 1 To 15 Step 2
    Cells(i, 4) = i
Next i
End Sub

artinya untuk langkah 1 sampai 15 menuliskan nilai i, namun dilewati 1 langkah, jadi hanya dituliskan step ke 2 dan kelipatannya., hasilnya ditulis dalam cell baris ke i dan kolom ke 4 (cells (i,4)), untuk melihat hasilnya keluar dari design mode dan klik hitung, hasilnya adalah

Do While ... Loop
prinsip looping menggunakan metode ini adalah selama syarat belum terpenuhi, maka perintah akan dijalankan, karena itu deklarasi i nya dilakukan di awal,

Private Sub CommandButton1_Click()
 i = 1
    Do While i <= 14
        Cells(i, 5) = i
        i = i + 1
    Loop
End Sub

pada contoh program diatas, dimulai dengan deklarasi awal nilai i yaitu sama dengan 1, selagi jumlah i kurang dari 14, maka pada cell baris ke i, kolom ke 5 akan dituliskan i,  lalu jumlah i ditambahkan 1 dan seterusnya hingga nilainya mencapai 14.

Do Until ... Loop
prinsip kerja dari program ini adalah mengerjakan sesuatu sampai kondisi batas terpenuhi, syntax yang dipakai adalah

 i = 1
    Do Until i = 17
        Cells(i, 6) = i
        i = i + 2
    Loop

hasilnya adalah

file latihan saya dapat didownload pada embed box berikut ini, silahkan diubah-ubah, file lain masih banyak namun, masih banyak juga yang belum jalan, semoga bermanfaat

Posted in: komputasi teknik, looping procedure, syntax vba