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

Saber 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. El paquete de software viene con un grupo de funciones integradas sólo para este propósito, tales como SUM, función SUMAR.SI y contar. Desafortunadamente, no hay ninguna función integrada para el cálculo de las células coloreadas. Para ello, debe crear una función definida por el usuario mediante el Editor de Visual Basic, una Oficina opcional add-on que le permite crear funciones de usuario basadas en Visual Basic.

Instrucciones

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

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

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

Dim rCell As Range

Dim LCOL As Long

Dim vResult

LCOL = rColor.Interior.ColorIndex

Si SUMA = true A continuación,

Para cada rCell En Rrange

Si rCell.Interior.ColorIndex = Entonces LCOL

vResult = WorksheetFunction.SUM (rCell, vResult)

Terminara si

Siguiente rCell

Más

Para cada rCell En Rrange

Si rCell.Interior.ColorIndex = Entonces LCOL

vResult = 1 + vResult

Terminara si

Siguiente rCell

Terminara si

ColorFunction = vResult

End Function

3 Utilizar la función ColorFunction creado por el usuario para calcular el número de células coloreadas. La sintaxis de esta función es la siguiente:

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

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

Dado que se dispone de una célula púrpura, B1, y se desea calcular el número de células de color púrpura entre hileras C1 y C12, se usaría la función de la siguiente manera:

ColorFunction (B1, C1: C12, FALSO)