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 Bgf1102 » 27/02/10 11:36

Francesco53 ha scritto:Ciao bgf1102, il link che ti posto è del tuo file, ho inserito una pagina nuova.
Dagli uno sguardo se ti piace. Nel caso ti dice file non disponibile riprova dopo un pò.
http://www.megaupload.com/?d=B5I684SF


Ciao Francesco53

Ho scaricato ora il tuo link,sicuramente utile nel guadagnare del tempo per le nostre previsioni.
Ho lavorato parecchio per estrapolare delle terzine per oggi,e solo or ora ho ricavato due terzine di base su Bari per l'estrazione di oggi (giocata a colpo):10-40-70/19-49-79,
da abbinare ad altre tre terzine,18-48-78/21-51-81/17-47-77.
Suggerisco un sistema da 15 numeri in 35 terzine, e, speriamo bene.

Gentile da parte tua.
Grazie Ciao
Bgf1102
Utente Junior
 
Post: 38
Iscritto il: 16/02/10 11:14
Località: Treviso

Sponsor
 

Re: [EXCEL] ricerca ambo in archivio lotto

Postdi Flash30005 » 27/02/10 11:59

La discussione si sta facendo interessantissima

MI PIACE!!! ;)

Però manca una cosa essenziale:
Analisi costi e vincite

Con tutte le "teorie" (numeri spia, ritardi, distanza da unità etc) applicate alla realtà del gioco o tramite simulazione potreste postare:
1) Costo sistema totale per n. estrazioni e
2) Vincite ottenute in quelle n. estrazioni?

N.B. Si raccomanda la massima serietà

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

Postdi miko » 27/02/10 12:59

buon giorno a tutti,
dal momento che bgf è così bravo con le previsioni, e credo che abbia gia realizzato qualche punteggio, da come scrive nei sui post, sarebbe interessante anche che ci prepari il sistema dei 15 numeri che intende giocare oggi e su quale ruota;
oppure le singole terzine che intende mettere in gioco
ho sviluppato il sistema di 15 numeri e realizzano 455 terzine;
per le quote penso che dipenda da quanto si punta.
non so, non ho mai giocato al lotto.
potremmo giocarlo insieme se ci fosse il modo di inviare la propria quota.
chissà che bgf ci regali un viaggio alle maldive :lol:
ciao saluti
windows 10 - office 2013
miko
Utente Senior
 
Post: 520
Iscritto il: 29/12/09 10:44

Re: [EXCEL] ricerca ambo in archivio lotto

Postdi Bgf1102 » 27/02/10 17:43

A tutti

Siamo seri,
questo è un forum gestito in modo razionale e più che soddisfacente,rimaniamo in carreggiata e senza fantasticare,ci sono dei forum lotto dove si possono inserire o raccogliere metodi di ogni sorta.
Solo con PC-FACILE ho ottenuto il programmino che cercavo,pure Voi ne state facendo uso,e me ne compiaccio; ragioniamoci sopra e cerchiamo di ricavare qualche numero buono.
Un'ultima volta:
il sistema da 35 terzine è ortogonale , lo potete trovare nel web oppure fate come me, vi scaricate la versione trial o demo di qualche software gestionale lotto (ce ne sono a bizzeffe nel siti dedicati al questo genere di gioco),dove
sono inseriti oltre a vari metodi previsionali,anche una ben fornita lista di sistemi.
Cercate quello che più fa per Voi, inserite i vostri numeri e mandate in stampa. Vi ci vorrà un po di tempo per districarvi ed impostare la stampante, usate la Vostra metodologia,(non avete bisogno del mio aiuto),anzi diamoci da fare un po tutti e chi ha la meglio avrà il premio (parliamo di premio perche il lotto è un gioco e tale rimarrà,non montiamoci la testa).Nel frattempo,immersi nello studio, aspettiamo le venti di questa sera, mettiamoci comodi davanti alla tv e guardiamoci la diretta dell'estrazione,magari con qualche numero sottomano ,(ricavato con un po di fatica), e......Buona Fortuna.
Ancora domani riuscirò a trovare il tempo da dedicare a questo forum, poi ahimè il lavoro chiama.

