Selasa, 02 September 2014

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

======= Gambar =====




Tidak ada komentar:

Posting Komentar

Catatan: Hanya anggota dari blog ini yang dapat mengirim komentar.