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
---------------------------------
Windows 10 Professional + MS Office 2016 STD Ita
valle1975
Utente Senior
 
Post: 213
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?
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
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
---------------------------------
Windows 10 Professional + MS Office 2016 STD Ita
valle1975
Utente Senior
 
Post: 213
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. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
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
---------------------------------
Windows 10 Professional + MS Office 2016 STD Ita
valle1975
Utente Senior
 
Post: 213
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. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
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
---------------------------------
Windows 10 Professional + MS Office 2016 STD Ita
valle1975
Utente Senior
 
Post: 213
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. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
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: Ricky0185 e 33 ospiti