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.
Contoh program yang sesuai dengan diagram alur di atas adalah :
Sub Kekiri_LeftArrow3_Click()
If ActiveCell.Column > 1 Then
ActiveCell.Offset(0, -1).Select
Else
MsgBox "Sudah paling kiri, Jangan paksa saya lagi"
End If
End Sub
Jika kursor pada posisi paling kiri tetap dijalankan (RUN), akan muncul pesan sebagai berikut :
Selamat Mencoba
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.
Contoh program yang sesuai dengan diagram alur di atas adalah :
Sub Kekiri_LeftArrow3_Click()
If ActiveCell.Column > 1 Then
ActiveCell.Offset(0, -1).Select
Else
MsgBox "Sudah paling kiri, Jangan paksa saya lagi"
End If
End Sub
Jika kursor pada posisi paling kiri tetap dijalankan (RUN), akan muncul pesan sebagai berikut :
Selamat Mencoba
Komentar
Posting Komentar