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
'Menghitung & Menjumlah Background Color di Ms Excel
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)