Condividi:        

10eLotto importa in excel

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: 10eLotto importa in excel

Postdi siron277 » 25/11/13 22:45

Ciao a tutti,
l'aggiunta dei due codici comporta la riduzione dei tempi del 10/15% ( dipende dall'estrazioni da controllare).

L'idea è di trovare le combinazioni più frequenti e abbinare a loro una sequenza di sorti (cosidetti "numeri spia") che possono aiutare "probabilmente" a prevedere eventuale uscita della combinazione studiata.
A questo punto vedendo lo sviluppo dell'elaborazione dei dati, in meno di 30 sec. sono riuscito a dividere le varie sorti, la strada della previsione ha preso un'altro indirizzo, mi piacerebbe trovare in "tempo reale " eventuali combinazioni.
Ho provato ad eleborare i dati con una tabella Pivot ma mi piacerebbe ritornare sulla mia strada precedente,in un foglio: "Terni " ho copiato dalla cella A1:G30 tutte le combianzioni dei terni sviluppate nelle varie sortite di quaterna\cinquina\sestina\settina\ottina\novina.

Es.Foglio "Terni"
.......A1 .......B1 .........c1............D1..........E1..........F1..........G1

1) 10-12-16 / 1-17-60 / 10-29-39 / 10-13-41 / 10-20-66 / 10-20-50 / 15-34-51
2) 10-16-64 /1-17-60 / 11-46-54 / 10-29-77 / 10-65-86 / 10-20-80 / 15-34-51
3) 10-18-67 / 1-40-46/11-46-54 / 10-40-75 / 11-22-62 / 10-20-80 /15-52-68
4) ...........

Vi sarei grato se mi potete aiutare a creare un nuovo foglio :"OrdinaTerni", nella casella A1 l'elenco delle combinzioni trovate in ordine descrescente e nella colonna B1 il conteggio delle singole combinazioni


ES:
Foglio:"OrdineTerni"
.......A1 ..........B1
25-35-69 ........ 25
12-36-98 ........ 18
02-58-85 ........ 10

per nuove eventuali elaborazioni

Grazie per l'aiuto

Noris
Win10 + Office 2010 Ita
siron277
Utente Junior
 
Post: 50
Iscritto il: 27/10/13 14:38

Sponsor
 

Re: 10eLotto importa in excel

Postdi Flash30005 » 26/11/13 13:03

Ma questo foglio (Terni) è una tua elaborazione?
perché non mi risulta di avere questo 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: 10eLotto importa in excel

Postdi siron277 » 26/11/13 15:15

Ciao Flash30005, si è una mia elaborazione.
Ho studiato attentamente la tua formula TrovaAT2 che è perfetta, ma ho notato che eventuali terni\quat\cinq\ non vengono inseriti nella loro colonna perché appartengono alla combinazione successiva di sorti e già questo dato è molto interessante

es. Estrazione TIPO :
1 2 3 9 17 21 26 28 32 34 35 45 52 55 61 69 78 87 88 89
1 2 3 21 26 27 28 29 34 41 46 47 49 59 63 67 75 80 82 86
1 2 3 4 27 32 35 38 51 56 57 60 62 63 64 67 71 72 73 81
1 2 3 4 29 34 37 40 43 53 55 61 73 74 79 80 81 82 86 88
1 2 3 13 18 29 35 38 39 55 58 66 67 71 79 82 86 87 88 90

Risultato CINQUINE
AE1 = 1 2 3 32 35
AE3 = 1 2 3 32 35
Risultato Sestine :
AF2 = 1-2-3-27-63-67
AF3 = 1-2-3-4-73-81
AF4 = 1-2-3-4-73-81
Risultato Settine
AG1 = 1-2-3-35-55-87-88
AG2 = 1-2-3-29-67-82-86
AG3 = 1-2-3-35-38-67-71
AG4 = 1-2-3-34-55-61-88
AG5 = 1-2-3-35-38-67-71

Anche se la terna 1-2-3 è comune tra tutte le 5 combinazioni non c'è nessuna combinazione risultante prima della cinquina.
Ho dovuto creare altri fogli per scorporare le varie combinazioni nelle varie sorti vedi esempio

AG1 = 1-2-3-35-55-87-88
AG2 = 1-2-3-29-67-82-86
AG3 = 1-2-3-35-38-67-71
AG4 = 1-2-3-34-55-61-88
AG5 = 1-2-3-35-38-67-71

