Visual Basic para Aplicaciones - Ayuda Funcion que cambie color

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda Funcion que cambie color

Publicado por Alberto Opus (2 intervenciones) el 27/10/2007 20:00:23
Hola a todos:

En una celda de excel, Cuando solo hay texto, es factible cambiar el color de cada palabra de forma individual. Sin embargo cuando tengo la necesidad de teclear texto y una formula, ya no me permite modificar.

si en una celda tecleo:

="Resultados es "&Color1(A4,B4,C4)

y tengo una macro con

Public Function Color1(ByVal cad1 As Single, ByVal cad2 As Single, ByVal cad3 As Single)
Color1 = Val(Format(cad1 + cad2 + cad3, "[Blue]###,###.00"))
End Function

Necesito que me regrese el resultado de la suma pero que lo escriba en color diferente.

La macro me regresa el resultado pero no logro hacer que cambie el color.

Agradecere cualquier comentario

gracias
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:Ayuda Funcion que cambie color

Publicado por JuanC (243 intervenciones) el 27/10/2007 23:57:09
una función no puede modificar las propiedades de una celda
aunque en verdad hay maneras de hacerlo... cuestión de investigar...
una con un módulo de clase (para interceptar los eventos de la hoja) y
otra con una variable global (Range) y utilizando el evento Worksheet_Change...

Saludos desde Baires, JuanC
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