Cómo calcular las células coloreadas en Excel 2003

Conocer cómo utilizar las funciones para realizar cálculos en Microsoft Excel 2003 es fundamental para la creación de hojas de cálculo de gran alcance. La suite de software viene con un grupo de funciones integradas para este fin , tales como SUM, cálculo SUMAR.SI y CUENTAN . Desafortunadamente , no hay ninguna función integrada de cálculo de células coloreadas . Para ello , debe crear una función definida por el usuario mediante el Editor de Visual Basic, una Oficina complemento opcional que le permite crear funciones de usuario de Visual Basic basados ​​. Cosas que necesitará
Visual Basic Editor
Ver Más instrucciones
1

Acceso Editor de Visual Basic , haga clic en el botón de " Herramientas" en la parte superior de la pantalla, navegando a " . Editor de Visual Basic " la opción "Macro " y luego haciendo clic en
2

Copia y pega el siguiente módulo de programación Visual Basic en el Editor de Visual Basic, y luego guardarlo :

Función ColorFunction ( rcolor como gama , Rrange como gama , SUM Opcional As Boolean )

rCell As Range

LCOL Dim As Long Dim

vResult

LCOL = rColor.Interior.ColorIndex

Si SUM = True Luego

For Each rCell En Rrange

Si rCell.Interior.ColorIndex = LCOL Entonces

vResult = WorksheetFunction.SUM ( rCell , vResult )

End If

Siguiente rCell

demás

For Each rCell En Rrange

Si rCell.Interior.ColorIndex = LCOL Entonces

vResult = 1 + vResult

End If

Siguiente rCell

End If

ColorFunction = vResult

End Function
3

utilizar los creados por el usuario ColorFunction función para calcular el número de células de color . La sintaxis de esta función es la siguiente :

ColorFunction ($ A $ 1, $ B $ 1: $ B $ 2, FALSO)

donde $ A $ 1 representa la celda que desea comparar, $ B $ 1 y $ B $ 2 representan un rango de celdas a lo largo de una sola columna y true indica la función de contar.

Teniendo en cuenta que usted tiene un celular púrpura, B1, y se desea calcular el número de células de color púrpura entre las filas C1 y C12 , se utiliza la función de la siguiente manera :

ColorFunction ( B1, C1: C12 , FALSO)