Wednesday, November 6, 2013

Soal Praktek VLOOKUP dan HLOOKUP

Untuk mengerjakan 10 soal singkat berikut ini, perhatikan data pada gambar berikut. Anda juga bisa download file latihan yang berisi data tersebut disini.

Jika Anda mengalami kesulitan, dapat bergabung dengan komunitas di Facebook kami. Untuk bergabung klik saja alamat berikut dan klik join: https://www.facebook.com/groups/belajarexcelinfo.

Sunday, November 3, 2013

VBA: Simulasi Fungsi RND dan Nilai Acak pada Excel

Berikut adalah contoh animasi untuk mensimulasikan penggunaan nilai acak, contoh kode terlampir di bawah. Untuk diskusi lebih lanjut Anda dapat bergabung dengan user group Facebook kami (klik disini).


Sub Button1_Click()
    Sheet1.Range("A1") = "Rnd()"
    Sheet1.Range("B1") = "Rnd(0)"
    Sheet1.Range("C1") = ""
    Sheet1.Range("D1") = "Rnd(5)"
    Sheet1.Range("A2") = Rnd()
    Sheet1.Range("B2") = Rnd(0)
    Sheet1.Range("C2") = ""
    Sheet1.Range("D2") = Rnd(5)
End Sub

Sub Button2_Click()
    Sheet1.Range("A1") = "Rnd()"
    Sheet1.Range("B1") = "Rnd(0)"
    Sheet1.Range("C1") = "Rnd(-5)"
    Sheet1.Range("D1") = "Rnd(5)"
    Sheet1.Range("A2") = Rnd()
    Sheet1.Range("B2") = Rnd(0)
    Sheet1.Range("C2") = Rnd(-5)
    Sheet1.Range("D2") = Rnd(5)
End Sub

Sub Button3_Click()
    Sheet1.Range("A1") = "0.00 s/d 100.00"
    Sheet1.Range("B1") = "0 s/d 100"
    Sheet1.Range("C1") = "-50 s/d 50"
    Sheet1.Range("D1") = ""
    Sheet1.Range("A2") = Rnd() * 100
    Sheet1.Range("B2") = CInt(Rnd() * 100)
    Sheet1.Range("C2") = CInt(Rnd() * 100 - 50)
    Sheet1.Range("D2") = ""
End Sub

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!