• Mencari dan Memberikan Warna Interior Pada Kata yang Terpilih

    warna interior sel Tutorial ini merupakan gabungan dari tutorial-tutorial sebelumnya dan salah satunya adalah yang membahas tentang cara menggunakan paremeter .FIND dalam kode Macro VBA dan menambahkan baris kode baru yang berfungsi untuk memberikan warna interior pada hasil pencarian yang ditemukan. Jadi, ada baiknya anda memahami isi materi dari tutorial sebelumnya.

    Setidaknya ada 2 (dua) macam warna interior yang akan kita gunakan dalam tutorial kali ini, yakni warna background sel (interior) dan warna font. Kedua warna inilah yang nantinya akan kita kombinasikan dengan hasil pencarian. Dan sebelum memulai tutorialnya, saya akan berikan dulu kode penulisan beberapa warna standar (baca:konstan) yang digunakan dalam Macro VBA yang sangat mudah untuk diingat, yakni
    vbWhite vbYellow vbCyan vbRed vbMagenta vbGreen vbBlue vbBlack

    Kembali ke topik pembahasan.
    Seperti biasa kita buat terlebih dahulu beberapa data di dalam lembar kerja Microsoft Excel yang diletakkan di sepanjang kolom A, yang mana nantinya akan kita berikan warna background sel maupun fontnya ketika berhasil ditemukan dengan bantuan kotak input.
    Isi Lembar Kerja

    Sekarang, saatnya kita mulai bekerja.
    1. Langkah pertama yang bisa anda lakukan setelah membuat data sederhana adalah dengan membuat sebuah objek Macro VBA berupa CommandButton yang diletakkan dalam lembar kerja yang digunakan untuk menampilkan jendela InputBox.
      CommandButton dalam lembar kerja
    2. Langkah selanjutnya adalah, klik 2x objek objek CommandButton yang telah dibuat pada langkah sebelumnya untuk langsung menuju jendela Microsoft Visual BAsic Editor. Namun sebelumnya, pastikan dulu bahwa objek Design Mode masih dalam posisi aktif
    3. Di dalam jendela kode yang berhasil dibuka, anda akan dihadapkan dengan beberapa baris perintah yang dimiliki oleh objek CommandButton yang didalamnya masih kosong
      empty code
    4. Sekarang isikan dalam baris kosong tadi dengan kode Macro VBA berikut
      On Error GoTo x
      Range("A1", Range("A" & Rows.Count).End(xlUp)).Font.Color = None
      Range("A1", Range("A" & Rows.Count).End(xlUp)).Interior.Color = xlNone
      Cari = Application.InputBox("Silahkan masukkan kata kunci yang ingin cari", ".find")
      
      If Cari <> False Then
        Set a = Range("A:A").Find(Cari, LookAt:=xlValue)
        Range(a.Address).Font.Color = vbWhite
        Range(a.Address).Interior.Color = vbRed
        MsgBox "Kata yang anda cari ada di sel " & vbCr & a.Address(False, False)
      End If
      
      Exit Sub
      x:MsgBox "Maaf. tidak ada hasil pencarian yang bisa ditampilkan"
      
      Penjelasan sederhana dari kode di atas adalah
      • Kode diawali dengan sebuah pernyataan error, yang mana ketika terjadi error (data tidak ditemukan) maka kode akan langsung lompat ke perintah x
      • Dua baris kode berikutnya adalah untuk mengembalikan warna font dan warna background sel ke warna asal.
        yang perlu diperhatikan adalah, ada perbedaan kode untuk warna default antara keduanya, yakni untuk font menggunakan perintah None, sementara untuk background sel menggunakan xlNone. Dan perintah untuk mengembalikan warna default tersebut hanya diberlakukan di sepanjang kolom A
      • Setelah warna dikembalikan ke bentuk asalnya, perintah selanjutnya yang akan dijalankan ada pada baris kode yang ditentukan oleh nilai Cari, yakni sebuah kode yang berfungsi untuk menampilkan jendela InputBox
      • Baris inti untuk memberikan warna pada sel terpilih diawali dengan statemen IF, yakni jika nilai Cari benar atau ketika pengguna menekan tombol OK, maka kode berikutnya akan dijalankan
      • Di dalam statemen IF, isi baris kode dimulai dengan menentukan terlebih dahulu nilai a yang berfungsi mencari nilai yang dimasukkan dari jendela InputBox di sepanjang kolom A. Kemudian di lanjutkan dengan mewarnai :
        - Font dengan warna putih
        - Background Sel dengan warna merah
        Selanjutnya memberikan infomasi kepada pengguna berupa kotak pesan yang berisi bahwa kata yang dicari terdapat pada sebuah sel
    5. Langkah terakhir yang harus dilakukan tentunya adalah langsung mengujinya dengan cara klik tombol CommandButton yang ada di dalam lembar kerja

    Sekarang anda sudah berhasil mengetahui bagaimana caranya memberi warna interior pada sebuah sel atau sebuah teks yang berhasil ditemukan dari jendela InputBox. Semoga tutorial ini bisa memberikan manfaat kepada anda.
    Terimakasih sudah berkunjung dan jangan lupa silahkan bookmark situs ini untuk mengetahui tutorial dan kehebatan Microsoft Excel lainnya. We'll be right back soon


    Terimakasih sudah membaca
    Tutorial: Mencari dan Memberikan Warna Interior Pada Kata yang Terpilih
    Labels: - Author: excelive

    Artikel Terkait

  • Still haven't found what are you looking for

    We have provided a complete list of articles on this site to make it easier for you and giving the best solution for your excel issues

    VISIT LINK
    DMCA.com Protection Status

    excelive.com
    is a blogger resources site who provides best excel tutorial based on daily needs. The main mission of excelive is to share our little experience in excel to deliver best time killer for your excel issues, such as the following :
    Macro VBA Excel Functions Custom UDF many more...
    T.O.S
    Term of service

    Read More
    Download Area
    to complete all excel lessons, we have provided a download link for you Find Here
    Copyright © 2016 - excelive.com. Some rights reserved.
    Menyalin sebagian atau keseluruhan materi situs hanya diperbolehkan dengan tautan balik terbuka ke sumbernya.
    equipped with by blogger