Excel contare numeri consecutivi WinForLife

[marcoVince]

Flash, riesci ad implementare una macro che dia una classifica delle combinzioni in ordine decrescente?
Cioè mi servirebbe sapere quali sono le cominazioni piu' frequenti: 5 isolati, 2 coppie, 1 terzina è piu' frequente di 4 isolati, 2 terzine, ad esempio? Etc etc... Una classifica con totali o % o frequenze... quello che è piu' facile... mi sono capito? grazie

[marcoVince]

sbaglio o non c'è la condizione di due cinquine?

Due cinquine su dieci numeri?
Secondo me creano una decina
(e la condizione la trovi nel gruppo decine)

ciao

riesci a implementare una macro (si dice così?) che dia la classifica delle combinazioni piu' frequenti? Mi spiego: è piu' frequente 1 singolo, tre coppie e una terzina o, ad esempio, 5 singoli, una coppia e una terzina? in % o anche un semplice conteggio, come ti è piu' comodo... grazie ancora...

[marcoVince]

sbaglio o non c'è la condizione di due cinquine?

Due cinquine su dieci numeri?
Secondo me creano una decina
(e la condizione la trovi nel gruppo decine)

ciao

riesci a implementare una macro (si dice così?) che dia la classifica delle combinazioni piu' frequenti? Mi spiego: è piu' frequente 1 singolo, tre coppie e una terzina o, ad esempio, 5 singoli, una coppia e una terzina? in % o anche un semplice conteggio, come ti è piu' comodo... grazie ancora...

Altra cosa: In un altro excel, riesci ad eleborareun sistema con TUTTE le colonne che rispondono SOLO e a TUTTE queste condizioni: 3 numeri isolati + 2 coppie di numeri consecutivi + 1 terzina di di numeri consecutivi? Grazie ancora, ciao.

[Flash30005]

Innanzitutto devo ammettere di aver preso un abbaglio con il discorso delle due cinquine.
Infatti, di cinquine su dieci numeri, ce ne possono essere anche due se il range è di 20 numeri (come nel WinForLife)
quindi ho coretto il programma e lo invio di nuovo
http://rapidshare.com/files/302709893/WinForLifeRaggr4.zip.html

Ora mi tolgo la cenere dalla testa perché il file già contiene il programma modificato con le percentuali e la disposizione delle formule in ordine decrescente in funzione degli eventi.


Per quanto riguarda l'ultimo tuo quesito ti rimando al post del 10/10/2009 ore 18:31 che trovi QUI

Un conto è creare macro per effettuare "analisi" su colonne (programmi commerciali che fanno questo non ce ne sono) e un conto è realizzare macro che elaborano sistemi, perché programmi di questo tipo ne è pieno il mercato e...
dedicare tempo su cose inutili e già reperibili non è il massimo della soddisfazione, non credi?

Ciao

P.s. Modificato link download file alle ore 13:00 - Flash30005

[marcoVince]

Innanzitutto devo ammettere di aver preso un abbaglio con il discorso delle due cinquine.
Infatti, di cinquine su dieci numeri, ce ne possono essere anche due se il range è di 20 numeri (come nel WinForLife)
quindi ho coretto il programma e lo invio di nuovo
http://rapidshare.com/files/302709893/WinForLifeRaggr4.zip.html

Ora mi tolgo la cenere dalla testa perché il file già contiene il programma modificato con le percentuali e la disposizione delle formule in ordine decrescente in funzione degli eventi.

>sei un mago!!!

Per quanto riguarda l'ultimo tuo quesito ti rimando al post del 10/10/2009 ore 18:31 che trovi QUI

Un conto è creare macro per effettuare "analisi" su colonne (programmi commerciali che fanno questo non ce ne sono) e un conto è realizzare macro che elaborano sistemi, perché programmi di questo tipo ne è pieno il mercato e...
dedicare tempo su cose inutili e già reperibili non è il massimo della soddisfazione, non credi?

> vero, hai ragione...

Ciao
>grazie, ciao

[marcoVince]

