• Kode Untuk Merubah Warna Interior dan Font yang Terdapat Di sebuah sel

    mewarnai sel di excel Setiap sel yang terdapat dalam lembar kerja Microsoft Excel, ibarat sebuah lembaran kecil yang siap untuk kita isi dengan berbagai macam jenis data, bisa berupa teks, angka, simbol-simbol, atau mungkin data berupa kalender atau jam. Artinya bahwa sel yang semula kosong bisa kita isikan dengan berbagai jenis data-data yang siap kita olah menjadi sebuah informasi yang dapat disesuaikan dengan kebutuhan.

    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 tombol Delete

    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 :
    1. Aktifkan terlebih dahulu Microsoft Visual Basic dengan menekan tombol pintas Alt+F11
    2. 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
    3. 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
      Worksheet chage procedure
    4. 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
    5. Rangkaian dari kode-kode di atas jika dieksekusi, maka perubahan akan langsung terlihat dalam lembar kerja dimana kode ini diletakkan.
      warna interior dan font

    Selesai....
    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. Au revoir

    Tutorial ini memuat Macro VBA, jadi pastikan hasil akhir dari tutorial ini disimpan menggunakan format Excel Macro-Enable Workbook
    .xlsm
    atau Excel Binary Workbook
    .xlsb

    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
    loading...
    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.
    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 © 2015 - excelive.com. Some rights reserved.
    equipped with by blogger