Monday, October 28, 2013

Praktek VBA: Merubah Warna Cell secara Acak

  1. Buatlah satu workbook Excel dengan isi sebagai berikut, atau download dari http://goo.gl/YlGe4I.

  2. Tambahkan form control bertipe tombol (button) pada worksheet yang sama.

  3. Klik kanan pada tombol tersebut, dan pilih Assign Macro.
  4. Pada dialog Assign Macro yang muncul, klik tombol New.
  5. Ruang kerja editor visual basic akan muncul. Terlihat ada potongan Sub Button1_Click() ... End Sub yang merupakan blok prosedur dimana kode kita akan dimasukkan. Terlihat juga bahwa potongan blok ini terdapat pada suatu organisasi modul dengan nama Module1.

    Gambar berikut menunjukkan editor yang muncul, klik untuk memperbesar dan memperjelas gambar.

  6. Langkah selanjutnya, kita akan memberi warna acak pada kolom-kolom judul dengan potongan kode berikut.

    Sheet1.Range("A4", "E4").Font.Color = vbWhite
    Sheet1.Range("A4", "E4").Interior.Color = RGB(166 * Rnd(), 166 * Rnd(), 166 * Rnd())

    dimana penjelasan kodenya adalah sebagai berikut:
    Sheet1.Range("A4", "E4") berfungsi untuk mengambil rangecell dimulai dari alamat A4 s/d E4. Range ini merupakan kolom header pada tabel kita.
    .Font.Color = vbWhite berfungsi untuk memberikan warna putih pada tulisan (font).
    .Interior.Color  merupakan property untuk warna latar belakang dari cell.
    RGB(166 * Rnd(), 166 * Rnd(), 166 * Rnd())  RGB merupakan fungsi nilai warna yang pada kasus ini diberikan nilai warna acak. Nilai acak ini dihasilkan oleh fungsi RND, dan 166 adalah konstanta agar nilai maksimum dari fungsi RND ini jatuh pada angka 165 (166 dikurangi 1).

  7. Sekarang kembali ke worksheet kita dan coba klik tombol Button 1 berkali-kali. Terlihat warna latar pada header akan selalu berubah pada setiap klik yang kita lakukan.

  8. Selesai.

Pengembangan Diri: Cobalah kembangkan latihan di atas sehingga sisa baris yang memiliki data juga diberikan warna acak.

Jika mengalami kesulitan bisa email ke webmaster@belajarexcel.info atau bergabung dan berdiskusi di user group Facebook kami di https://www.facebook.com/groups/belajarexcelinfo/.

Semoga Bermanfaat!