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!

4 comments:

  1. mantap petunjuknya, tapi saat saya test click button1, ada error pada
    command formentry.show
    kenapa ya?

    ReplyDelete
  2. Trima kasih postingannya..
    Saya pemula banget nih. Saat mencoba tahapa di atas, macro nya gagal, muncul pemberitahuan "Can't execute code in bream mode", mohon pencerahan...

    ReplyDelete
  3. Ikut nimbrung aja, excel memang luar biasa ya??? Simpel tapi tangguh dan bermanfaat

    ReplyDelete
  4. oke jadi ... ada latihan yang lebih nggak gan

    ReplyDelete