Merubah Warna Font

Secara default warna dasar font dalam microsoft excel (atau aplikasi lainnya) menggunakan warna hitam, hal ini bukan tanpa sebab melainkan karena kebanyakan latar belakang lembar kerja sebuah aplikasi didominasi dengan warna putih sehingga jika ingin mewarnai sebuah teks harus dilakukan secara manual.



Menuliskan sebuah kata 'merah' tidak akan mempengaruhi warna teks tersebut berubah menjadi merah, teks biru tadak akan merubah teks tersebut berwarna biru, atau yang lainnya, terkecuali jika kita sudah mengaturnya terlebih dahulu dalam baris kode Macro VBA. Seperti tampilan berikut ini.

Dari tampilan di atas dapat disimpulkan bahwa setiap kata yang memiliki makna sebuah warna (selain warna hitam) akan secara otomatis mewarnai teks sesuai dengan kata yang dimaksud, dan sebaliknya jika teks tersebut tidak memiliki makna sebuah warna maka teks akan berwarna hitam.

Untuk membuat otomatisasi warna berdasarkan kata atau teks yang kita entry dalam sel lembar kerja Microsoft Excel, langkah sederhanya adalah menuliskan baris kode berikut ke dalam objek ThisWorkbook untuk procedure Sheetchange.

On Error Resume Next
Select Case Target
   Case "MERAH", "merah"
     Target.Font.ColorIndex = 3
   Case "BIRU", "biru"
     Target.Font.ColorIndex = 5
   Case "HIJAU", "hijau"
     Target.Font.ColorIndex = 4
   Case Else
     Target.Font.ColorIndex = 1
End Select

Untuk kode penulisan warna dapat melihat tabel ColorIndex disini.

Untuk mempelajari lebih lanjut tentang cara merubah warna font secara otomatis, download file excel di bawah ini

semoga bermanfaat

Ditulis oleh : Anto Ramana
Published : 21.04.15 | 09:57

Cara Merubah Warna Font

Kategori : Macro VBA

Tutorial Excel Lainnya :