ciao, scusa se ti rompo ancora...
ho -ormai- piu' di 550 righe (composte da 10 celle cad... come da file che mi hai fatto tu)
c'è un sistema per evidenziare (nel remoto caso ci fossero mai) le righe (composte da 10 celle cad) identiche?
grazie
ciao

[Flash30005]

Prova ad usare questo file ti fornisce qualche informazione in più

Ciao


P.s. le colonne da A2 a Jn devono essere sostituite con quelle effettive (per capire il funzionamento avvia un test con le colonne esistenti)

[paolox]

Prova ad usare questo file ti fornisce qualche informazione in più

Ciao


P.s. le colonne da A2 a Jn devono essere sostituite con quelle effettive (per capire il funzionamento avvia un test con le colonne esistenti)

ciao Flash
l'ho scaricato anch'io
ma non lo capisco,
potresti spiegarmelo un po,
inoltre non capisco il P.s. del tuo messaggio

ciao

[Flash30005]

MarcoVince chiedeva come poter verificare se una colonna estratta era già stata estratta in un altro momento
in pratica se si era verificato lo stesso evento con 10 numeri uguali.
L'utility inviata confronta tutte le colonne che sono nel range A2:Jn (n sono le righe = numero estrazioni)
e a fianco di ogni estrazione, nelle colonne comprese da L a V, si avrà la quantità dei numeri ripetuti esempio
l'estrazione con questi 10 numeri confrontandola con tutte le altre 48 estrazioni (sono numeri messi a caso)

Codice: Seleziona tutto

1   2   3   4   5   6   7   8   9   10

con l'ausilio della testata da L a V (riga 1) che informa quante estrazioni hanno ottenuto da 0 numeri a 10 numeri uguali ci fornirà questi dati

Codice: Seleziona tutto

2   9   5   3   4   4   3   5   7   5   1


significa che ci sono stati 2 eventi con 0 (2 estrazioni non avevano nessun numero uguale)
9 eventi con 1 numero uguale
5 eventi con 2 numeri uguali
3 eventi con 3 numeri uguali
etc
fino a 1 evento con 10 numeri uguali (in pratica esiste un'altra estrazione uguale a quella presa in esame)
e, in questo caso, le due estrazioni saranno evidenziate con lo stesso colore.
(se fai la somma di questi eventi infatti avrai 48, 49 estrazioni analizzate - una estrazione in esame = 48)
la seconda estrazione in riga 3 avrà un totale di 47 eventi e via via a scalare perché il confronto è fatto dall'estrazione attuale verso le estrazioni precedenti.
Qui noterai molte combinazioni uguali ma nella realtà, con le effettive estrazioni, non si avranno colonne identiche, visto che le combinazioni sono 187.000 circa.

Nel mio P.s. facevo notare solo che nel range A2:Jn dovranno essere inserite le effettive estrazioni del WinForLife appunto le 550 colonne che dice di avere Marcovince e poi riavviare la macro.

Ciao

[marcoVince]

sei un figo spaziale:grazie!!!

Prova ad usare questo file ti fornisce qualche informazione in più

Ciao


P.s. le colonne da A2 a Jn devono essere sostituite con quelle effettive (per capire il funzionamento avvia un test con le colonne esistenti)

[marcoVince]

flash, ciao

come faccio a mandarti un file in xcel?

[Flash30005]

...come faccio a mandarti un file in xcel?

C'è un apposito topic (nella testata di questa sezione che spiega passo passo come fare
comunque digita come query di Google la parola
Rapidshare
seleziona la prima voce dell'elenco ottenuto e fai l'upload del file
Il server Host ti rilascerà sia un indirizzo per i download (che incollerai nel post del forum utilizzando il codice URL dell'editor) e un indirizzo per cancellare il file (normalmente non lo si utilizza perché il file viene cancellato automaticamente dopo un tempo stabilito dall'host oppure dopo il 10° download del file)

Ciao


P.s. premetto che ci sono programmi che permettono di ricavare sistemi con condizionamento e vorrei evitare di impiegare il mio tempo a creare applicativi già esistenti

[Statix]

Ciao Flash 30005,
ho un problema non riesco a scaricare l'ultimo file postato su rapidshare
http://rapidshare.com/files/302709893/W ... 4.zip.html

mi da error

[Flash30005]

...Ho un problema non riesco a scaricare l'ultimo file postato su rapidshare

Evidentemente ha superato i 10 download

prova qui (nuovo link)

fai sapere
Ciao

[marcoVince]

sei un figo spaziale:grazie!!!

Prova ad usare questo file ti fornisce qualche informazione in più

Ciao


P.s. le colonne da A2 a Jn devono essere sostituite con quelle effettive (per capire il funzionamento avvia un test con le colonne esistenti)

flash, ciao

sei in grado di farmi un excell che faccia cio':

in dieci colonne lunghe quanto excell lo permette) incollo 10 numeri per ciascuna riga, es:
4 6 7 8 10 14 16 17 19 20
etc etc etc

Questi devono automaticamente (con un pulsante macro) disporsi su venti colonne adiacenti (lasciandone una vuota che le separi dalle prime 10)
lasciando vuote (e senza colore di fondo) le celle dei numeri non estratti, es:
v v v 4 v 6 7 8 v 10 v v 13 v 14 v 16 17 v 19 20

e già questo per me sarebbe una figata...

la sfida però aumenta e, su altre 20 colonne adiacenti alle precedenti 20
(lasciandone una vuota che le separi dalle altre 20 di cui sopra)

flash, ciao

sei in grado di farmi un excell che faccia cio':

in dieci colonne lunghe quanto excell lo permette) incollo 10 numeri per ciascuna riga, es:
4 6 7 8 10 14 16 17 19 20
etc etc etc

Questi devono automaticamente (con un pulsante macro) disporsi su venti colonne adiacenti (lasciandone una vuota che le separi dalle prime 10)
lasciando vuote (e senza colore di fondo) le celle dei numeri non estratti, es:
v v v 4 v 6 7 8 v 10 v v 13 v 14 v 16 17 v 19 20

e già questo per me sarebbe una figata...

la sfida però aumenta e, su altre 20 colonne adiacenti alle precedenti 20
(lasciandone una vuota che le separi dalle altre 20 di cui sopra)

lo sfondo dei numeri estratti isolati dovrebbero colorarsi:
quello dei isolati di rosa tenue,
quello di coppie di numeri consecutivi di verde acceso,
quelli di tezine di giallo acceso,
quello di quartine di arancio,
quello dlle cinquine di rosso fuoco,
quello delle sestine di grigio chiaro,
quello delle settine di grigio medio
delle ottine di grigio scuro
quello delle novine di grigio scuro, testo giallo
quello delle decine di nero, testo rosso
(colori tratti dalla palette di excel)


grazie,
ciao

PS
in allegato, spero, uno screenshot...

[marcoVince]

ecco il link allo screenshot:

http://img706.imageshack.us/img706/88/desidarata.jpg

[Flash30005]

Ciao Marcovince

Ora è molto più chiaro cosa vorresti ottenere.
Per agevolare ulteriormente il lavoro da svolgere sarebbe oppurtuno che inviassi il file, in maniera tale che non debba riscrivere manualmente i numeri in un foglio nuovo ma usare direttamente il tuo foglio, magari con qualche riga in più per testare meglio il programma.

La modalità per l'invio di un file sono nel primo topic della sessione di Applicazioni Office Windows.

Ciao

[marcoVince]

Ecco (spero) il link per download del file excel:
http://rapidshare.de/files/48814916/Desiderata.xls.html

PS
Flash sei sempre di piu' un mito...

[Flash30005]

Non capisco perché creare due tabelle e due pulsanti
vedi se va bene così
Incolla il codice in un modulo ed esegui la macro (puoi aggiungere un pulsante che l'avvii dal foglio dati)

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:AE" & UR)
        Col = C.Column
        Riga = C.Row
        If C.Value <> "" Then
            Conta = Conta + 1
            If Col = 31 Then
                Col = 32
                GoTo colora
            End If
        Else
            If Col = 12 Then Conta = 0
            Cells(Riga, Col).Interior.ColorIndex = xlNone
colora:
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


Invio anche il file

Fai sapere
Ciao

[marcoVince]

proporrei di cambiare il tuo nick in Mago Merlino
;-)