Excel Se com Condicional por Cor

[crownics]

Pessoal, bom dia!

 

Poderiam me ajudar?

 

Queria saber se tem como fazer uma formula "SE", onde a condicional da formula fosse a cor de uma celular. Exemplo:

 

Se a célula for cor branca, o valor tem que ser "0" e se for Azul tem que ser "1".

Vi quem tem alguns macros que "criam" uma função baseada nas cores, mas não sei como criar.

 

[AfonsoMira]

@crownics Boas, poderia deixar um ficheiro com as cores que vai utilizar para eu saber quais os números ? Obrigado!

Em principio a macro VBA fica algo deste género:
 

Public Function CorCelula(rng As Range)

    CorCelula = rng.Interior.Color 'Vai buscar a cor da célula
    
    'Se a cor for branca então
    If CorCelula = 16777215 Then
        CorCelula = 0
    'Se a cor for azul então
    ElseIf CorCelula = 55 Then 'Substituir 55 pelo número da cor azul
        CorCelula = 1
    End If
    
End Function

 

Depois para chamar basta colocar na célula que pretende os valores:
 

=CorCelula(célula onde está a cor)

 

Ps. Caso não consiga identificar o numero da cor azul por favor envie ficheiro com a mesma para poder ajudar.

[crownics]

@AfonsoMira a cor exata do azul é RGB (182, 221, 232), mas pensando melhor, não daria para adequar a fórmula de modo a imprimir 1 para toda celular com cor diferente de branca?

[AfonsoMira]

@crownics Sim dá, fica algo como:
 

Public Function CorCelula(rng As Range)

    CorCelula = rng.Interior.Color 'Vai buscar a cor da célula
    
    'Se a cor for branca então
    If CorCelula = 16777215 Then
        CorCelula = 0
    'Se diferente de branco
    Else
        CorCelula = 1
    End If
    
End Function