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 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 > 1Tambahan script di atas untuk membatasi agar pada posisi B1 kursor tetap geser ke kanan.
ActiveCell.Interior.ColorIndex = ActiveCell.Column
ActiveCell.Interior.ColorIndex = ActiveCell.RowTambahan 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