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