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 :
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
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
Komentar
Posting Komentar