Condividi:        

Excel contare numeri consecutivi WinForLife

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

Re: Excel contare numeri consecutivi WinForLife

Postdi Flash30005 » 10/12/09 18:05

marcoVince ha scritto:proporrei di cambiare il tuo nick in Mago Merlino


Grazie! Ma preferisco Flash ;)

Mi sono accorto che ho inserito una condizione che non occorreva (bastava rifletterci su dopo una "boccata d'aria")
e più precisamente
Codice: Seleziona tutto
 
If Col = 31 Then
    Col = 32
    GoTo colora
End If

Mettendo il Range("L2:AF" & UR) alla colonna AF (32ª colonna) invece di AE
quindi puoi sostituire la macro precedente con questa
Codice: Seleziona tutto
Sub CompilaEColora()
    Columns("L:AE").Clear

UR = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
For RNum = 2 To UR
    For CNum = 1 To 10
        Vnum = Cells(RNum, CNum).Value
        Cells(RNum, 11 + Vnum).Value = Vnum
    Next CNum
Next RNum

Conta = 0
Col = 0
Riga = 0
    For Each C In Range("L2:AF" & UR)
        Col = C.Column
        Riga = C.Row
        If C.Value <> "" Then
            Conta = Conta + 1
        Else
            If Col = 12 Then Conta = 0
            Cells(Riga, Col).Interior.ColorIndex = xlNone
Select Case Conta
Case 1
    Cells(Riga, Col - 1).Interior.ColorIndex = 38
Case 2
    Range(Cells(Riga, Col - 2), Cells(Riga, Col - 1)).Interior.ColorIndex = 4
Case 3
    Range(Cells(Riga, Col - 3), Cells(Riga, Col - 1)).Interior.ColorIndex = 6
Case 4
    Range(Cells(Riga, Col - 4), Cells(Riga, Col - 1)).Interior.ColorIndex = 45
Case 5
    Range(Cells(Riga, Col - 5), Cells(Riga, Col - 1)).Interior.ColorIndex = 3
Case 6
    Range(Cells(Riga, Col - 6), Cells(Riga, Col - 1)).Interior.ColorIndex = 15
Case 7
    Range(Cells(Riga, Col - 7), Cells(Riga, Col - 1)).Interior.ColorIndex = 48
Case 8
    Range(Cells(Riga, Col - 8), Cells(Riga, Col - 1)).Interior.ColorIndex = 16
Case 9
    Range(Cells(Riga, Col - 9), Cells(Riga, Col - 1)).Interior.ColorIndex = 1
    Range(Cells(Riga, Col - 9), Cells(Riga, Col - 1)).Font.ColorIndex = 36
Case 10
    Range(Cells(Riga, Col - 10), Cells(Riga, Col - 1)).Interior.ColorIndex = 1
    Range(Cells(Riga, Col - 10), Cells(Riga, Col - 1)).Font.ColorIndex = 3
End Select
        Conta = 0
        End If
    Next C
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-

Sponsor
 

Re: Excel contare numeri consecutivi WinForLife

Postdi marcoVince » 10/12/09 18:08

Non fumare...
;-)
marcoVince
Utente Junior
 
Post: 29
Iscritto il: 02/11/09 12:38

Re: Excel contare numeri consecutivi WinForLife

Postdi miko » 05/02/10 09:38

salve,
sono interessato a questa discussione, ma non riesco a scaricare i file che sono stati inseriti in questo topic;
rapidshare mi dà sempre errore, forse non sono più disponibili per limiti di tempo;
cosi anche per il file contenuto nel topic "Verifica combinazioni uscite Winforlive" di
neverlandce del 24/10/09 15:19
qualcuno può renderli disponibili di nuovo ?
grazie
saluti miko
windows 10 - office 2013
miko
Utente Senior
 
Post: 520
Iscritto il: 29/12/09 10:44

Re: Excel contare numeri consecutivi WinForLife

Postdi Flash30005 » 05/02/10 14:58

Ciao Miko
potresti specificare quale file?
O li vorresti tutti? :eeh:
Anche in questo caso elencali
perché di tutto quello che abbiamo non ci manca nulla :lol: :lol: :lol:

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: Excel contare numeri consecutivi WinForLife

Postdi miko » 05/02/10 21:15

