Excel - Formula para saber el color del texto.

 
Vista:

Formula para saber el color del texto.

Publicado por Despi (2 intervenciones) el 25/01/2012 16:46:14
Hola y ante todo muchas gracias a todos.

Mi consulta es la siguiente :
Necesito que mediante un fórmula, si estoy situado por ejemplo en la celda A2, mire el texto de la celda A1, si la celda contiene un texto concreto, por ejemplo "TEXO A BUSCAR", mire el color del texto, y si por ejemplo es rojo ponga un "1" en la celda A2 y si nó un "0".
El excel que utilizo es el 2007.

Gracias de antemano.
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
Imágen de perfil de JuanC

Formula para saber el color del texto.

Publicado por JuanC (1237 intervenciones) el 26/01/2012 23:01:10
mediante fórmulas lo veo dificil (casi imposible diría)...
con un UDF podría ser algo así...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function ColorTexto(ByVal rng As Range) As Long
Dim n&
On Error Resume Next
n = -1
Application.Volatile True
If VBA.Trim(VBA.UCase(rng.Value)) = "TEXTO A BUSCAR" Then
   If rng.Font.ColorIndex = 3 Then
      n = 1
   Else
        n = 0
   End If
End If
ColorTexto = n
End Function


NOTA:
al cambiar el color de fuente de la celda no se recalcula automáticamente la fórmula, presionar F9
podría hacerse una macro que capture los eventos o programar una clase específica... pero se
complica bastante... (en realidad no es pa' tanto! jeje)

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

Formula para saber el color del texto.

Publicado por Despi (2 intervenciones) el 29/01/2012 18:03:19
Muchas gracias JuanC.
Ya veo que el tema de hacerlo mediante formula parece imposible, así que probaré con tu sugerencia.
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

Formula para saber el color del texto.

Publicado por Sam (1 intervención) el 18/12/2017 15:27:37
Lo más sencillo es que insertes un Módulo con esta función:

Function Color_Texto(Celda As Range) As Integer
Color_Texto = Celda.Font.ColorIndex
End Function

Así puedes comprobar el color de la celda que quieras desde una función y te sirve para cualquier color / celda:

=SI(Color_Texto("A1")=3;1;0)
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