
Secara ukuran, baik sel yang berisi data maupun yang kosong, keduanya sama-sama memiliki ukuran yang sama, begitu juga dengan warna interiornya. Hingga versi terbaru yang saat ini diluncurkan atau sampai posting ini diterbitkan, Microsoft Excel tidak memberikan fitur khusus untuk memberikan tanda atau warna terhadap sel yang memiliki isi atau tidak sebagai pembeda antara kedua. Dan untungnya, masalah kecil ini bisa dengan mudah kita buat sendiri, baik dengan menggunakan Conditional Formatting maupun menggunakan Macro VBA.
Dan untuk tutorial kali ini, saya menggunakan script Macro VBA agar model warna interior
sel lebih bervariatif dengan mengikuti kondisi yang harus dipenuhi sebagai berikut
Jika sebuah sel berisi angka 0 maka sel tersebut akan berwarna merah, jika diisi hanya berupa karakter spasi saja maka sel akan berwarna kuning, selain dari itu maka warna interior sel akan kembali ke warna asal - termasuk ketika user menghapus isi data dalam sel tersebut menggunakan tombolDelete
Ok, setidaknya terdapat 4 (empat) buah kondisi yang kita miliki untuk dijadikan sebagai kriteria pewarnaan interior sebuah sel beserta warna dasar font-nya. Dan untuk menjalankan setiap kondisi yang ada ini, saya lebih suka menggunakan Statement IF (meskipun bisa saja menggunakan Select Case). Dan karena model pewarnaannya terjadi setiap kali ada perubahan, maka prosedur yang saya lakukan adalah sebagai berikut :
- Aktifkan terlebih dahulu Microsoft Visual Basic dengan menekan tombol pintas
Alt +F11 - Lanjutkan dengan memilih nama-nama dari Object VBA yang terdapat di pojok kiri atas aplikasi Microsoft Visual Basic Editor.
Jika perintah hanya ingin terjadi di salah satu lembar kerja saja, maka pilih (klik ganda) nama lembar kerjanya. Namun jika ingin agar perintah dapat dieksekusi di semua lembar kerja maka pilih (klik ganda) objek ThisWorkbook - Sebagai contoh, objek lembar kerja yang akan saya beri perintah pewarnaan interior adalah Sheet1. Maka langkah selanjutnya silahkan alihkan perhatian ke jendela utama aplikasi Microsoft Visual Basic Editor, kemudian pilih objek Worksheet dan Change dari masing-masing menu dari kotak dropDown yang tersedia
- Setelah berhasil menentukan jenis prosedur yang akan dieksekusi, selanjutnya adalah tulis kode berikut di dalamnya
On Error Resume Next If Target.Cells = "" Then Target.Interior.Color = xlNone Target.Font.Color = 1 ElseIf Len(Trim(Target.Cells)) = 0 Then Target.Interior.Color = RGB(250, 250, 100) ElseIf Target.Cells = 0 Then Target.Interior.Color = RGB(250, 100, 100) Target.Font.Color = RGB(255, 255, 255) Else Target.Interior.Color = xlNone Target.Font.Color = 1 End If
Penjelasan singkat baris kode di atas adalah sebagai berikut - Membuat sebuah Statement yang bertujuan untuk tetap melanjutkan perintah jika terdapat error dalam baris kode yang telah dibuat
- Baris kode inti dari tutorial ini terletak di statement Logika IF yang berbunyi, jika perubahan terhadap sel target berupa :
- "" artinya kosong, maka warna interior bernilai xlNone atau default
- Jika Panjang isi sel setelah dihapus karakter spasi yang terdapat diawal teks adalah 0 maka warna interior berubah menjadi warna kuning (kombinasi warna adalah RGB)
- Jika sel berisi nilai 0 maka warna interior berubah menjadi warna merah sementara warna font menjadi putih
- Jika kondisi selain dari pada kriteria di atas, maka warna interior kembali ke bentuk asal dan warna font berubah menjadi warna hitam
Rangkaian dari kode-kode di atas jika dieksekusi, maka perubahan akan langsung terlihat dalam lembar kerja dimana kode ini diletakkan.
Semoga tutorial singkat dalam mewarnai interior sel setiap kali ada perubahan yang dilakukan, dapat memberi manfaat kepada anda.
Jangan lupa bookmark situs ini untuk memudahkan anda dalam mengunjungi kami lain waktu.
Tutorial ini memuat Macro VBA, jadi pastikan hasil akhir dari tutorial ini disimpan menggunakan format Excel Macro-Enable Workbook atau Excel Binary Workbook
.xlsm
.xlsb
Incoming Search Terms
Memberi warna interior sel secara langsung jika terdapat perubahan Menggunakan Formula TRIM untuk menghapus spasi awal teks
Kombinasi Fungsi LEN dan TRIM untuk menghitung jumlah karakter
Script Macro VBA untuk mengganti warna Font
Variasi warna interior dan warna Font berdasarkan isi sel
Terimakasih sudah membaca
Tutorial: Kode Untuk Merubah Warna Interior dan Font yang Terdapat Di sebuah sel
Labels: Macro VBA - Author: excelive
Tutorial: Kode Untuk Merubah Warna Interior dan Font yang Terdapat Di sebuah sel
Labels: Macro VBA - Author: excelive
Masih mau belajar lagi !
Yuk, klik tautan berikut ini :