Formattazione condizionale "per numeri progressivi " ?

[luca0202]

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/][/URL]

[CANAPONE]

--------------

[CANAPONE]

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

[Anthony47]

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!

[luca0202]

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

[CANAPONE]

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

[Flash30005]

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

[Anthony47]

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

[luca0202]

Grazie a tutti per l'aiuto e l'impeccabile professionalità e disponibilità .....Ognuno di voi mi ha insegnato qualcosina ....Luca