website of cybergana

   Function CountColoredCells(rng As Range, clr As Range) As Long

Dim cell As Range

Dim count As Long

count = 0

  For Each cell In rng

      If cell.Interior.Color = clr.Interior.Color Then

  count = count + 1

    End If

Next cell

CountColoredCells = count

End Function

1. Develper mode should be add on formulabar.
2. How to on Develper mode. Click here go to video

Process :

Copy script commond and paste in develper-module.
Then write function name : CountCellsByColor Process:

Using VBA (Custom Function):

Open VBA Editor: Press Alt + F11.

Insert Module: Go to "Insert" > "Module".

Paste Code: Paste the following VBA code into the module:

Close VBA Editor: Return to Excel.

Use the Function: In a cell,

Use the formula =CountColoredCells(range_to_check, cell_with_target_color).