Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Condizione in base a colore cella

6 views
Skip to first unread message

LucaVa

unread,
Feb 7, 2012, 1:29:43 PM2/7/12
to
Salve,
all'interno di una routine, sto inserendo una istruzione del tipo

If Cells(3,7).Font.ColorIndex = 3 Then
MsgBox "Errore"
End If

Se il testo di Cells(3,7) č rosso funziona
Se il testo di Cells(3,7) č rosso in virtů di una formattazione condizionale
non funziona

Qualcuno sa dirmi come superare il problema?

Grazie.
Luca



Andrea.9

unread,
Feb 7, 2012, 2:32:33 PM2/7/12
to
non ti posso aiutare per vba ma, a naso, ti direi di controllare la
stessa condizione che ti serve per generare la formattazione
condizionale.
ciao
andrea


Maxx

unread,
Feb 9, 2012, 11:05:08 AM2/9/12
to
On 7 Feb, 19:29, "LucaVa" <lucaval...@tin.it> wrote:
> Salve,
> all'interno di una routine, sto inserendo una istruzione del tipo
>
> If Cells(3,7).Font.ColorIndex = 3 Then
>     MsgBox "Errore"
> End If
>
> Se il testo di Cells(3,7) è rosso funziona
> Se il testo di Cells(3,7) è rosso in virtù di una formattazione condizionale
> non funziona
>
> Qualcuno sa dirmi come superare il problema?
>
> Grazie.
> Luca

premesso che la soluzione proposta da Andrea è più semplice,
avrei trovato questa:

If CInt(Cells(3, 7).FormatConditions.Item(1).Formula1) = Cells(3,
7).Value Then
MsgBox "Errore"
End If

L'uguale corrisponde all'operatore della condizione di formattazione:
per esempio se è maggiore o uguale va sostituito con >=
Funziona se la condizione è numerica altrimenti va modificata.

ciao

Maxx
0 new messages