Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

conta righe e colora cella

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

conta righe e colora cella

Postdi miko » 02/04/11 21:47

salve,
sto cercando di realizzare una macro che, partendo dalla cella A3, conti un preciso numero di righe, ad esempio 50, colori in rosso la cella A52, colori in giallo la cella A53;
successivamente a partire dalla cella A53 compresa, conti nuovamente 50 righe, colori in rosso la cella A102, in giallo la cella A103, e così via fino all'ultima cella della colonna A.
fino ad ora sono riuscito a trovare argomenti relativi al conto o al colore delle celle, che però non mi hanno aiutato a risolvere il problema.
credo che dovrei impostare un contatore, ma poi come faccio a far variare le variabili?
ciao, grazie
windows xp-office 2003
miko
Utente Senior
 
Post: 422
Iscritto il: 29/12/09 10:44

Sponsor
 

Re: conta righe e colora cella

Postdi Anthony47 » 02/04/11 22:57

Ad esempio in una colonna libera, supponiamo la F, in riga 1 (F1) segni il "passo" tra le righe (50, nel tuo caso); poi in riga 3 (F3) metti la formula
Codice: Seleziona tutto
=RESTO(RIF.RIGA(A1);$F$1)
che copi verso il basso.
Poi usi la formattazione condizionale per colorare in rosso se il risultato e' 0 e in gialo se il risultato e' 1.

Se invece vuoi farlo con macro, allora usa un ciclo del tipo
Codice: Seleziona tutto
For I=2 to Cells(Rows.count,1).end(xlup).Row
IC=I Mod 50  '<<< 50 e' il passo che vuoi impostare
If IC=0 then Range("A3").offset(I-1,0).Interior.Colorindex=3
If IC=1 then Range("A3").offset(I-1,0).Interior.Colorindex=6
Next I


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: 13904
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: conta righe e colora cella

Postdi ricky53 » 02/04/11 23:44

Ciao,
mi inserisco dopo le du epropsote di Anthony volendo dare anche il mio contributo alla soluzione e, non sapendo se le celle della colonna "A" siano vuote o piene, ti propongo un codice che riempe tutte le celle della colonna "A" con le regole che hai scritto tu indipendentemente dal fatto che vi siano o meno dei dati in colonna "A"
Ho ipotizzato di lavorare sul "Foglio1", in caso cambia, nel codice, Foglio1 con il tuo foglio.
Codice: Seleziona tutto
Sub Colora_Sfondo()
    Passo = 50
    UR = Rows.Count
    Riga_Inizio = 3
    For I = (Riga_Inizio - 1 + Passo) To UR Step Passo
        Sheets("Foglio1").Cells(I, 1).Interior.ColorIndex = 3
        Sheets("Foglio1").Cells(I + 1, 1).Interior.ColorIndex = 6
    Next I
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: conta righe e colora cella

Postdi miko » 05/04/11 21:23

salve,
grazie ad entrambi per il vostro contributo, le macro eseguono quello che cercavo di realizzare.
saluti
windows xp-office 2003
miko
Utente Senior
 
Post: 422
Iscritto il: 29/12/09 10:44


Torna a Applicazioni Office Windows


Topic correlati a "conta righe e colora cella":


Chi c’è in linea

Visitano il forum: Nessuno e 6 ospiti