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.


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.
   
   
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
   
   
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

Masih mau belajar lagi !

Yuk, klik tautan berikut ini :