Teknik Pencabangan If .... Then .... Else ..... End If dalam VBA Excel

Setelah mempelajari Teknik Pencabangan If .... Then .... End If, marilah kita pelajari Teknik Pencabangan If .... Then .... Else ..... End If.
Perhatikan diagram alur di bawah ini.

Program di atas dimulai dengan kondisi pilihan apakah kolom sel aktif (activecell.column) > 1 atau tidak. jika activecell.column > 1 maka kursor Geser ke kiri dan jika tidak (artinya kursor berada paling kiri) maka tulis pesan.

Teknik Pencabangan If ..... Then .... End If dalam VBA Excel

Marilah kita bahas Teknik Pencabangan If ..... Then .... End If dalam bentuk program VBA Excel
Dalam Flowchart di bawah ini, VBA akan melakukan gerakan ke kiri.

Flowchart di atas, jika dibuat program dalam VBA adalah :

Sub LeftArrow1_Click()

ActiveCell.Offset(0, -1).Select

End Sub

Jika program di atas dijalankan dan kursor berada di kolom paling kiri maka akan muncul pesan Debug seperti di bawah ini.

Agar tidak muncul pesan Debug seperti di atas, maka program perlu menggunakan Teknik Pencabangan  If ..... Then .... End If sehingga ketika kursor berada paling kiri program tidak melakukan kegiatan apa apa.
Perhatikan Flowchart di bawah ini.

Program dalam VBA Excel adalah :
Sub LeftArrow5_Click()
If ActiveCell.Column > 1 Then
    ActiveCell.Offset(0, -1).Select
End If
End Sub

Mengenal Bahasa Pemrograman Pascal 3.0

Gambar 93. Bahasa Pemrograman Pascal

Bahasa pemrograman Pascal sudah dikenal tahun 1960 an yang ditemukan oleh Nicolaus Wirth, dari Technology University Zurich Switzeland.

iPhone Kembali Makan Korban, Remaja Tewas Mengenaskan

Gambar 92. iPhone 4S

Smartphone kembali memakan korban. Seorang gadis remaja berusia 18 tahun di Negeri Tiongkok harus meregang nyawa. Nahasnya, gadis itu ditemukan tewas dengan sebagian tubuh terbakar.

Di samping jasad gadis itu ditemukan iPhone 4S yang telah hangus terbakar. Besar dugaan bahwa gadis remaja tersebut tewas tersetrum listrik yang disinyalir disebabkan iPhone 4S yang ditemukan bersamanya.

Teknik Pencabangan pada VBA Excel

Dalam membuat pemrograman, sering ditemukan kasus kasus yang membuat programer harus memilih satu dari dua pilihan atau memilih satu dari berbagai pilihan.

Misalnya untuk menggeser sel ke kiri. Jika dilakukan penggeseran ke kiri terus akan sampai pada sel paling kiri. Kalau dipaksakan juga ke kiri maka akan muncul DEBUG. Oleh karena itu, dalam program tersebut memiliki dua pilihan :

1. Pilihan pertama adalah tetap kekiri jika belum sampai sel paling kiri

2. Pilihan ke dua adalah, berhenti jika berada pada sel paling kiri.

Inilah yang dinamakan pencabangan.

Perhatikan bagan di bawah ini :

Artikel terkait :

http://komunitassoftware.blogspot.com/2014/09/teknik-pencabangan-if-then-end-if-dalam.html