Excel >> Nilai Warna Pada Excel

Melakukan format pada sebuah sel pada MS-Excel berdasarkan nilai tertentu bisa dilakukan dengan menggunakan Conditional Format. Tetapi sebaliknya, bagaimana cara memberi nilai pada sebuah sel berdasarkan format yang ada pada sel lain? Misalnya, sel B2 akan terisi nilai 60 jika cell A2 berlatar belakang merah.

Cara yang dapat dilakukan adalah dengan membaca nilai warna yang menjadi latar belakang sel tersebut, kemudian menjadikan nilai tersebut sebagai kondisi untuk menentukan nilai. Hal ini dapat dilakukan dengan memanfaatkan kemampuan MS-Excel mengelola VBA script. Langkah–langkahnya adalah sebagai berikut :

- Buka worksheet baru atau worksheet yang sudah dibuat
- Pilih Tools-Macro-Visual Basic Editor
- Pada panel Project, klik kanan pada pilihan Microsoft Excel Project
- Pilih Insert-Modul
- Ketik script berikut :

Public Function nilaiwarna(ByVal Target As Range) As Integer
Dim nwarna As Integer
nwarna = Target.Interior.ColorIndex
nilaiwarna = nwarna
End Function

Fungsi diatas bisa digunakan untuk mengetahui nilai warna latar belakang sebuah sel. Caranya cukup dengan menuliskan fungsi nilaiwarna(celladdress) atau pada kasus dibawah :
. Sel B2 diisi dengan fungsi : =nilaiwarna(A2)
· Sel B3 diisi dengan fungsi : =nilaiwarna(A3)
· Sel B4 diisi dengan fungsi : =nilaiwarna(A4)
· Sel B5 diisi dengan fungsi : =nilaiwarna(A5)

Misalkan akan diisikan skor 60 pada kolom B jika sel A berlatar belakang biru (nilai warna = 5) :
· Sel B2 diisi dengan fungsi : if(nilaiwarna(A2)=5,60,0), kemudian copy ke sel dibawahnya. Hasilnya :