Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

EXCEL: colorare intervallo se cella contiene una parola

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

EXCEL: colorare intervallo se cella contiene una parola

Postdi valle1975 » 07/02/14 16:48

Ciao a tutti... ci ho provato , ho cercato in giro, ma non sono riuscito ad arrivarci da solo, per cui so che Voi risolverete facilmente la mia ignoranza.. :D
Con questa Macro vorrei colorate l'intervallo di celle tra le colonne "A" e "E" per tutte le righe nelle quali, nella colonna "D" è contenuta la parola "Totale". In pratica vorrei colorare le righe create dai SUBTOTALI sotto ai dati.
La mia Macro attuale è questa , ma mi colora soltanto la cella dove trova quel valore, non tutto l'intervallo che vorrei (da colonna A ad E). Prima ho provato usando la formattazione condizionale, ma mi permette solo di impostare un criterio per un valore Uguale a "Totale", non che CONTENGA "Totale".
Codice: Seleziona tutto
Sub FormCond()
Dim Intervallo As Range
Dim Riga, R, Colonna
Set Intervallo = Range("A1").CurrentRegion
Riga = Intervallo.Rows.Count
Colonna = 6
For R = 1 To Riga
With Range(Cells(R, 1), Cells(R, Colonna))
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=$D$" & R & "=""Totale"""
.FormatConditions(1).Interior.ColorIndex = 40
End With
Next
End Sub


Grazie a tutti Voi.. Ciao.
Valerio
---------------------------------
Win Xp + MS Office 2010 Ita
valle1975
Utente Senior
 
Post: 196
Iscritto il: 27/09/10 16:33

Sponsor
 

Re: EXCEL: colorare intervallo se cella contiene una parola

Postdi wallace&gromit » 07/02/14 16:58

La macro funziona per le scritte "Totale" in colonna C, se sono in D non li troverà!
Come procedere mi sembra un po' contorto, se già fai una macro ti converrebbe fare colorare le celle e basta, invece di inserire un formato condizionale, no?
stato 2014: Office2003/2013 su win7
Avatar utente
wallace&gromit
Utente Senior
 
Post: 1421
Iscritto il: 16/01/12 14:21

Re: EXCEL: colorare intervallo se cella contiene una parola

Postdi valle1975 » 07/02/14 17:05

L'ho corretta 1 minuto dopo averla inserita, l'hai beccata proprio in quell'intervallo.... velocissimo...
Comunque controlla "D" e colora regolarmente solo quella cella , purtroppo...
Infatti io vorrei correggere questa parte di codice per colorare l'intervallo di celle, cosi' da integrarlo al resto della macro....
Avevo provato la formattazione condizionale per cercare di registrarne il codice da mettere in macro, ma non sono riuscito per i motivi sopra indicati.
grazie
Valerio
---------------------------------
Win Xp + MS Office 2010 Ita
valle1975
Utente Senior
 
Post: 196
Iscritto il: 27/09/10 16:33

Re: EXCEL: colorare intervallo se cella contiene una parola

Postdi ricky53 » 07/02/14 17:18

Ciao,
prova con questo esempio che NON utilizza la formattazione condizionale ... perchè non è necessaria per quello che chiedi.

Codice: Seleziona tutto
Option Compare Text
Option Explicit

Sub Colora_Sfondo_Cella()
    Dim Riga As Long, R As Long, WS1  As Worksheet
   
    Set WS1 = Sheets("Foglio1")
   
    Riga = WS1.Range("D" & Rows.Count).End(xlUp).Row
    For R = 1 To Riga
        If WS1.Cells(R, "D") = "TOTALE" Then
            WS1.Range("A" & R & ":D" & R).Interior.ColorIndex = 40 ' <<==== ho utilizzato il tuo valore
        Else
            WS1.Range("A" & R & ":D" & R).Interior.ColorIndex = xlNone
        End If
    Next
    MsgBox "Elaborazione effettuata", vbInformation
End Sub
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: EXCEL: colorare intervallo se cella contiene una parola

Postdi valle1975 » 07/02/14 17:43

Ciao, non funziona.... perchè cerca il valore UGUALE a "Totale", mentre a me serve che la cella "CONTIENE" la parola "Totale".....
Ovviamente opportunamente corrette le maiuscole.
Infatti se correggo in tabella il valore della cella ="Totale", allora funziona.
Valerio
---------------------------------
Win Xp + MS Office 2010 Ita
valle1975
Utente Senior
 
Post: 196
Iscritto il: 27/09/10 16:33

Re: EXCEL: colorare intervallo se cella contiene una parola

Postdi ricky53 » 07/02/14 17:51

Ciao,
il maiuscolo/minuscolo è gestito tramite
"Option Compare Text" quindi puoi scrivere TOTALE, Totale, totale, ToTaLE, ... e la condizione sarà sempre verificata

Però se, invece, Totale non è l'unica parola della cella allora non può funzionare allora va cambiata l'istruzione di confronto
da
Codice: Seleziona tutto
If WS1.Cells(R, "D") = "TOTALE" Then



in
Codice: Seleziona tutto
If WS1.Cells(R, "D") Like "*TOTALE*" Then
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: EXCEL: colorare intervallo se cella contiene una parola

Postdi valle1975 » 07/02/14 18:04

Mitico Ricky53 !!!
Cosi' è perfetto.. e ho imparato una cosa nuova, l'opzione "LIKE" che non avevo mai visto usare..
Ottimo e Buon Weekend!!!!!
Valerio
---------------------------------
Win Xp + MS Office 2010 Ita
valle1975
Utente Senior
 
Post: 196
Iscritto il: 27/09/10 16:33

Re: EXCEL: colorare intervallo se cella contiene una parola

Postdi ricky53 » 08/02/14 00:42

Ciao,
grazie per il mitico.

Alla prossima
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia


Torna a Applicazioni Office Windows


Topic correlati a "EXCEL: colorare intervallo se cella contiene una parola":


Chi c’è in linea

Visitano il forum: alfrimpa, patel e 14 ospiti