En este artículo, crearemos una función personalizada para calcular la suma de números en celdas en el rango que tiene un color definido.
Para este ejemplo, los datos de muestra consisten en datos del equipo de ventas. Los datos del equipo de ventas contienen detalles relacionados con la cantidad de artículos vendidos. Contiene información relacionada con el producto que está disponible en tres colores gris, rojo y verde. Queremos encontrar la suma del artículo vendido por color de producto.
Para calcular la suma por color, hemos creado la función personalizada "SumByColor". 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 usa porque 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 para obtener el código
Opción Función explícita SumByColor (DefinedColorRange As Range, SumRange 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 uno GCell In SumRange If ICol = GCell.Interior.ColorIndex Then 'Obteniendo la suma de la celda de color coincidente SumByColor = SumByColor + GCell.Value 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
