Contabilizar las celdas de colores en Excel

Después de tanto indagar en Microsoft Excel, me dí cuenta que no había ninguna función que me permitiese contar los colores de cada celda.

Así que lo que hice es, hacer lo que solemos hacer siempre, introducirme en el fabuloso mundo de Google y de los foros. La solución que encontré fue, la de crear una nueva Macro.
Los pasos a seguir son los siguientes:

1. Abrimos el Excel, “sino lo vas a tener difícil”
2. Seleccionamos en el menú de Herramientas “Macros”
3. Dentro de Macros, seleccionamos la opción Macros…
4. Se nos abrirá un recuadro en el que nos pide el nombre de la Nueva Macro.
5. Una vez introducido el nombre, se nos activa la opción “Crear”,pues bien, le damos a crear.
6. Nos aparecerá un cuadro M.V.B. en el que tenemos que pegar el siguiente código:


Function ContarColorFondo(rngCeldaColor As Range, rngRangoAcontar As Range) As Double
Application.Volatile
If rngCeldaColor.Cells.Count <> 1 Then Exit Function

Dim rngCelda As Range
For Each rngCelda In rngRangoAcontar
If rngCelda.Interior.ColorIndex = rngCeldaColor.Interior.ColorIndex Then ContarColorFondo = ContarColorFondo + 1
Next rngCelda
Set rngCelda = Nothing
End Function

Function NumeroColor(rngR As Range) As Long
NumeroColor = rngR.Cells(1, 1).Interior.ColorIndex
End Function


7. Una vez hecho esto le damos a Guardar.

Con estos pasos ya podemos buscarla “con el nombre que le hemos puesto a la Macro”, como función y aplicarla como cualquier otra función. Suerte