Function CONTARCOLOR(CeldaColor As String, RangoSuma As String) As Double
\'Ej CONTARCOLOR("B5";"E2:F42") \'\' No olvidar las comillas , el primer parametro es la celda donde esta el color, la segunda es el rango donde procesamos y contamos sus coincidencias
Dim oRango As Object
Dim oCelda As Double
Dim c As Integer
Dim f As Integer
Dim oCuenta as Integer
oCuenta=0 \'inicializamos variable
oRango = ThisComponent.CurrentController.ActiveSheet
oCelda = oRango.GetCellRangeByName(CeldaColor).CellBackColor
oRango = oRango.GetCellRangeByName(RangoSuma)
For c = 0 to oRango.Columns.Count - 1
For f = 0 to oRango.Rows.Count - 1
If oRango.GetCellByPosition(c,f).CellBackColor = oCelda Then
oCuenta = oCuenta + 1
End If
Next
Next
CONTARCOLOR = oCuenta
End Function