SOS per una formula tostissima con excel!

[al3ssio]

Ciao a tutti, se vi scrivo è perchè, dopo tanto rompermi la testa, devo ammettere di non essere riuscito a scrivere una formula per un'operazione che a prima vista sembra facile, ma che in realtà non lo è. O almeno questa è la mia visione del problema.

Ve lo illustro:

Ho una sequenza di numeri in una riga excel cosi fatta:

000000001000000000003002000000460000000500000607000000000
(in pratica è una successione di numeri da 1 a 7 che, oltre a non essere necessariamente in ordine crescente, possono essere fra loro separati da uno zero).

Il mio obiettivo è di avere un'altra riga al di sopra di questa con questo aspetto:

11111111133333333333222444444465555555566666677000000000

In pratica, si tratta di togliere gli zeri (tranne quelli finali che seguono il 7 e che vanno lasciati), ponendoli uguali alla prima cifra che segue la sequenza (di zeri stessi).

Spero di esser stato chiaro, altrimenti non esitate a pormi domande e chiarimenti.

Confido in voi.

Come sempre.

A.

[Anthony47]

Cia Alessio, una domanda:
1) dato che le cifre nel numero non sono necessariamente crescenti, cosa intendi con "tranne quelli finali che seguono il 7 e che vanno lasciati"? nel senso che il 7 potrebbe non essere alla fine della stringa: e' prevalente il concetto di "7" o di "ultima cifra nella stringa a parte gli 0"?

Ciao,

[taurex]

inoltre, la stringa ha una lunghezza costante o variabile?

[Alexsandra]

Devi contare la lunghezza della stringa e togliere gli 0 e al loro posto mettere la lettera(numero) che segue lo 0

00000345 diventa
33333345

solo quando trova il 7 devi lasciare gli zeri e non effettuare la sostituzione.

Anche con una stringa a lunghezza variabile risolvi contandone i caratteri.

Però, mi piacerebbe sapere da dove la ricavi?
la importi in excel da altro programma ?

[al3ssio]

Allora:
1)Innanzitutto non si tratta di una stringa. Immaginate semplicemente che le varie cifre si susseguano in una serie di celle adiacenti di una stessa riga;

2)Questa successione di cifre, come detto, ha sempre la seguente struttura: inizia con degli zeri,poi si susseguono (una sola volta ciascuna) le cifre 1,2,3,4,5,6,7 che possono o meno, a loro volta, essere separate da uno o più zeri. Infine, la successione termina con degli zeri.

Quello che voglio ottenere (nelle celle di un'altra riga) mi sebra sia chiaro. Non esitate a porre altre domande.


Grazie per l'interesse.

Alessio.

[archimede]

Supponendo che la prima cella da cui parte la sequenza di numeri sia A1 e che il risultato tu lo voglia nella riga 2, prova a mettere la seguente formula in A2 e copiala a destra fin dove necessario:

Codice: Seleziona tutto

=SE(A1>0;A1;SE(B1=0;B2;B1))

HTH.

Alessandro

[al3ssio]

Grazie mille alessandro!
(Io partivo sempre dall'ultima cella della sequenza e le confrontavo a due a due, ma così facendo avevo un casino di condizioni! Così è perfetta!)


P.S.
Ultima cosuccia rapida rapida... mi piacerebbe, una volta creata questa sequenza numerica, dare ad ogni cella un colore a seconda del valore che vi si trovi. Purtroppo la formattazione condizionale permette di mettere solo 3 condizioni, mentre io ho 7 cifre (1,2,3,4,5,6,7). C'è un modo per dare un colore ad ogni cifra? (magari una formula che permette di scegliere il colore di riempimento della cella a seconda del valore che vi è all'interno).

[archimede]

Purtroppo la formattazione condizionale permette di mettere solo 3 condizioni, mentre io ho 7 cifre (1,2,3,4,5,6,7). C'è un modo per dare un colore ad ogni cifra? (magari una formula che permette di scegliere il colore di riempimento della cella a seconda del valore che vi è all'interno).

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)

Dim icolor As Integer
If Not Intersect(Target, Range("A1:A10")) is Nothing Then
 Select Case Target
  Case 1 To 5
     icolor = 6
  Case 6 To 10
     icolor = 12
  Case 11 To 15
     icolor = 7
  Case 16 To 20
     icolor = 53
  Case 21 To 25
     icolor = 15
  Case 26 To 30
     icolor = 42
  Case Else
     icolor = 0
 End Select
 Target.Interior.ColorIndex = icolor
End If
End Sub

Cambia A1:A10 e le altre condizioni a seconda delle tue esigenze.

HTH.

Alessandro

[al3ssio]

:-/

Ciao Archimede,

mi dai una mano per capire come usare queste stringhe? Non sono pratico di macro (se si tratta di macro)... e qual è la corrispondenza codice-colore?

Grazie mille


Alessio

[al3ssio]

Dove metto esattemante questa stringa, SOS...

A

[Anthony47]

Ciao Alessio,
allora fai cosi:
-tasto destro sul tab del tuo foglio
-scegli l' opzione "Mostra codice"
-ti si apre il vba editor non in un "Modulo" standard ma nella pagina di codice "di Foglio"
-incolli sulla parte destra (dovrebbe essere tutta bianca) il codice di Archimede.

Se, come dici, il contenuto della tua cella e' sempre compreso tra 1 e 7 potresti usare questi numeri direttamente come indice di colore, con la seguente macro:

Codice: Seleziona tutto

Sub Colora()
For Each Cell In Range("A1:A10")
  Cell.Interior.ColorIndex = Cell.Value + 2
Next
End Sub

Metterai questo codice in un "Modulo" sul vba (se manca, sai come crearlo, vero?).
Modifica l' istruzione For Each etc etc in modo da selezionare l' area di effettivo tuo interesse; mentre la macro di Archimede si attivava da sola a ogni input nel foglio, la mia proposta va attivata manualmente, o con un bottone, o con un tasto di scelta rapida.
Se ti serve si puo' far partire ad ogni Ricalcolo automatico del foglio.

E' anche da evitare la coesistenza tra la macro sulla pagina di "Codice di Foglio" e questa sul Modulo: provale separatamente e poi utilizza la piu' comoda.

Ciao,