05/02/2010, 07:07
|
 | | | Fecha de Ingreso: marzo-2007 Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años, 10 meses Puntos: 88 | |
 Ayuda formula de excel
Hola! Amigo: ¡Tienes razón...! Se busca el promedio y no la suma...
Entonces procede una mínima modificación:
Código PHP: Function PromedioColor(rng_sum As Range, cld As Range) As Double
Dim C As Range, ii As Integer
Application.Volatile
For Each C In rng_sum
If IsNumeric(C) And C.Interior.ColorIndex = cld.Interior.ColorIndex Then
ii = ii + 1
PromedioColor = PromedioColor + C
End If
Next C
If ii > 0 Then PromedioColor = PromedioColor / ii
End Function
Y se aplica:
= PromedioColor(A2:A50; A2)
Saludos y gracias.  |