Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Formattazione condizionale "per numeri progressivi " ?

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

Formattazione condizionale "per numeri progressivi " ?

Postdi luca0202 » 05/06/12 18:23

Buonasera a tutti come da titolo sono a chiedere aiuto a chi volesse dirmi se è possibile con una formula in formattazione condizionale è possibile evidenziare numeri progressivi 3/4/5 evidenziandoli con colorazioni diverse ....come da esempio in alcune righe fatto manualmente nel foglio visibile nell'immagine che vi allego .Rigrazio anticipatamente chi volesse aiutarmi Luca
URL=http://imageshack.us/photo/my-images/163/78032253.png/]Immagine[/URL]
luca0202
Utente Junior
 
Post: 56
Iscritto il: 20/08/10 10:56

Sponsor
 

Re: Formattazione condizionale "per numeri progressivi " ?

Postdi CANAPONE » 05/06/12 18:54

--------------
---------------
Excel 2004 su Mac
Excel 2010 su Windows 8
CANAPONE
Utente Senior
 
Post: 425
Iscritto il: 22/11/10 15:43
Località: Firenze

Re: Formattazione condizionale "per numeri progressivi " ?

Postdi CANAPONE » 05/06/12 19:15

Ciao, uso Excel 2003, spero di essere chiaro.

Come regola per la formattazione condizionale potresti impostare in B7

=O(B7=C7-1;B7+1=A7)


Scelto il colore dello sfondo basta copiare B7 ed incollare con incolla speciale formato il formato condizionale sull'area dei numeri.

Spero arrivino soluzioni più eleganti.

Saluti
---------------
Excel 2004 su Mac
Excel 2010 su Windows 8
CANAPONE
Utente Senior
 
Post: 425
Iscritto il: 22/11/10 15:43
Località: Firenze

Re: Formattazione condizionale "per numeri progressivi " ?

Postdi Anthony47 » 05/06/12 23:17

Non raccolgo la sfida alla soluzione elegante e propongo questa macro:
Codice: Seleziona tutto
Sub format0202()
MyRan = "B7:U20"      '<<< Le celle con i numeri da testare
Range(MyRan).Interior.ColorIndex = xlNone
For I = 0 To Range(MyRan).Rows.Count - 1
    MyCnt = 1: preval = -1
    For J = 0 To Range(MyRan).Columns.Count - 1
    Range(MyRan).Range("A1").Offset(I, J).Select
    If Range(MyRan).Range("A1").Offset(I, J) <> (preval + MyCnt) Then
        If MyCnt > 2 Then
            Range(MyRan).Range("A1").Offset(I, J - MyCnt).Resize(1, MyCnt).Interior.ColorIndex = MyCnt * 2
        End If
        preval = Range(MyRan).Range("A1").Offset(I, J): MyCnt = 1
        Else
        MyCnt = MyCnt + 1
    End If
    Next J
Next I
End Sub

Ciao a tutti!
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: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Formattazione condizionale "per numeri progressivi " ?

Postdi luca0202 » 06/06/12 13:55

Ringrazio entrambi per l'interessamento e la risoluzione al mio problema ....
Canapone funziona ma forse con excel diversi non fa proprio esattamente quello che vorrei nel senso che evidenzia dove si verifica la condizione ma l' ultimo non lo evidenzia ...nel senso trova una coppia di numeri consecutivi ed evidenzia solo il primo ...se ne trova 3 evidenzia solo i primi 2 ....e cosi via...
Antony fa esattamente quello che volevo ...vorrei chiederti un paio di cose ...
1° se volessi aggiungere anche le coppie di numeri consecutivi ?
2° il colore da cosa è determinato nella macro che hai creato ...se volessi cambiarli è possibile?
3° il foglio che utilizzo si aggiorna automaticamente con una query e le righe diventano giornalmente circa 280 e ho cambiato questa riga con MyRan = "B7:U20" - MyRan = "B7:U280" ,l'aggiornamente avviene ogni 5 minuti la mia domanda è ma come faccio a automatizzare la macro senza ogni volta entrare in sviluppo del foglio e avviarla ?
Spero di essere stato chiaro ringrazio ancora per l'interessamento Luca
luca0202
Utente Junior
 
Post: 56
Iscritto il: 20/08/10 10:56

Re: Formattazione condizionale "per numeri progressivi " ?

Postdi CANAPONE » 06/06/12 15:01

Ciao a tutti,

Luca la formula è sbagliata, non si tratta della versione di Excel: grazie della generosa fiducia.

Cercavo di non attivare la formattazione nel caso di numeri consecutivi con la prima colonna

Questa regola - brutta- spero funzioni meglio; ho fatto qualche prova questa volta.

Sempre in B7

Codice: Seleziona tutto
=O(E(RIF.COLONNA()=2;B7=C7-1);E(RIF.COLONNA()>2;O(B7=A7+1;B7=C7-1)))


Si potrebbe anche sfruttare RESTO invece delle differenze. Esempio: se resto(c7;b7)=1

Un caro saluto ad Anthony47
---------------
Excel 2004 su Mac
Excel 2010 su Windows 8
CANAPONE
Utente Senior
 
Post: 425
Iscritto il: 22/11/10 15:43
Località: Firenze

Re: Formattazione condizionale "per numeri progressivi " ?

Postdi Flash30005 » 06/06/12 15:09

Mi intrometto perché la prima formula di Canapone era semplice ed elegante :)
è sufficiente correggerla così
Codice: Seleziona tutto
=O(B7=C7-1;B7=A7+1)


Però se le celle abitate sono tante la macro rende il file meno "pesante"

Saluti a tutti
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Formattazione condizionale "per numeri progressivi " ?

Postdi Anthony47 » 06/06/12 21:34

Guarda i messaggi di canapone e flash sopra.

Per identificare anche le coppie modificherai da If MyCnt > 2 Then a If MyCnt > 1 Then

L' indice di colore lo prelevo direttamente da MyCnt (che e' il contatore delle celle contigue progressive), e lo applico con l' istruzione
Codice: Seleziona tutto
Range(MyRan).Range("A1").Offset(I, J - MyCnt).Resize(1, MyCnt).Interior.ColorIndex = MyCnt * 2
(*2 perche' il solo MyCnt produceva dei colori a me antipatici...)
Se vuoi variare l' approccio dovrai associare un colorindex a ogni MyCnt

Se i tuoi dati derivano da una Query allora probabilmente sul tuo foglio esiste un intervallo che ha il nome della query; trova quel nome e invece di definire le celle definisci questo nome:
Codice: Seleziona tutto
MyRan = "IlNomeDellintervallo"

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

Re: Formattazione condizionale "per numeri progressivi " ?

Postdi luca0202 » 07/06/12 17:46

Grazie a tutti per l'aiuto e l'impeccabile professionalità e disponibilità .....Ognuno di voi mi ha insegnato qualcosina ....Luca
luca0202
Utente Junior
 
Post: 56
Iscritto il: 20/08/10 10:56


Torna a Applicazioni Office Windows


Topic correlati a "Formattazione condizionale "per numeri progressivi " ?":


Chi c’è in linea

Visitano il forum: enrico43 e 8 ospiti