Rabu, 03 September 2014

Teknik Pencabangan If -- Then -- Else -- End If Geser Kiri Atas Kanan

Pada artikel sebelumnya sudah dibahas bagaimana membuat Program VBA Excel menggunakan Teknik Pencabangan  If -- Then -- Else -- End If dengan contoh program Geser Kiri ketika kursor berada pada kolom lebih dari satu ( 1 ) dan membuat Pesan ketika kursor sudah berada pada kolom paling kiri.
Marilah kita kembangkan program tersebut dengan geser ke atas ketika kursor berada pada kolom paling kiri.
Diagram alurnya adalah sebagai berikut :


Maka program yang dibuat adalah :



Kalau program ini dijalankan, maka pada saat posisi kursor ada di A1 ( Paling Kiri dan paling atas ) kursor akan ke kanan yaitu ke B1. Pada saat posisi di B1 (Paling atas) ketika dijalankan kursor akan geser ke kiri. Dengan demikian kursor akan selalu bergeser kanan dan kiri di A1 dan B1.
Agar kursor tetap bergeser ke kanan setelah dari A1, maka syarat pencabangan yang pertama harus diubah. Jika sebelumnya disyaratkan bahwa pada saat kursor berada pada kolom tidak paling kiri dia ke kiri dan pada saat kursor berada pada posisi paling kiri maka kursor tidak ke kiri maka harus diubah karena ini akan berlaku pada saat di B1, kursor akan ke kiri.
Syaratnya sebaiknya diubah seperti pada diagram alur di bawah ini.


Program VBA Excel yang digunakan adalah :


Ada tambahan script

Activecell.column > 1 and Activecell.Row > 1 
Tambahan script di atas untuk membatasi agar pada posisi B1 kursor tetap geser ke kanan.

ActiveCell.Interior.ColorIndex = ActiveCell.Column
ActiveCell.Interior.ColorIndex = ActiveCell.Row
Tambahan script di atas untuk memberi efek warna tergantung pada posisi kolom kursor dan posisi Baris Kursor sesuai dengan Tabel Color Index di bawah ini :




Tidak ada komentar:

Posting Komentar

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