EXCEL scritta se una cella è colorata in un determinato modo

[albertofox]

Buongiorno. Ormai sono diversi giorni che ci sbatto la testa. Avrei bisogna di una formula (creata con vba, ma io sono una pippa) che mi inserisca una determinata scritta a seconda di come è formattata una determinata cella.
Mi spiego meglio. Se la cella A1 è colorata di rosso, nella cella A2 ho bisogno che mi venga scritto ROSSO.
Inoltre, avrei bisogno che, oltre al colore di sfondo, la formula mi riconoscesse anche i colori del testo.

Spero che riuscirete ad aiutarmi, nel frattempo vi ringrazio in anticipo

[alfrimpa]

Ciao Alberto

Se alleghi un file di esempio è meglio comunque questa macro

Codice: Seleziona tutto

Sub macro()
      If range("A1").Interior.ColorIndex = 3 Then
             Range("A2").Value = "ROSSO"
      End if
End If

Ti scrive in A2 "ROSSO" se lo sfondo della cella A1 è rosso.

[ricky53]

Ciao,
attenzione che se nella cella hai impostato la formattazione condizionale che colora la cella il VBA NON può riconoscere questa colorazione !!!

[ricky53]

Caio,
per il colore del font

Codice: Seleziona tutto

Range("A1").Font.ColorIndex

Per altre proprietà utilizza il registratore di macro e prova a cambiare il Font, la grandezza, il corsivo, il grassetto, ecc. ed avrai le istruzioni da utilizzare.

[alfrimpa]

Hai ragione Ricky mi ero dimenticato della formattazione condizionale.

[albertofox]

purtroppo credo di non essermi espresso bene, ti allego il file e provo a spiegarmi meglio.

Nelle colonne che vanno da I a O ho dei valori. Il colore assegnato a questi valori rappresenta un "movimento" avuto. Ora ci sono diversi tipi di movimento (grande, piccolo, rialzo, discesa ecc.). Mi servirebbe che in una cella apparte excel mi scriva ad esempio cella I9 rossa, nella cella P9 mi scriva "Rialzo". il tutto deve essere sempre visibile. Al momento lo sto facendo a mano ma mi ci vuole una vita...


File:
http://www.filedropper.com/italia-serieb

[alfrimpa]

Ciao Alberto

Prova a vedere il file allegato nel quale ho inserito la seguente macro associata al pulsante "Evidenzia"

Codice: Seleziona tutto

Sub evidenzia()
Dim rng As Range
Dim cel As Range
Set rng = Range("i1:i500")
For Each cel In rng
    If cel.Interior.ColorIndex = 3 Then
        cel.Offset(0, 7).Value = "Rialzo"
    End If
Next cel
End Sub


Questo è il link

http://www.filedropper.com/alberto

Fammi sapere se era questo quello che volevi.

[alfrimpa]

Oppure in quest'altro modo è più semplice

Con questa function

Codice: Seleziona tutto

Function Evidenzia(a As Range)
If a.Interior.ColorIndex = 3 Then
    Evidenzia = "Rialzo"
    Else
    Evidenzia = ""
End If
End Function

basta scrivere in P1

Codice: Seleziona tutto

=Evidenzia(i1)

e copi la formula giù per la righe e a destra per le colonne che ti servono.

Ti allego file già compilato.

http://www.filedropper.com/alberto1

Fai sapere.

[albertofox]

Sei un grandissimo alfri! GRAZIE INFINITE! Xo, siccome a me serve che, oltre a riconoscermi quando la cella è rossa o verde, mi servirebbe che riconoscesse anche nel caso in cui il font sia colorato. Ho provato a fare qualcosa ma proprio non va...(in verità ci ho perso un bel po la testa ma niente)...il codice che ho creato è questo

Codice: Seleziona tutto

Function evidenzia(a As Range)
If a.Interior.ColorIndex = 3 Then
    evidenzia = "Discesa"
    ElseIf a.Interior.Color = 5350912 Then
    evidenzia = "Rialzo"
    ElseIf a.Font.Color = RGB(240, 0, 0) Then
    evidenzia = "Piccola Discesa"
    ElseIf a.Font.Color = RGB(0, 144, 0) Then
    evidenzia = "Piccolo Rialzo"
    Else
    evidenzia = "Black"
End If

End Function


Dove ho sbagliato?

[alfrimpa]

Ciao Alberto

Mi devi dire con tutte le combinazioni possibili di colore di sfondo e testo che risultato deve venir fuori.

[albertofox]

Ciao grandissimo buongiorno allora le combinazioni sono 4
Se la cella è rossa -> discesa
Se la cella è verde -> rialzo
Se il font è rosso -> piccola discesa
Se il font è verde -> piccolo rialzo

Se nessuno dei 4 è presente, scritta black.

Come vedi ci ho provato a farlo (ho imparato qualcosa, come la funzione if else, e select case ma purtroppo non ne vengo a capo :d ).

L'unica cosa che forse hai bisogno di sapere, il verde del font, non è lo stesso verde del riempimento cella. Nel codice che ho postato ci sono i valori RGB.

Ps: ti devo una birrona

[alfrimpa]

Ciao Alberto

Non sono sicuro di aver capito bene; ti allego altro file dove ho inserito questa function

Codice: Seleziona tutto

Function miovaluta(a As Range)
If a.Interior.ColorIndex = 3 Then
    miovaluta = "Discesa"
    ElseIf a.Interior.ColorIndex = 14 Then
    miovaluta = "Rialzo"
    ElseIf a.Font.ColorIndex = 3 Then
    miovaluta = "Piccola discesa"
    ElseIf a.Font.ColorIndex = 14 Then
    miovaluta = "Piccolo rialzo"
    Else
    miovaluta = "Black"
End If
End Function


che spero faccia quello che hai chiesto.

http://www.filedropper.com/alberto2

P.S. MI sono accorto ora che la tua function è sostanzialmente uguale alla mia perché dici che non funziona?

[albertofox]

Appena sono a casa lo provo e ti faccio sapere, il mio unico dubbio sono i colori dei font, perche il rosso del riempimento cella, non è lo stesso rosso del font...eventualmente volessi cambiare il ColorIndex, per impostarlo con i valori RGB...come dovrei fare? Cmq grazie ancora sei stato fantastico

[albertofox]

L ho aperto con il telefono, e se non erro non riconosce il valore del "piccolo rialzo", infatti lo imposta come black.

La mia function non ho capito perche non funziona mi impostava solo i colori di riempimento ed il black

[alfrimpa]

Ciao Alberto

Ho ridato un rapido sguardo ed a me pare che mia function funzioni bene.

Controlla per bene anche tu ed eventualmente segnala eventuali discrepanze.

P.S. Non credo ci sial la necessità di usare la funzione RGB()

[albertofox]

EDIT! Ho risolto! come ti dicevo i colori che riempivano le celle non sono gli stessi dei font. Ho cambiato il "ColorIndex = 14" in "Color = RGB ecc." ed ora funziona! sei stato grandioso! GRAZIE!