Non vi ho deluso vero?

Le Maldive? forse ci incontreremo là. :) :) :)

MP.........
Bgf1102
Utente Junior
 
Post: 38
Iscritto il: 16/02/10 11:14
Località: Treviso

Re: [EXCEL] ricerca ambo in archivio lotto

Postdi Bgf1102 » 06/03/10 21:01

Buona giornata a tutti

Bisognoso per l'ennesima volta della vostra attenzione, mi accingo a prolungare la discussione.
Scusate ma, di nuovo, cortesemente avrei bisogno di ottimizzare il programma di ricerca in archivio, in modo tale da renderlo sufficentemente pratico visivamente.
Essendo le previsioni a colpo, i calcoli li effettuo dopo ogni estrazione, riuscendo a malapena ad analizzare 3 ruote e con non poca pazienza. Per favore, qualcuno potrebbe aiutarmi nell'intento?
A tal proposito vi invito a scaricare questo link,dove troverete i chiarimenti in merito: http://rapidshare.com/files/359861887/E ... 3.xls.html.
Sto chiedendo troppo lo so, ma volete mettere la celerità nelle future analisi visive! Spero altri apprezzino questa se pur non modesta richiesta, e vi assicuro ne faro buon uso. Questo programma mi sta dando delle belle soddisfazioni,pur pronosticando, per il momento, quasi esclusivamente sulla ruota di Bari.
Migliorarlo ancora sarebbe sublime.

Accetto qualsiasi risposta.

Grazie in anticipo, Vi saluto tutti. Ciao
Bgf1102
Utente Junior
 
Post: 38
Iscritto il: 16/02/10 11:14
Località: Treviso

Re: [EXCEL] ricerca ambo in archivio lotto

Postdi Flash30005 » 06/03/10 21:40

Ciao Bgf1102

Ho scaricato il file e letto le istruzioni, l'unica cosa che ho capito (forse) è il motivo per il quale hai evidenziato il "18" per il resto... tabù! :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] ricerca ambo in archivio lotto

Postdi Bgf1102 » 07/03/10 11:33

Buongiorno Flash

Scusa,ma ho messo tutto il mio impegno per creare un foglio cosi descrittivo,precisando per bene la richiesta desiderata,ma evidentemente in qualcosa ho mancato,vedrò di fare meglio.
Prima fase:
la ricerca e le eventuali evidenziazioni vengono fatte solo sulle due righe di estrazioni subito dopo l'ambo ricercato (rosso)dal programma (vedi).
Ora: che i numeri evidenziati siano quelli relativi alle terzine,mi sembra abbastanza chiaro,e,con l'esempio del 18-48-78, sto ad indicare la presenza di almeno 4 sortite di uno qualunque di questi 3 numeri (infatti sono usciti il 18 il 48 due volte e il 78, totale 4 numeri). Lo stesso per le restanti terzine. Ovviamente usare colori diversi per terzina nelle due righe,non serve dare lo stesso colore alla stessa terzina, perché difficilmente usciranno numeri riferiti a più di 4 o 5 terzine su due righe, ed abbinare 30 colori diversi non ne uscirebbe nulla di buono (vedi esempio)
N.B. se le presenze dei numeri di una terzina in queste due righe di estraz. sono inferiori a 4 non serve nessuna evidenziazione.
Ora passiamo alla seconda fase.
Dovrei adottare un'ulteriore evidenziazione più marcata,riguardo la sortita di almeno due numeri per ognuna delle trenta terzine, usciti in un unico blocco (per blocco intendo il singolo gruppo di sei concorsi con riferimento ai primi 10 numeri estratti). L'esempio fa notare questo: nei blocchi con l'ambo 3-51 sono evidenziati i numeri 21-81/19-79/43-73/e 30-90,
con l'ambo 45-38 sono presenti i numeri 34-4/ e 39-9, e cosi anche con i rimanenti ambi.
Come si può notare ogni coppia appartiene ad una terzina distanza 30. A mio avviso una chiara marcatura si può ottenere con una bordatura accentuata, anche perché probabilmente già evidenziate con la prima fase.
N.B. si guarda al singolo blocco senza far riferimento alla quantità di sortite,infatti il 34-4 e il 39-9 sono attinenti solo alla seconda fase e non sono evidenziati ma solo bordati.