modificando la tua formula TrovaAT2 risulta scomposto :

1-2-3 .. 1-2-3-35 ..... 1-2-3-55-88
1-2-3 .. 1-2-3-67 ...
1-2-3 .. 1-2-3-67 .................... 1-2-3-35-38-67-71
1-2-3 .................... 1-2-3-55-88
1-2-3 .. 1-2-3-67 .................... 1-2-3-35-38-67-71

Ora come vedi appare la combinazione 1-2-3
Alla fine ho copiato, unendo in un unico foglio per tipologia di sorti , le vari combinazioni di "TERNI" solo i terni , un unico foglio le "QUATERNE" solo quaterne , in un unico foglio le "CINQUINE" solo cinquine .........
ES;
in un foglio: "Terni " ho copiato dalla cella A1:G30 tutte le combianzioni dei terni sviluppate nelle varie sortite di quaterna\cinquina\sestina\settina\ottina\novina.

Es.Foglio "Terni"
.......A1 .......B1 .........c1............D1..........E1..........F1..........G1

1) 10-12-16 / 1-17-60 / 10-29-39 / 10-13-41 / 10-20-66 / 10-20-50 / 15-34-51
2) 10-16-64 /1-17-60 / 11-46-54 / 10-29-77 / 10-65-86 / 10-20-80 / 15-34-51
3) 10-18-67 / 1-40-46/11-46-54 / 10-40-75 / 11-22-62 / 10-20-80 /15-52-68
4) ...........

Se hai altre soluzioni,modifiche sono ben gradite ................sono sempre pronto ad imparare :) :) :) :)

Ciao Noris
Win10 + Office 2010 Ita
siron277
Utente Junior
 
Post: 50
Iscritto il: 27/10/13 14:38

Re: 10eLotto importa in excel

Postdi siron277 » 03/12/13 20:16

Ciao, sto utilizzando la formula : "Sub TrovaAT2()" ma vorrei limitare il campo di ricerca dalla riga n.180 alla riga 200 anziché di tutto l'elenco . E' possibile modificarla e in che modo ?

Grazie Mille

Noris
Win10 + Office 2010 Ita
siron277
Utente Junior
 
Post: 50
Iscritto il: 27/10/13 14:38

Re: 10eLotto importa in excel

Postdi Flash30005 » 05/12/13 00:35

Devi solo modificare il range determinato dal ciclo For... next
attuale è
Codice: Seleziona tutto
For RR1 = 1 To UR - 1

adattato alle tue esigenze sarebbe
Codice: Seleziona tutto
For RR1 = 180 To 199


ciao
P.S quella proposta da me è una macro (o codice VBA) non formula, è sempre meglio dare il nome appropriato ad ogni cosa per non creare confusione.
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: 10eLotto importa in excel

Postdi siron277 » 12/12/13 00:02

Ciao Flash,
grazie per la correzione. :)

Ho un foglio di nome :"Univoco" dove partendo da A1:G30 ho inserito le 30x7=210 terzine (25-26-51 es.) da esaminare, ricavate con la macro TrovaAT2.
Nella colonna "H:H", partendo da "H1" che l'ho chiamata "UNIVOCO", ho copiato verticalmente le 210 terzine ( A1:A30 - B1:B30 -C1:C30 - D1:D30 - E1:E30 - F1:F30 - G1:G30)
La cella "K1" l' ho chiamate " Univoco".

Utilizzando la funzione :"Dati\Filtro\Avanzate" , in " FILTRO AVANZATO" ho selezionato :

- " Azione =Copia in un'altra posizione
- Intervallo elenco " H:H"
- Intervallo Criteri - Nessuna Voce
- Copia in "Estrai" (Ho selezionato la colonna K:K)
- Selezionando "copia univoca dei record"

ho ricavato le terzine univoche della settimana, inserendo questa funzione in una macro grazie a "Registra Macro"

Ti vorrei chiedere se è possibile ricavare lo stesso risultato di K:K senza dover utilizzare 210 righe ma semplicemente lavorando nell'area A1:G30,ma sempre in orizzontale, per permettermi di poter inserire le prossime terzine settimanale da esaminare appena successive a A31, non dovendo partire da A211 e questa "soluzione" ricavata inserirla successivamente a una sequenza di dati con "Registra Macro"

Grazie Noris
Win10 + Office 2010 Ita
siron277
Utente Junior
 
