En este artículo, crearemos una función personalizada para contar el número de celdas en el rango que tienen 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.
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.
Explicación del código
Application.Volatile se utiliza ya que volverá a calcular 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 para obtener el código
Función CountByColor (DefinedColorRange As Range, CountRange As Range) Application.Volatile 'Declarando variables Dim ICol As Integer Dim GCell As Range' Obteniendo el color interior de la celda ICol = DefinedColorRange.Interior.ColorIndex 'Recorriendo el rango definido para cada GCell In CountRange If ICol = GCell.Interior.ColorIndex Then 'Obteniendo el recuento de celdas de colores coincidentes CountByColor = CountByColor + 1 End If Next GCell End Function
Si te gustó este blog, compártelo con tus amigos en Facebook. Además, puede seguirnos en Twitter y Facebook.
Nos encantaría saber de usted, háganos saber cómo podemos mejorar nuestro trabajo y hacerlo mejor para usted. Escríbanos al sitio de correo electrónico
