Condividi:        

Excel Colora tutte le occorrenze

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 Colora tutte le occorrenze

Postdi Statix » 27/09/09 23:36

Ciao a tutti,
ho bisogno di modificare questa macro,per colorare tutte le occorrenze,
la macro postata trova solo la prima occorrenza .
Ho provato a cercare la macro che lo faceva,ma non riesco più a trovarla.
Codice: Seleziona tutto
Sub Colora()
'Sheets("Sistema").Select


On Error Resume Next
For Each Ambo In Range("B2:U2")
Range("B4:K49").Select
Cells.Find(What:=Ambo, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, _
   SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
If ActiveCell.Address <> "$B$4" Then ActiveCell.Interior.ColorIndex = 6
Next Ambo
'Application.Calculation = xlCalculationAutomatic

End Sub



Immagine
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Sponsor
 

Re: Excel Colora tutte le occorrenze

Postdi Statix » 28/09/09 23:16

Ciao a tutti,
volevo chiarire che la stessa cosa si puo fare tranquilamente con la formattazione condizionale,
ma,mi serve la macro perche una volta colorate le celle posso contarle con una Function.

con la formattazione condizionale
Codice: Seleziona tutto
=Conta.Se($B$2:$U$2;B4:K49)>0

con la macro ci ho provato con una postata tempo fa, ma non va del tutto.
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel Colora tutte le occorrenze

Postdi Flash30005 » 29/09/09 07:40

Dovresti spiegare se vuoi colorare le celle B4:K49 contenenti i valori del range B2:U2 indipendentemente se è un ambo o numero singolo

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Excel Colora tutte le occorrenze

Postdi Statix » 29/09/09 08:12

Ciao Flash3005

devo colorare le celle B4:K49 contenenti i valori di B2:U2,presi singolarmente e di un solo colore,
come la formattazione condizionale
Codice: Seleziona tutto
=Conta.Se($B$2:$U$2;B4:K49)>0
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel Colora tutte le occorrenze

Postdi Flash30005 » 29/09/09 09:03

Prova questa
Codice: Seleziona tutto
Sub ColoraVal()
For C1 = 2 To 21
    Val1 = Cells(2, C1).Value
    For R2 = 4 To 49
        For C2 = 2 To 11
            Val2 = Cells(R2, C2).Value
            If Val1 = Val2 Then Cells(R2, C2).Interior.ColorIndex = 6
        Next C2
    Next R2
Next C1
End Sub


Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Excel Colora tutte le occorrenze

Postdi Statix » 29/09/09 09:16

Ciao Flash3005
provata,tutto ok.
grazie
Statix
Windows 10,
Office 2013,
Statix
Utente Senior
 
Post: 1287
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta


Torna a Applicazioni Office Windows


Topic correlati a "Excel Colora tutte le occorrenze":


Chi c’è in linea

Visitano il forum: Nessuno e 81 ospiti