Post: 50
Iscritto il: 27/10/13 14:38

Re: 10eLotto importa in excel

Postdi Flash30005 » 13/12/13 00:25

Mi risulta complicato capire senza avere il file davanti
puoi provvedere ad inviarlo?

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: 10eLotto importa in excel

Postdi Flash30005 » 13/12/13 09:52

Vedi se va bene questa macro
Codice: Seleziona tutto
Sub CompilaTUniv()
Range("L:L").ClearContents
Range("L1").Value = "Univoco"
For CC = 1 To 7
For RR = 1 To 30
Str1 = Cells(RR, CC).Value
URL = Range("L" & Rows.Count).End(xlUp).Row + 1
For RRL = 2 To URL
If Range("L" & RRL).Value = Str1 Then GoTo SaltaRR
Next RRL
 Range("L" & URL).Value = "'" & Str1
SaltaRR:
Next RR
Next CC
End Sub


Ho utilizzato la colonna L per confrontarla con la tua colonna K
ma puoi cambiare colonna sostituendo la lettera a inizio macro

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: 10eLotto importa in excel

Postdi siron277 » 13/12/13 14:41

Grazie Flash, funziona.
Solo l'ultima cosa, nella macro le indicazioni :
For CC = 1 To 7
For RR = 1 To 30
sono a indicare l'area di selezione :
dalla 1° alla 7° colonna
dalla 1° alla 30° riga

..........per una eventuale modifica futura.

Giusto ??

Noris
Win10 + Office 2010 Ita
siron277
Utente Junior
 
Post: 50
Iscritto il: 27/10/13 14:38

Re: 10eLotto importa in excel

Postdi Flash30005 » 13/12/13 16:38

Esatto!
Se invece le righe e/o colonne sono variabili allora si usa, normalmente, il codice per conteggiare le righe (e/o colonne)

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: 10eLotto importa in excel

Postdi siron277 » 14/12/13 20:13

Per avere anche una piccola infarinatura personale,

"Se invece le righe e/o colonne sono variabili allora si usa, normalmente, il codice per conteggiare le righe (e/o colonne)"

lo puoi inserire ,se è possibile, sul foglio "Univoco" con un esempio pratico ?

Ciao Noris
Win10 + Office 2010 Ita
siron277
Utente Junior
 
Post: 50
Iscritto il: 27/10/13 14:38

Re: 10eLotto importa in excel

Postdi Flash30005 » 15/12/13 00:31

Codice: Seleziona tutto
UC = Worksheets("Univoco").Cells(1, Columns.Count).End(xlToLeft).Column 'Trova la prima colonna (numero colonna) con dati nella riga 1, partendo da destra
UR = Worksheets("Univoco").Range("A" & Rows.Count).End(xlUp).Row 'Trova la prima riga con dati (numero riga) nella colonna A partendo dall'ultima riga del foglio


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: 10eLotto importa in excel

Postdi siron277 » 21/12/13 14:53

Ciao Flash,
ho rifatto il foglio statistico che allego a:

http://www.filedropper.com/web10tutti


Ti sarei grato sei puoi :

1) Confrontando i terni nell'area JQ1:JW290 con i terni "univoco" KA:KA ,creare una macro per realizzare una "Tabella Pivot" nell' area del foglio Base AT2 ,. dei primi 15 terni maggiormente usciti della giornata.
2) Esportare l'area "Base AT2\A1:AC40" come una pagina web (Es. c:\Web\WEB10.htm) cosi come appare , per poterla visualizzare con un programma "auto refresh web page" e lasciare WEB10_tutti .xlsm con la medesima estensione nella directory c:\WEB.


Grazie ancora.

Noris
Win10 + Office 2010 Ita
siron277
Utente Junior
 
Post: 50
Iscritto il: 27/10/13 14:38

Re: 10eLotto importa in excel

Postdi Anthony47 » 23/12/13 01:40

Questa macro pubblica nel file zczc_pippo.htm il contenuto di Sheets("Base AT2").Range("A1:AC40"):
Codice: Seleziona tutto
Sub pubblica()
Sheets("Base AT2").Range("A1:AC40").Copy     '<<< Intervallo
Worksheets.Add
ActiveSheet.Name = "zczc_temp"
With Range("A1")
    .PasteSpecial Paste:=xlPasteColumnWidths
    .PasteSpecial xlPasteValues, , False, False
    .PasteSpecial xlPasteFormats, , False, False
    .Select
