Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[EXCEL] ricerca ambo in archivio lotto

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] ricerca ambo in archivio lotto

Postdi vengio » 08/03/11 10:54

Naturalmente questo secondo il metodo di controllo che stò svolgendo io, l'ideale sarebbe che intervenisse Bgf1102 per fugare ogni dubbio.
vengio
Utente Junior
 
Post: 14
Iscritto il: 04/08/10 15:22

Sponsor
 

Re: [EXCEL] ricerca ambo in archivio lotto

Postdi Flash30005 » 08/03/11 15:17

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [EXCEL] ricerca ambo in archivio lotto

Postdi vengio » 08/03/11 20:03

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
Utente Junior
 
Post: 14
Iscritto il: 04/08/10 15:22

Re: [EXCEL] ricerca ambo in archivio lotto

Postdi vengio » 08/03/11 20:15

Per sicurezza inserisco un'immagine.
http://img718.imageshack.us/i/immaginehwd.png/
vengio
Utente Junior
 
Post: 14
Iscritto il: 04/08/10 15:22

Re: [EXCEL] ricerca ambo in archivio lotto

Postdi Bgf1102 » 08/03/11 21:39

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.
Bgf
Bgf1102
Utente Junior
 
Post: 38
Iscritto il: 16/02/10 11:14
Località: Treviso

Re: [EXCEL] ricerca ambo in archivio lotto

Postdi vengio » 10/03/11 10:36

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.
vengio
Utente Junior
 
Post: 14
Iscritto il: 04/08/10 15:22

Re: [EXCEL] ricerca ambo in archivio lotto

Postdi Bgf1102 » 11/03/11 18:22

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
Bgf
Bgf1102
Utente Junior
 
Post: 38
Iscritto il: 16/02/10 11:14
Località: Treviso

Re: [EXCEL] ricerca ambo in archivio lotto

Postdi sangennarosan » 21/08/11 19:42

@Bgf1102
Vediamo se ho studiato bene... prendendo l'ultima estrazione del 20/8/2011 a BARI, PREVEDO per le prossime 5 estrazioni ( :eeh: ) 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
Utente Junior
 
Post: 16
Iscritto il: 27/07/11 17:32

Re: [EXCEL] ricerca ambo in archivio lotto

Postdi sangennarosan » 24/08/11 18:01

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


meno male va...
sangennarosan
Utente Junior
 
Post: 16
Iscritto il: 27/07/11 17:32

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "[EXCEL] ricerca ambo in archivio lotto":


Chi c’è in linea

Visitano il forum: Maury170419, wallace&gromit e 16 ospiti