Condividi:        

colora righe alterne

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

colora righe alterne

Postdi raimea » 02/08/10 17:56

all'interno di una macro
ad un certo punto ho la funzione che mi colora
alternativamente le righe
questa la macro:
Codice: Seleziona tutto
     Range("e6:k505").Select  ' coloro righe alternate
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=SE(RESTO(RIF.RIGA();2)=0;VERO;FALSO)"
Selection.FormatConditions(1).Interior.ColorIndex = 36


solo che spesso e in righe a caso non mi colora... :(
sapete dirmi il perche ' ?
oppure qualcuno ha una macro diversa che fa la stessa cosa..?
vi ringrazio
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Sponsor
 

Re: colora righe alterne

Postdi Flash30005 » 02/08/10 19:57

Credo che tu non stia colorando le righe ma inserisci una formattazione condizionale

usa una macro tipo questa:

Codice: Seleziona tutto
Sub ColoraRigheAlt()
    Range("E6:K505").ClearFormats
    For RR = 6 To 505 Step 2
        Range("E" & RR & ":K" & RR).Interior.ColorIndex = 36
    Next RR
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: colora righe alterne

Postdi raimea » 02/08/10 20:12

azz :mmmh:
la macro sembra andare bene a meta'...

mi a colorato una riga si'. una no -->(ma si vede lo sfondo del foglio).

purtroppo mi a anche cambiato il formato delle celle...
(cosa che non devo fare).

allego il file con la mia macro x capire come dovrebbe essere...

http://rapidshare.com/files/410637072/compleanni.zip
grazie comunque x la rapida risposta
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: colora righe alterne

Postdi Flash30005 » 02/08/10 21:25

prova questa

Codice: Seleziona tutto
   Sub ColoraRigheAlt()
    Range("E6:K505").Interior.ColorIndex = 2
    For RR = 6 To 505 Step 2
        Range("E" & RR & ":K" & RR).Interior.ColorIndex = 36
    Next RR
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: colora righe alterne

Postdi raimea » 03/08/10 04:47

bingo... :D
con questa tutto ok,

ti confermo che avevi ragione, sulla mia 1ma macro riportata
metteva una formattazione condizionale.
grazie
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

colora righe alterne

Postdi raimea » 15/04/11 20:34

ciao a tutti. 8)
con questa macro coloro di grigio (15)
ogni 10 righe partendo da riga b18 fino a w308
Codice: Seleziona tutto
Range("b18:w308").Interior.ColorIndex = 2  'coloro di grigio ogni 10 righe
    For RR = 18 To 308 Step 10
        Range("b" & RR & ":w" & RR).Interior.ColorIndex = 15
    Next RR

ho il problema che mi modifica tutte le righe intermedie
cioe' me le mette bianche (cod 2), dovuto a questo pezzo di macro
Codice: Seleziona tutto
Range("b18:w308").Interior.ColorIndex = 2
.

vorrei che le righe intermedie non vengano toccate cioe' restino come sono
e se colorate rimangano del colore scelto.
come posso modificare la macro sopra ?
vi ringrazio
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: colora righe alterne

Postdi Anthony47 » 15/04/11 22:47

Prova
1- togliere Range("b18:w308").Interior.ColorIndex = 2
2- e modificare in
Codice: Seleziona tutto
If Cells(RR, 2).Interior.ColorIndex = xlNone then Range("b" & RR & ":w" & RR).Interior.ColorIndex = 15

Questa non applica la nuova formattazione se la cella B ha un colore applicato.
Questa presuppone che il tuo foglio NON abbia subito l' applicazione dell' Interior.ColorIndex = 2; se non puoi esserne certo allora dovresti usare
Codice: Seleziona tutto
If Cells(RR, 2).Interior.ColorIndex = xlNone Or _
Cells(RR, 2).Interior.ColorIndex = 2 then Range("b" & RR & ":w" & RR).Interior.ColorIndex = 15


Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