Spero di essermi chiarito,forse mi sarò ripetuto.Nonostante ciò una cosa è sicura, è più difficile a farsi che ha spiegarsi.

Comunque vada, Grazie
Un saluto cordiale, Ciao
Bgf1102
Utente Junior
 
Post: 38
Iscritto il: 16/02/10 11:14
Località: Treviso

Re: [EXCEL] ricerca ambo in archivio lotto

Postdi Flash30005 » 07/03/10 12:31

Ho capito ora che non devo guardare solo un gruppo E86:I92 ma estendere la ricerca a tutti i gruppi presenti sulle righe 87 e 88.

Non è una cosa facile realizzare una macro che soddisfi il primo punto del tuo quesito
immaginiamoci il secondo!!!

Ci rifletterò su...
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] ricerca ambo in archivio lotto

Postdi Bgf1102 » 07/03/10 14:58

Flash30005 ha scritto:Ho capito ora che non devo guardare solo un gruppo E86:I92 ma estendere la ricerca a tutti i gruppi presenti sulle righe 87 e 88.

Non è una cosa facile realizzare una macro che soddisfi il primo punto del tuo quesito
immaginiamoci il secondo!!!

Ci rifletterò su...
Ciao


Pure sulle righe 6-7/15-16/24-25 ecc.(ma sicuramente l'avevi capito).

Ho intuito subito la difficoltà nel risolvere il quesito, per cui provaci pure ma non affannarti ha cercare la soluzione, se non viene non viene. Mi accontento comunque.
Cosi com'è attualmente mi sta dando degli ottimi risultati.
Di certo il programma non da nessuna previsione, ma stampando i risultati delle ruote di maggior interesse e pian piano analizzarle,sono riuscito a recuperare da uno a tre ambi a colpo negli ultimi 4 concorsi.
Col metodo da me usato non si ricava un granché di vincita netta,ma la continuità delle sortite lo rende tale da sorprendere non pochi appassionati di ricerca statistica.
Con questo ultimo post qualcuno s'attaccherà per avere delle delucidazioni in merito, mi auguro di poter rispondere a tutti in un unico invio.

"Si nota bene, purtroppo che c'è ancora aria di crisi in giro".

Buona Domenica a tutti

Non so da Voi ma qui da me c'è una bella giornata, godiamocela.
Ciao
Bgf1102
Utente Junior
 
Post: 38
Iscritto il: 16/02/10 11:14
Località: Treviso

Re: [EXCEL] ricerca ambo in archivio lotto

Postdi Flash30005 » 07/03/10 22:13

Bgf1102 ha scritto:Non so da Voi ma qui da me c'è una bella giornata, godiamocela.

Da me dopo la macro che pubblico è piena di colori :lol: :lol: :lol:
Codice: Seleziona tutto
Sub TrovaTerz()
Application.ScreenUpdating = False
Application.Calculation = xlManual
For Foglio = 1 To Worksheets.Count
If Sheets(Foglio).Name = "Archivio" Then GoTo SaltaFoglio
Worksheets(Foglio).Select
URR = Range("E" & Rows.Count).End(xlUp).Row
For RigaT = 6 To URR Step 9
Rows(RigaT & ":" & RigaT + 5).ClearFormats

For Riga2 = 1 To 2
SR = Riga2 - 1
    UC = Worksheets(Foglio).Cells(RigaT + SR, Columns.Count).End(xlToLeft).Column
    For Col = 5 To UC
        If Cells(RigaT + SR, Col).Value > 30 And Cells(RigaT + SR, Col).Value < 60 Then
           ' ValT1 = Format(Cells(RigaT + SR, Col).Value - 30, "00")
            ValT1 = Cells(RigaT + SR, Col).Value - 30
            ValT2 = Cells(RigaT + SR, Col).Value
            ValT3 = Cells(RigaT + SR, Col).Value + 30
            Call TrovaT1T3
        End If
        If Cells(RigaT + SR, Col).Value > 60 Then
            'ValT1 = Format(Cells(RigaT + SR, Col).Value - 60, "00")
            ValT1 = Cells(RigaT + SR, Col).Value - 60
            ValT2 = Cells(RigaT + SR, Col).Value - 30
            ValT3 = Cells(RigaT + SR, Col).Value
            Call TrovaT1T2
        End If
        If Cells(RigaT + SR, Col).Value < 31 Then
            'ValT1 = Format(Cells(RigaT + SR, Col).Value, "00")
            ValT1 = Cells(RigaT + SR, Col).Value
            ValT2 = Cells(RigaT + SR, Col).Value + 30
            ValT3 = Cells(RigaT + SR, Col).Value + 60
            Call TrovaT2T3
        End If
    Next Col
    Next Riga2
Next RigaT
SaltaFoglio:
Next Foglio
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Sub TrovaT1T3()
ContaT1 = 0
COntaT2 = 0
ContaT3 = 0
With Worksheets(Foglio).Range("E" & RigaT & ":DZ" & RigaT + 1)
    Set c = .Find(ValT1, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
             ContaT1 = ContaT1 + 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("E" & RigaT & ":DZ" & RigaT + 1)
    Set c = .Find(ValT3, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
             COntaT2 = COntaT2 + 1
             Set c = .FindNext(c)
            On Error Resume Next
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
    If ContaT1 + ContaT1 > 3 Then
    Call Evidenzia
    End If
End With
End Sub
Sub TrovaT1T2()
ContaT1 = 0
COntaT2 = 0
ContaT3 = 0
With Worksheets(Foglio).Range("E" & RigaT & ":DZ" & RigaT + 1)
    Set c = .Find(ValT1, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
             ContaT1 = ContaT1 + 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("E" & RigaT & ":DZ" & RigaT + 1)
    Set c = .Find(ValT2, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
             COntaT2 = COntaT2 + 1
             Set c = .FindNext(c)
            On Error Resume Next
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
    If ContaT1 + ContaT1 > 3 Then
    'MsgBox ValT1 & " " & ContaT1 + COntaT2
    Call Evidenzia
    End If
End With
End Sub
Sub TrovaT2T3()
ContaT1 = 0
COntaT2 = 0
ContaT3 = 0
With Worksheets(Foglio).Range("E" & RigaT & ":DZ" & RigaT + 1)
    Set c = .Find(ValT2, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
             ContaT1 = ContaT1 + 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("E" & RigaT & ":DZ" & RigaT + 1)
    Set c = .Find(ValT3, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
             COntaT2 = COntaT2 + 1
             Set c = .FindNext(c)
            On Error Resume Next
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
    If ContaT1 + ContaT1 > 3 Then
    'MsgBox ValT1 & " " & ContaT1 + COntaT2
    Call Evidenzia
    End If
End With
End Sub
Sub Evidenzia()
Dim Colore(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) = 42

With Worksheets(Foglio).Range("E" & RigaT & ":DZ" & RigaT + 1)
    Set c = .Find(ValT1, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
             c.Interior.ColorIndex = Colore(ValT1)
             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("E" & RigaT & ":DZ" & RigaT + 1)
    Set c = .Find(ValT2, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
             c.Interior.ColorIndex = Colore(ValT1)
             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("E" & RigaT & ":DZ" & RigaT + 1)
    Set c = .Find(ValT3, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
             c.Interior.ColorIndex = Colore(ValT1)
             Set c = .FindNext(c)
            On Error Resume Next
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
End Sub

Questa macro risolve il primo punto del tuo quesito non credo che andrò oltre né per capire cosa intendi nel secondo punto né tantomeno realizzare altre macro su questo progetto.
Visto che bisogna dichiarare delle variabili "Public" (per tutte le macro del modulo) è bene che scarichi l'intero file
da qui

Ciao
e Buona Fortuna!!!
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] ricerca ambo in archivio lotto

Postdi Bgf1102 » 08/03/10 21:25

Ciao Flash

E adesso che ti dico? Non ho parole, davvero non ho parole, sgridami pure per aver chiesto tanto.
Vedi Flash, sapendo solo e a malapena il significato di VBA non ho l'accortezza ne tantomeno la possibilità di
verificare il valore ed il peso di una possibile richiesta di aiuto, mi spiace, vedrò di realizzarmi con un corso
approfondito.
La macro risolve per bene le condizioni imposte, tranne per la terzina 30-60-90,la quale lascia delle celle da evidenziare.
Ho modificato poi 3 condizioni If ContaT1 + ContaT1 > 3 Then cambiando con > 4, portando il limite minimo a 4 uscite per terzina (non mi sgridare per questo).
Contentissimo ti ringrazio tanto.
Grazie anche per l'augurio di Buona Fortuna, sicuramente di buon auspicio, ma vedi, io credo nella fortuna soltanto se l'aiuto, proprio come sto facendo con questo progetto.
Di nuovo tante grazie.
Ciao
Bgf1102
Utente Junior
 
Post: 38
Iscritto il: 16/02/10 11:14
Località: Treviso

Re: [EXCEL] ricerca ambo in archivio lotto

Postdi Flash30005 » 09/03/10 00:18

Alt!
Se c'è qualcosa che non va lo riguardiamo,
spiegami meglio la terzina 30-60-90 dove dovrebbe trovarsi ed essere evidenziata
(oppure appena avrò un attimo di tempo lo verificherò da solo)

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

Postdi Flash30005 » 09/03/10 03:45

Ok,
trovato l'arcano!!!

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

Postdi Bgf1102 » 15/03/10 19:55

Di nuovo Flash

Mi spiace,
sono costretto a chiedere una revisione delle macro causa una disfunzione nell'evidenziare le terzine, rimangono delle celle non evidenziate con presenza di 4 o più elementi delle stessa terzina su due righe.
Per spiegarmi meglio ho allegato un file excel, dove nel foglio 2 ho inserito la ruota di Bari come esempio , bordando le righe e le celle dove sono presenti le disfunzioni. Nel foglio 1 ho creato 10 paia di righe situate nelle stesse posizioni delle ruote ( 6-7/15-16/24-25/ ecc.) solo a scopo dimostrativo,con tutte le 30 terzine ripetute due volte e, guarda un po, evidenzia correttamente senza lasciare una cella bianca, tanto da poter dire per lo meno che dal lato colori è ok.
Modificando la seguente condizione If ContaT1 + ContaT1 > 3 Then e mettendo > 1, lascia meno buchi, ma ancora non è ottimale. Ripeto quanto detto nel post del 07/03/10 , evidenziare elementi della terzina con 4 e più presenze. Vedi allegato:
http://rapidshare.com/files/363734979/r ... e.xls.html
Forse non mi sarò spiegato bene, ma con l'allegato dovrebbe essere più chiaro.

Come vedi non ho chiesto nessuna aggiunta, chiedo solamente e, molto gentilmente, una verifica per poterlo utilizzare al meglio.
P.S. Mi auguro di non essere io ad usarlo in modo erroneo.
Non ho fretta.

Grazie Ciao.
Bgf
Bgf1102
Utente Junior
 
Post: 38
Iscritto il: 16/02/10 11:14
Località: Treviso

Re: [EXCEL] ricerca ambo in archivio lotto

Postdi Flash30005 » 16/03/10 01:59

Come posso fare dei test con il file che ho io:
EXCEL_ricerca_ambo_in_archivio6.xls
ultimo file inviato nel post precedente?
In quel file non ho notato buchi

Invia un file archivio che, una volta processato, presenti quelle anomalie

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

Postdi Flash30005 » 16/03/10 14:47

Invio il file.
nel quale ho modificato tutta la macro e devo dire che anche più veloce.
la macro "TrovaTerz" è molto cambiata e le tre macro successive (TrovaT1T2, TrovaT1T3, TrovaT2T3) sono state eliminate.
Ho rinominato il file in Test perché l'archivio è manomesso, ho riportato i tuoi stessi valori nelle colonne corrispondenti a quelle che venvano trascritte dal mio archivio per avere gli stessi risultati da te inviati.
Ottenere gli stessi risultati è stato impossibile perché hai evidenziato delle celle che non rispettano i criteri come il 6 di E78 che non trova riscontro con 66 perché inesistente (esiste il 36).

Prova a fare dei test e fai sapere

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

Postdi Bgf1102 » 16/03/10 21:00

Ciao Flash

Mi spiace, ma ancora non ci siamo.
Non affannarti, hai già fatto tanto,non insisto mi accontento comunque.
Mi hai scritto di farti sapere, prova a guardare la ruota di Bari.
Ti riallego l'archivio: http://rapidshare.com/files/364245412/R ... 0.zip.html

Un Salutone Ciao e Grazie ancora

N.B. Gli elementi ricercati ed evidenziati sono corretti, non fa errori, solo che non completa, per cui bisogna dire, se non altro, (da profano) che le macro sono state create correttamente.

Di nuovo Ciao
Bgf
Bgf1102
Utente Junior
 
Post: 38
Iscritto il: 16/02/10 11:14
Località: Treviso

Re: [EXCEL] ricerca ambo in archivio lotto

Postdi Flash30005 » 16/03/10 22:23

Avevo capito che la prima condizione che si doveva verificare era la Terzina e poi semmai la quarta la quinta ripetizione etc
ma senza che si fosse verificata la terzina non dovevano essere evidenziati i numeri (la difficoltà della macro era proprio rispettare questo criterio) perché se era sufficiente evidenziare un numero che si ripete più di 3 o 4 volte sarebbe stato molto più semplice e non avrei perso tanto tempo dietro al criterio Terzina.
Non credo che tu voglia che se il 6 si ripete 2 volte e il 36 altre due volte vengano evidenziati questi quattro valori perché manca il 66 giusto?

Ti rinvio il tuo file con le tue note e le mie:
ho evidenziato in rosso i numeri che mancano per completare la terzina

http://rapidshare.com/files/364281584/Ricerca_ambo_in_archivio6Test10.rar.html

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

Postdi Bgf1102 » 17/03/10 18:41

Aspetta Flash

Flash30005 ha scritto:Non credo che tu voglia che se il 6 si ripete 2 volte e il 36 altre due volte vengano evidenziati questi quattro valori perché manca il 66 giusto?

Bgf1102 ha scritto:la ricerca e le eventuali evidenziazioni vengono fatte solo sulle due righe di estrazioni subito dopo l'ambo ricercato (rosso)dal programma (vedi).
Ora: che i numeri evidenziati siano quelli relativi alle terzine,mi sembra abbastanza chiaro,e,con l'esempio del 18-48-78, sto ad indicare la presenza di almeno 4 sortite di uno qualunque di questi 3 numeri (infatti sono usciti il 18 il 48 due volte e il 78, totale 4 numeri). Lo stesso per le restanti terzine.


Dici che non fosse abbastanza chiaro? Se è cosi chiedo scusa, anche perché potevo accorgemene da solo che non evidenziava per questo motivo. Mi dispiace tanto . L'esempio del 18-48-78 probabilmente ti ha tratto in inganno, ma la dicitura che ho evidenziato mi sembra abbastanza indicativa.
Mi dispiace ,davvero mi dispiace tanto. :oops: :oops:

Se la modifica è semplice e veloce, la si fa, altrimenti lasciamolo cosi.

Sei in gamba Flash, Ti saluto Ciao
Bgf
Bgf1102
Utente Junior
 
Post: 38
Iscritto il: 16/02/10 11:14
Località: Treviso

Re: [EXCEL] ricerca ambo in archivio lotto

Postdi Flash30005 » 17/03/10 20:22

Bgf1102 ha scritto:Se la modifica è semplice e veloce, la si fa, altrimenti lasciamolo cosi.


Quindi se un numero (es. 6) si ripete 4 volte deve essere evidenziato anche senza che siano presenti il 36 e il 66?

Fai sapere
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-

PrecedenteProssimo

Torna a Applicazioni Office Windows


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


Chi c’è in linea

Visitano il forum: Marius44 e 49 ospiti