Menggunakan Fungsi Warna Pada Excel

Langkah pertama kita akan membuat sebuah function sendiri, jadi function ini tidak ada pada default function Ms. Excel. Untuk memasukkan function ini tekan Alt + F11, maka akan terbuka jendela Visual Basic for Applications.

Langkah kedua klik Insert > Module, dan paste script dibawah ini.

Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean) 
    Dim rCell As Range 
    Dim lCol As Long 
    Dim vResult 
     
     ''''''''''''''''''''''''''''''''''''''
     'Written by Ozgrid Business Applications
     '======================================='
     'Menghitung & Menjumlah Background Color di Ms Excel
     'itsbhulbul.wordpress.com - http://wp.me/p4j0sZ-v
     '''''''''''''''''''''''''''''''''''''''
     
    lCol = rColor.Interior.ColorIndex 
     
    If SUM = True Then 
        For Each rCell In rRange 
            If rCell.Interior.ColorIndex = lCol Then 
                vResult = WorksheetFunction.SUM(rCell,vResult) 
            End If 
        Next rCell 
    Else 
        For Each rCell In rRange 
            If rCell.Interior.ColorIndex = lCol Then 
                vResult = 1 + vResult 
            End If 
        Next rCell 
    End If 
     
    ColorFunction = vResult 
End Function 

Setelah di paste anda bisa menutup jendela Visual Basic for Applications.

Menggunakan penjumlahan berbasis warna

Untuk menggunakan function yang telah kita buat pada langkah sebelumnya, caranya tidak jauh beda dengan menggunakan function seperti biasanya.

Ketikkan =ColorFunction(Cell Selector;Cell Range;TRUE) digunakan untuk menjumlah (SUM) bilangan yang ada pada Cell yang di background.

Ketikkan =ColorFunction(Cell Selector;Cell Range;FALSE) digunakan untuk menghitung (Count) Cell yang di background.

Contoh;

Cell B11 =ColorFunction(A11;A1:D7;FALSE)
Cell C11 =ColorFunction(A11;A1:D7;TRUE)