colora righe alterne

Postdi raimea » 16/04/11 05:55

:-?
al momento la macro non va.
si' il mio foglio ha gia subito l' applicazione dell' Interior.ColorIndex = 2
la nuovo macro mi si blocca subito al comando if...
Codice: Seleziona tutto
If Cells(RR, 2).Interior.ColorIndex = xlNone Or _
Cells(RR, 2).Interior.ColorIndex = 2 Then

ho tolto Range("b18:w308").Interior.ColorIndex = 2
e l'ho scritta cosi'
Codice: Seleziona tutto
If Cells(RR, 2).Interior.ColorIndex = xlNone Or _
Cells(RR, 2).Interior.ColorIndex = 2 Then Range("b" & RR & ":w" & RR).Interior.ColorIndex = 15
    For RR = 18 To 308 Step 10
        Range("b" & RR & ":w" & RR).Interior.ColorIndex = 15
    Next RR
   
End Sub

io vorrei solo colorare una riga ogni 10 partendo da riga 18 a 308 ( da b18 a w308)
e lasciare invariete le celle (righe) intermedie con i colori che le sono stati dati
x ora grazie
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: colora righe alterne

Postdi Avatar3 » 16/04/11 07:04

Non ho seguito bene l'intera conversazione ma questa macro dovrebbe risolvere il problema
Codice: Seleziona tutto
Sub ColoraRighe()
Range("b18:w308").Interior.ColorIndex = 2
    For RR = 18 To 308 Step 10
        If Cells(RR, 2).Interior.ColorIndex = xlNone Or Cells(RR, 2).Interior.ColorIndex = 2 Then Range("b" & RR & ":w" & RR).Interior.ColorIndex = 15
    Next RR
  End Sub


Ciao
Per il funzionamento delle macro si deve impostare la protezione a Bassa o Media.
Menu Strumenti -> Macro -> Protezione...
Avatar utente
Avatar3
Utente Senior
 
Post: 569
Iscritto il: 04/04/11 09:04

Re: colora righe alterne

Postdi raimea » 16/04/11 10:33

.
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: colora righe alterne

Postdi raimea » 16/04/11 11:53

x avater 3
questa non va bene x i motivi sopra descritti.
cioe' mi colora tutte le righe intermedie di bianco
mentre a me serve che le righe intermedia restino come sono.
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: colora righe alterne

Postdi Anthony47 » 16/04/11 12:49

L' interpretazione di Avatar3 e' corretta, salvo che (come da mio punto 1) devi anche togliere Range("b18:w308").Interior.ColorIndex = 2

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

colora righe alterne

Postdi raimea » 16/04/11 14:17

ok il "ragionamento " l'ho capito ma non mi funge.. :!:
questa la macro che ho messo:
Codice: Seleziona tutto
Sub colorariga()

    For RR = 18 To 308 Step 10
        If Cells(RR, 2).Interior.ColorIndex = xlNone Or _
Cells(RR, 2).Interior.ColorIndex = 2 Then Range("b" & RR & ":w" & RR).Interior.ColorIndex = 15
       
        Next RR
   
    Range("H1").Select
End Sub


non mi da errore ma non mi colora nemmena la/le righe che vorrei...
(la parte della riga che si vede -grigia- lo messo manualmente)

la macro deve operare nel fogl 1 base.
provo ad alegare il file

http://www.sendspace.com/file/4hp9u8
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: colora righe alterne

Postdi ricky53 » 16/04/11 18:03

Ciao
La macro colora correttamente le righe 18,28,38, ...
Ho provato sul tuo file e su un file nuovo: tutto O.K.
Non capisco perchè hai scritto "non mi funge" !!!

ATTENZIONE: la riga "18" del foglio excel corrisponde alla tua numerazione di riga "10" !!!
Considera che la macro lavora sulle righe di excel ... quindi se vuoi colorare di grigio la tua riga "18" devi modificare
Codice: Seleziona tutto
For RR = 18 To 308 Step 10

