Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Formattazione celle colorate

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Formattazione celle colorate

Postdi CoNa » 01/08/09 15:27

Salve a tutti,

vado subito a descrivere il mio problemino: su excel 2002 vorrei che la
cella "A1" del "foglio1" si colorasse di rosso quando almeno una delle celle comprese nel
range "B1:B50" del "foglio2" è colorata anch'ella di rosso.
Grazie in anticipo per l'aiuto.
CoNa
Newbie
 
Post: 1
Iscritto il: 01/08/09 15:23

Sponsor
 

Re: Formattazione celle colorate

Postdi Anthony47 » 03/08/09 01:07

Ciao cona e benvenuto nel forum.
Il colore di una cella e' un elemento di presentazione dell' informazione, non un elemento dell' informazione stessa; insomma stai chiedendo di processare una cosa che "appare", non "è".
Comunque se spieghi con quali criteri e modalita' vengono colorate le celle B1:B50 di Foglio2 possiamo vedere se e come la richiesta puo' essere soddisfatta.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13895
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Formattazione celle colorate

Postdi Flash30005 » 03/08/09 01:28

Io nel frattempo provo a vedere se con questa macro CoNa risolve
Premetto che ho considerato che fosse lo sfondo colorato di rosso
Codice: Seleziona tutto
Sub Formattacella()
Dim Col As Integer
For Each cella In Range("B1:B50")
If cella.Interior.ColorIndex = 3 Then
Col = Col + 1
End If
Next
Range("A1").Select
If Col > 0 Then
    With Selection.Interior
        .ColorIndex = 3
        .Pattern = xlSolid
    End With
Else
    Selection.Interior.ColorIndex = xlNone
End If

End Sub


Nel caso fossero i font di colore rosso allora usa questa macro
Codice: Seleziona tutto
Sub FormattaFont()
Dim ColF As Integer
For Each cella In Range("B1:B50")
If cella.Font.ColorIndex = 3 Then
ColF = ColF + 1
End If
Next
Range("A1").Select
If ColF > 0 Then
   Selection.Font.ColorIndex = 3
Else
   Selection.Font.ColorIndex = 0
End If

End Sub


Fai sapere
Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "Formattazione celle colorate":


Chi c’è in linea

Visitano il forum: Anthony47 e 29 ospiti