Visual Basic - cómo actualizar el resultado de una función

Life is soft - evento anual de software empresarial
 
Vista:

cómo actualizar el resultado de una función

Publicado por Daniel Ulczyk (1 intervención) el 19/03/2007 17:17:29
Estimados:
He dado en la web, con el código que posteo al pie. El cual me es útil para sumar celdas con determinado color de fondo.
Ahora bien, si en el diseño de la hoja cambio el color de fondo de alguna celda, ya sumada; no veo en forma inmediata el cambio de resultado en la función =SUMCOLOR
Cómo se modifica esta función para tal solicitud.

Daniel Ulczyk


Function SumColor(rColor As Range, rSumRange As Range)

''''''''''''''''''''''''''''''''''''''
'Written by Ozgrid Business Applications
'www.ozgrid.com
'http://www.ozgrid.com/VBA/Sum.htm
'Sums cells based on a specified fill color.
'''''''''''''''''''''''''''''''''''''''
Dim rCell As Range
Dim iCol As Integer
Dim vResult

iCol = rColor.Interior.ColorIndex

For Each rCell In rSumRange
If rCell.Interior.ColorIndex = iCol Then
vResult = WorksheetFunction.Sum(rCell) + vResult
End If
Next rCell

SumColor = vResult
End Function
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:cómo actualizar el resultado de una función

Publicado por Pedrito (50 intervenciones) el 20/03/2007 19:38:48
Lo que tienes q hacer es luego del evento q cambias de color, llamar nuevamente a la funcion con el call luego de eso te funciona
bye suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar