[EXCEL] ricerca ambo in archivio lotto

[vengio]

Naturalmente questo secondo il metodo di controllo che stò svolgendo io, l'ideale sarebbe che intervenisse Bgf1102 per fugare ogni dubbio.

[Flash30005]

ehmmm
Dovrebbe esere sufficiente aggiungere un paio di righe di codice nella macro Evidenzia ma la invio per intero quindi dovrai sostiturla a quella esistente nel Modulo1

Codice: Seleziona tutto

Sub Evidenzia()
Dim Colore(30) As Integer
Dim ContaCol(30) As Integer
Colore(1) = 4
Colore(2) = 6
Colore(3) = 7
Colore(4) = 8
Colore(5) = 10
Colore(6) = 12
Colore(7) = 14
Colore(8) = 15
Colore(9) = 17
Colore(10) = 18
Colore(11) = 22
Colore(12) = 23
Colore(13) = 24
Colore(14) = 26
Colore(15) = 31
Colore(16) = 33
Colore(17) = 34
Colore(18) = 35
Colore(19) = 38
Colore(20) = 40
Colore(21) = 41
Colore(22) = 43
Colore(23) = 45
Colore(24) = 46
Colore(25) = 47
Colore(26) = 48
Colore(27) = 50
Colore(28) = 53
Colore(29) = 54
Colore(30) = 44
UC3 = Worksheets(Foglio).Cells(RigaT, Columns.Count).End(xlToLeft).Column
With Worksheets(Foglio).Range(Cells(RigaT, 5), Cells(RigaT + 1, UC3))
    Set C = .Find(Val1, LookIn:=xlValues, LookAt:=xlWhole)
    If Not C Is Nothing Then
        firstAddress = C.Address
        Do
             C.Interior.ColorIndex = Colore(Val1)
             ContaCol(Val1) = ContaCol(Val1) + 1
             Set C = .FindNext(C)
            On Error Resume Next
        Loop While Not C Is Nothing And C.Address <> firstAddress
    End If
End With
With Worksheets(Foglio).Range(Cells(RigaT, 5), Cells(RigaT + 1, UC3))
    Set C = .Find(Val2, LookIn:=xlValues, LookAt:=xlWhole)
    If Not C Is Nothing Then
        firstAddress = C.Address
        Do
             C.Interior.ColorIndex = Colore(Val1)
             ContaCol(Val1) = ContaCol(Val1) + 1
             Set C = .FindNext(C)
            On Error Resume Next
        Loop While Not C Is Nothing And C.Address <> firstAddress
    End If
End With
With Worksheets(Foglio).Range(Cells(RigaT, 5), Cells(RigaT + 1, UC3))
    Set C = .Find(Val3, LookIn:=xlValues, LookAt:=xlWhole)
    If Not C Is Nothing Then
        firstAddress = C.Address
        Do
             C.Interior.ColorIndex = Colore(Val1)
             ContaCol(Val1) = ContaCol(Val1) + 1
             Set C = .FindNext(C)
            On Error Resume Next
        Loop While Not C Is Nothing And C.Address <> firstAddress
    End If
End With
For CellaC = 1 To 30
Range("A" & CellaC + 4).Interior.ColorIndex = Colore(CellaC)
Range("A" & CellaC + 4).Value = Range("AQ" & CellaC + 4).Value + ContaCol(CellaC)
Next CellaC
End Sub

Avrai i risultati per colore nella colonna A da A5 ad A34

Fai sapere
ciao

[vengio]

Grazie per la celerità, però la somma all'interno delle celle trovate risulta errata, infatti la nuova cella verde mi visualizza 5 mentre io ne riscontro 9, la nuova cella gialla mi indica 90 ma io ne riscontro 18 etc. Inoltre io intendevo tale conta per ogni blocco di ambo, in pratica hai effettuato la conta sull' l'intero foglio conteggiando tutti e 10 gli ambi mentre a me ne serve 1° sull'area E6-E11intera riga orizzontale, 2° sull'area E15-20 intera riga orizzontale, 3° sull'area E24-E29 intera riga orizzontale etc, sino all'ultimo ambo in modo da avere uno specchietto separato del tutto.
Scusa il disturbo e ciao.

[vengio]

Per sicurezza inserisco un'immagine.
http://img718.imageshack.us/i/immaginehwd.png/

[Bgf1102]

Caro Vengio

prova con questa modifica sul processo di evidenziazione, scaricati l'intero progetto leggermente modificato.

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

Osserva con attenzione e prendi in considerazione l'ultimo blocco di estrazioni per ognuno dei dieci ambi e, per avere una previsione più vigorosa dovrebbero essere presenti non meno di tre numeri della stessa terzina nei primi tre concorsi.
Fai parecchi test a ritroso e poi ..... mettici anche un po di Tuo che le idee nuove il più delle volte meritano un elogio.
Ciauz.

[vengio]

Ciao Bgf1102, grazie per il post. Però ora mi stò perdendo, non potresti postare anche qualche esempio di previsione per farmi capire meglio il tuo metodo? grazie.

[Bgf1102]

Per Giovanni e tutti,
ho inserito alcune fondamentali istruzioni nel post del 28/03/10, una mia soluzione banale ma intuitiva.
Mi ripeto, è solo una "ricetta" basata su una ripetizione di numeri appartenenti ad una delle terzine, situati nelle prime righe di estrazioni (la maggior presenza ovviamente sulle prime due righe), meglio se presente almeno un numero su ognuno dei blocchi con data recente ( circa 6-7 blocchi).
Osserva il progetto con l'estrazione del 22/02/11 sulla ruota di Bari con riferimento all'ambo 32-51, nota come
si presenta la terzina 3-33-63, e nota come si manifesta nell'ultimo blocco con data 19/12/06.
Fai un po di test.

Ciao Francesco

[sangennarosan]

@Bgf1102
Vediamo se ho studiato bene... prendendo l'ultima estrazione del 20/8/2011 a BARI, PREVEDO per le prossime 5 estrazioni ( ) le seguenti terzine sempre per BARI : 5-35-65, 7-37-67, 9-39-69, 10-40-70, 23-53-83

...illuminaci...
PS: Non li giocate perche' sto ancora sperimentando
PS2: Se poi escono mi mangio il prepuzio

[sangennarosan]

PS: Non li giocate perche' sto ancora sperimentando
PS2: Se poi escono mi mangio il prepuzio

meno male va...