con
Codice: Seleziona tutto
For RR = 26 To 316 Step 10


controlla ...
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: colora righe alterne

Postdi raimea » 16/04/11 18:11

no riky
le righe del file le ho colorate io manualmente, in questo foglio.
prova a cambiarle il colore e vedi che la macro non le mette grigie.
non e' certo un problema di numerazione, e' come ho scritto, a me servono
grigie le righe 18 (excell) e 10 del mio file.
inoltre io vorrei grigia L'INTERA riga da col B a--> W
(salvo le celle con condiz. condizionali.)

si', confermo che se applico la macro sopra in un foglio nuovo funziona.
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: colora righe alterne

Postdi ricky53 » 16/04/11 18:27

Ciao,
prima di risponderti avevo provato altrimenti non ti avrei scritto quanto presente mel mio precedente intervento!

Avevo eseguito la macro "colorariga" presente nel Modulo17 ottenendo il grigio nelle righe 18,28,38,. ... di excel.
L'unica cosa che non va è che ilgrigio è su tutte le colonne "B:W", se non vuoi colorare alcune colonne devi modifcare la macro in questo punto
Codice: Seleziona tutto
Range("b" & RR & ":w" & RR).Interior.ColorIndex = 15

spezzando l'istruzione in più intervalli in base a come ti occorre !
Ad esempio
Codice: Seleziona tutto
Range("B" & RR & ":G" & RR).Interior.ColorIndex = 15
Range("I" & RR & ":I" & RR).Interior.ColorIndex = 15
...
...

Tu come esegui la macro chiamandola da altre macro o manualmente ?
Io lavoro con Office 2003 !!!

E' lento.
Se scrivi un valore in una cella oppure copi il formato ricalcola le celle e ci mette diversi secondi (circa 10-12).
Ma quante formule hai inserito ????
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: colora righe alterne

Postdi raimea » 16/04/11 18:55

riky53 a ragione
chiedo venia... :undecided:
io mi sono accorto dopo che la macro funziona,
ma SOLO se trova la prima cella B18 ,B28, b38 ecc.... senza nessun colore.
dopo un primo ciclo di colore la riga da b-->w se e' grigia e il colore si toglie es. in D18
la macro non ri-colora piu perche' trova la cella b18 gia grigia.
ora mi servirebbe solo aggirare questo.

si', il file e' lento per l'elevato numero di formule, non sono capace di farlo in altri modi
ma cosi x ora mi va bene.
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: colora righe alterne

Postdi ricky53 » 16/04/11 19:25

Ciao,
allora servono le condizioni per cui vuoi colorare tutte la riga (con le eccezioni viste).
Potrebbe essere:
se il colore della i-esima cella in colonna B, C, D, ... è diverso da "15" colora la cella con "15".

Questo ti andrebbe bene ?
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: colora righe alterne

Postdi raimea » 16/04/11 20:13

si'
mi serve cosi, --> colora la riga 18.28,38 ecc... partendo da col b a w
indifferentemente da cosa trova.
alla fine voglio avere tutta la riga di colore grigio.
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: colora righe alterne

Postdi ricky53 » 16/04/11 22:03

Ciao
adesso hai scritto
mi serve cosi, --> colora la riga 18.28,38 ecc... partendo da col b a w
indifferentemente da cosa trova.
alla fine voglio avere tutta la riga di colore grigio.


prima avevi scritto
inoltre io vorrei grigia L'INTERA riga da col B a--> W
(salvo le celle con condiz. condizionali.)


Insomma non sono la stessa cosa !!!

Per risolvere ti faccio io la domanda precisa:
le celle 18, 28, 38, ... nelle colonne "H", "J", "M", "P" le vuoi di colore grigio ("15") ?
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

Prossimo

Torna a Applicazioni Office Windows


Topic correlati a "colora righe alterne":


Chi c’è in linea

Visitano il forum: Nessuno e 31 ospiti