En este artículo, crearemos una función personalizada para contar el número de celdas en el rango con colores definidos.

Para este ejemplo, los datos de muestra consisten en un rango que tiene valores entre 100 y 1000. Los valores en las celdas se resaltan en diferentes colores. Queremos encontrar el recuento de cada color.

ArrowMain

Para calcular el recuento de un color específico, hemos creado una función personalizada «CountByColor». Esta función toma dos parámetros de rango como entrada. El primer parámetro de rango define el color interior de la celda y el segundo parámetro de rango define el rango de la muestra.

ArrowOutput

Explicación del código

Application.Volatile se usa ya que se recalculará cada vez que se cambie un valor de celda en el libro de trabajo.

DefinedColorRange.Interior.ColorIndex El código anterior se usa para obtener el color interior del rango definido.

Siga a continuación el código

Function CountByColor(DefinedColorRange As Range, CountRange As Range)

Application.Volatile

'Declaring variables

Dim ICol As Integer

Dim GCell As Range

'Getting the interior color of the cell

ICol = DefinedColorRange.Interior.ColorIndex

'Looping through the defined range

For Each GCell In CountRange



If ICol = GCell.Interior.ColorIndex Then

'Getting the count of matching colored cell

CountByColor = CountByColor + 1

End If

Next GCell

End Function

Si te gustó este blog, compártelo con tus amigos en Facebook y Facebook.

Nos encantaría saber de usted, háganos saber cómo podemos mejorar nuestro trabajo y hacerlo mejor para usted. Escríbanos a [email protected]