ciao,
se la tua ricerca non richiede molto impegno, sarebbe utile averli tutti, in modo da avere una visione completa sul modo di procedere, e forse alcuni file, eventualmente modificandoli, potrebbero servire per altri calcoli;
altrimenti preparo una lista dei file.
ciao, grazie
miko
windows 10 - office 2013
miko
Utente Senior
 
Post: 520
Iscritto il: 29/12/09 10:44


Re: Excel contare numeri consecutivi WinForLife

Postdi miko » 07/02/10 12:42

buona domenica
non riesco, da ieri, a scaricare i file che mi hai indicato;
rapidshare mi dice sempre che è occupato....
ho preparato una lista dei file che vorrei visionare:

Excel contare numeri consecutivi WinForLife
di Flash30005 » 02/11/09 20:36
http://rapidshare.com/files/301505994/W ... r.xls.html

Excel contare numeri consecutivi WinForLife
di Flash30005 » 03/11/09 13:49
http://rapidshare.com/files/301818835/W ... 2.xls.html

Excel contare numeri consecutivi WinForLife
di Flash30005 » 05/11/09 10:45
http://rapidshare.com/files/302709893/W ... 4.zip.html 'che mi hai già indicato

Excel contare numeri consecutivi WinForLife
di Flash30005 » 10/11/09 10:07
http://rapidshare.com/files/304869254/C ... e.xls.html 'che mi hai già indicato

inoltre sono interessato ai seguenti file:

Come vincere al Lotto & Co. con il fattore “Q”
di Flash30005 » 12/01/09 02:34

Verifica combinazioni uscite Winforlive
di neverlandce » 24/10/09 16:19
http://rapidshare.com/files/297313846/v ... e.xls.html

grazie miko
windows 10 - office 2013
miko
Utente Senior
 
Post: 520
Iscritto il: 29/12/09 10:44

Re: Excel contare numeri consecutivi WinForLife

Postdi Flash30005 » 08/02/10 23:36

miko ha scritto:non riesco, da ieri, a scaricare i file che mi hai indicato;
rapidshare mi dice sempre che è occupato....


utilizzerò un altro server host

miko ha scritto:ho preparato una lista dei file che vorrei visionare:

Excel contare numeri consecutivi WinForLife
di Flash30005 » 02/11/09 20:36
http://rapidshare.com/files/301505994/W ... r.xls.html

Excel contare numeri consecutivi WinForLife
di Flash30005 » 03/11/09 13:49
http://rapidshare.com/files/301818835/W ... 2.xls.html

Excel contare numeri consecutivi WinForLife
di Flash30005 » 05/11/09 10:45
http://rapidshare.com/files/302709893/W ... 4.zip.html 'che mi hai già indicato


Si tratta dello stesso file ma in versione diversa quindi ti invio l'ultima
http://www.megaupload.com/?d=TSYLT06D


miko ha scritto:Excel contare numeri consecutivi WinForLife
di Flash30005 » 10/11/09 10:07
http://rapidshare.com/files/304869254/C ... e.xls.html 'che mi hai già indicato


http://www.megaupload.com/?d=UOY2OAH9


miko ha scritto: Come vincere al Lotto & Co. con il fattore “Q”
di Flash30005 » 12/01/09 02:34
:undecided:
:lol: :lol:
va bene ti invio anche questo file (guarda anche negli MP)


miko ha scritto:Verifica combinazioni uscite Winforlive
di neverlandce » 24/10/09 16:19
http://rapidshare.com/files/297313846/v ... e.xls.html


Il tuo link è corrotto spero che sia questo il file che cerchi

Fai sapere se tutto ok

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: Excel contare numeri consecutivi WinForLife

Postdi miko » 09/02/10 14:33

ciao,
grazie per avermi ripostato i file;
sono riuscito a scaricarli, ora li vedo;
credo che tutto sia ok
mi dispiace disturbare tornando a vecchi post, ma tu sai che dopo un po di tempo non sono più disponibili.
ancora grazie
saluti miko
windows 10 - office 2013
miko
Utente Senior
 
Post: 520
Iscritto il: 29/12/09 10:44

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "Excel contare numeri consecutivi WinForLife":


Chi c’è in linea

Visitano il forum: Nessuno e 89 ospiti