End With
Application.CutCopyMode = False
TmpFile = ThisWorkbook.Path & "\" & "zczc_pippo.htm"   '<<< Qui il nome file
'Pubblica:
With ThisWorkbook.PublishObjects.Add(SourceType:=xlSourceRange, _
    Filename:=TmpFile, _
    Sheet:=Sheets("zczc_temp").Name, _
    Source:=Sheets("zczc_temp").UsedRange.Address, _
    HtmlType:=xlHtmlStatic)
    .Publish (True)
End With
Application.DisplayAlerts = False
Sheets("zczc_temp").Delete
Application.DisplayAlerts = True
End Sub

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: 10eLotto importa in excel

Postdi siron277 » 23/12/13 14:59

Grazie Anthony47, funziona.

Ti chiedo cortesemente la modifica della stessa da esportare "pubblica" in un pc collegato in rete :

Nome PC : "PC100"
Directory: "c:\"
Cartella : "Pubblica"


Grazie Noris
Win10 + Office 2010 Ita
siron277
Utente Junior
 
Post: 50
Iscritto il: 27/10/13 14:38

Re: 10eLotto importa in excel

Postdi siron277 » 24/12/13 08:26

Ciao Anthony47 e Flash30005 , grazie per la collaborazione e la Vostra disponibilità .
Auguro a voi e alle vostre famiglie i miei più sinceri Auguri di Buon Natale e Felice Anno Nuovo.

Saluti Noris
Win10 + Office 2010 Ita
siron277
Utente Junior
 
Post: 50
Iscritto il: 27/10/13 14:38

Re: 10eLotto importa in excel

Postdi Anthony47 » 27/12/13 18:53

Ti chiedo cortesemente la modifica della stessa da esportare "pubblica" in un pc collegato in rete :

Nome PC : "PC100"
Directory: "c:\"
Cartella : "Pubblica"
Il nome completo del file si imposta in questa istruzione:
Codice: Seleziona tutto
TmpFile = ThisWorkbook.Path & "\" & "zczc_pippo.htm"   '<<< Qui il nome file

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: 10eLotto importa in excel

Postdi siron277 » 02/01/14 16:53

Ciao a tutti e Buon Anno.
Vi sarei grato se mi potete aiutare a creare questa tabella che allego :

http://www.filedropper.com/web10tutti02

Nella sezione ET1:FO290 vengono aggiornati i dati prelevati dal sito Lottomatica del Lotto 5 minuti, vorrei creare una tabella in A1:T20 dove vengono inserite solamente le ultime 20 estrazione aggiornate in automatico ogni volta che aggiorno i dati WEB.

Come si chiama una tabella cosi creata ?

Grazie

Noris
Win10 + Office 2010 Ita
siron277
Utente Junior
 
Post: 50
Iscritto il: 27/10/13 14:38

Re: 10eLotto importa in excel

Postdi Anthony47 » 02/01/14 19:52

Insomma vuoi poter riportare da A1 verso il basso le ultime 10 righe che compaiono in una tabella che cresce continuamente, posizionata in colonne EU:FO
Per questo la cosa piu' semplice e' che in una cella libera (io ho usato Z1) ti calcoli l' ultima riga utilizzata nella tabella, con la formula
Codice: Seleziona tutto
=MAX(SE(EV1:EV10000<>"";RIF.RIGA(EV1:EV10000);""))
Da confermare con Contr-Maiusc-Enter, non il solo Enter.
Poi in A1 inserisci la formula
Codice: Seleziona tutto
=INDICE(EU$1:EU$10000;$Z$1-20+RIF.RIGA(A1))
e copi verso destra (fino a U1?); poi copi la prima riga di formule verso il basso.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: 10eLotto importa in excel

Postdi siron277 » 02/01/14 22:02

Grazie e splendidi come sempre :) :) :)
Ok funziona a meraviglia..............ma come si definisce una tabella cosi, "dinamica", "statica", "..........?
Grazie ancora.

Noris
Win10 + Office 2010 Ita
siron277
Utente Junior
 
Post: 50
Iscritto il: 27/10/13 14:38

PrecedenteProssimo

Torna a Applicazioni Office Windows


Topic correlati a "10eLotto importa in excel":


Chi c’è in linea

Visitano il forum: Nessuno e 98 ospiti