EXCEL E DINTORNI

[max63]

Ciao Baci..se scarichi il file vedrai che ho cercato di apportare nel Tabellone 1 le modifiche relativamente a quello che diceva Joe...Il fatto é che adesso purtroppo nella legenda non ci stanno tutte le ruote....devo rivedere

 

[joe]

Secondo me era più facile agire solo nella routine che genera il messaggio in oggetto :

' Messaggio con i risultati e legenda colori
Dim msg As String
msg = "Legenda colori:" & vbNewLine & _
"Rosa: singolo numero" & vbNewLine & _
"Giallo: coppia di numeri" & vbNewLine & _
"Verde: tris di numeri" & vbNewLine & _
"Blu: quartetto di numeri" & vbNewLine & _
"Viola: quintetto di numeri" & vbNewLine & vbNewLine & _
"Combinazioni trovate per ogni ruota:" & vbNewLine & vbNewLine

For ruotaIdx = 0 To UBound(ruote)
msg = msg & ruote(ruotaIdx)(0) & ":" & vbNewLine
For k = 1 To 5
If lastRows(ruotaIdx, k) > 0 Then
msg = msg & k & " numeri: Rit.Corr. " & lastRows(ruotaIdx, k) - 13 & vbNewLine
End If
Next k
msg = msg & vbNewLine
Next ruotaIdx

MsgBox msg

Però MsgBox è utile per un messaggio e non per una tabella corposa e l'elenco rimane incompleto.

Tutti questi dati però , sarebbero meglio riassunti e disposti in una griglia appositamente creata per essi.

 

[Baciccia4251]

14.1 MB file on MEGA

mega.nz

Versione 21.

Il foglio Tabellone1 non mostra più la finestra iniziale (in verità finale), mi era servita esclusivamente per vedere se i dati venivano presi correttamente. Non aveva più alcuna ragione d'esistere, quindi l'ho eliminata.
D'altra parte per quanto mi riguarda il Tabellone di riferimento è il primo, questo era solo una curiosità, d'altra parte i dati che evidenzia, da soli, servono a poco o niente. Comunque la lascio e se volete fare esperimenti fate pure. Tante teste, tante idee.
Quindi se eravate interessati alla finestrella che si apriva, non cancellate la vecchia versione.
Il foglio RuotaP ora può (ma è ancora in fase sperimentale anche se copia i giusti valori) caricare le Tabelle di Pazzaglia sia orizzontali che verticali. Per caricare Bari orizzontale, dopo aver cliccato l'apposito pulsante scrivete Bari1 (se volete i verticali Bari2, questo per tutte le altre ruote cagliari1 e cagliari2 ecc.) e date invio.
A questo punto se volete verificare solo un estrazione cliccate sul pulsante AnalisiRuotP. Se volete verificare le ultime 20 estrazioni aprite il foglio RiepilogoAnalisi cliccate su Elabora scegliete la ruota, se su RuotaP avete scelto Bari1 oppure Bari2 dovrete scrivere semplicemente bari, perché la macro prenderà i valori direttamente dal foglio RuotaP.
Le mancanze sono ancora molte, perché non riesco a spiegare in maniera chiara all'AI come deve trattare i numeri Sottomedia. Ogni prova fatta, e sono decine, è stata un disastro. Ho visto, ad esempio, che in una macro importante manca un pezzo di codice. La AI, birbantella, ogni tanto non dà la macro completa e se non te ne accorgi subito sono guai. Che minchia faceva que pezzo di codice che manca? E chi se lo ricorda. Comunque la macro sembra funzionare lo stesso.
Se amate i ritardi:



Ma ricordate che il ritardo è un semplice dato non una indicazione di prossima uscita.
Se suonano il capanello di casa vostra alle 11 del mattino pensate al postino, che suona tutti i giorni a quell'ora, oppura ad Amilcare un vostro amico perduto in Amazzonia 50 anni fa? I ritardi li chiamerei Amilcare...
Si possono tenere presenti solo se vi sono forti convergenze. Un ritardo di 684 estrazioni di un ambo su 8 ruote possone sembrare tante
ma vi sono formazini di due numeri su 8 ruote che quel valore hanno superato di molto.
Ma se trovate convergenze...
Come direbbe Alien uscirà l'ambo... prima o poi.
Buon Ferragosto
Baciccia

 

[Baciccia4251]

Numeri sotto controllo (è solo una prova che metto qui così non li perdo. Non sono previsioni, o meglio lo sono -solo ambata- ma non sono da giocare)

Ca 19.31 Fi 58.26.43.90 Ge 37.43 Mi 4.41.78 Na 54.58.43.63 Pa 13.50.76
Ro 6.17.26 To 8.71.78 Ve 7.82.86 Nz 71.78.85
Ba.Na.Pa 87 Ge.Na 5.13.40

 

[Alien.]

Ciao Baci scusa ma il superenalotto 11 non si aggiorna lo si deve fare a mano, grazie.

 

[Baciccia4251]

I numeri che scrivo ora non sono previsioni. Sono solo numeri di cui voglio vedere l'evoluzione nelle prossime 6 estrazioni.
Li scrivo qui così sono sicuro di non perderli. Speriamo solo che mi ricordi d'averli scritti...

Nazionale 77 (ruota birichina)
Venezia 7
Torino 36
Roma e Palermo 67 Non considerare c'era un errore nei dati che ho usato.
Napoli 85
Genova 30
Firenze 45

Vedi l'allegato 2294131
Se fosse un altra ruota sarebbe maturo, ma la Nazionale usa spesso il fattore tppic però 70.77...

di ogni numero dovrò verificare anche i laterali.

Cagliari 47.48.49.56.60
Bari 16.17.18.19.20.21.26.27.28.30
Questi sono da controllare per ambo

Baciccia

dopo otto estrazioni:

Nazionale 77 alla 1° esce il laterale 76, alla 4° esce il 77
Venezia 7 alla 7° esce il laterale 6 (Un po' poco Negativa)
Torino 36 alla 2° esce il 35, alla 6° esce il laterale 37 che si ripete all'8°
Napoli 85 alla 1° esce il laterale 86, all'8° esce l'85
Genova 30 alla 3° esce il laterale 29, all'8° esce il 30
Firenze 45 alla 4° esce il laterale 44 (Negativa)
Cagliari 47.48.49.56.60 alla 4° escono 48 e 56 più il laterale 50
Bari 16.17.18.19.20.21.26.27.28.30 alla 2° escono 16 e 21

3 ambate piene, diversi laterali. Previsione mediocre (TENETE PRESENTE CHE AVREI DOVUTO GIOCARE CON I LATERALI TRE NUMERI A PREVISIONE)
2 ambi in lunghetta entro la 4° estrazione. Previsione discreta. Mi aspettavo di più da Bari, la probabilità per terno era buona, ma non ha avuto esito. è andata più vicino al terno Cagliari che aveva una bassa probabilità di terno.

Giocando 3 euro per bolletta solo per ambata. e 1 euro solo per ambo con le lunghette:

1° giocata spesa 20 euro escono 2 ambate vincita 21,10 euro
2° giocata spesa 14 euro esce un ambta vincita 10,55 ambo 5,50
3° giocata spesa 10 euro esce un ambata vincita 10,55
4° giocata spesa 7 euro esce un ambata vincita 10,55 ambo 23,50
5°-6°-7° giocata spesa 9 euro esce un ambata vincita 10,55

totale spesa 60 euro totale vincite 92,30 differenza +32,30 Malgrado una previsione così, così saremmo stati in vincita. Poco ma qualcosa
Chiaramente sarebbe potuto andare peggio e potremmo aver perso tutto. Vabbe! Con i soldi vinti virtualmente vado a mangiare una pizza virtuale
Alla salute!
Baciccia hic! hic!

 

[Baciccia4251]

Ciao Baci scusa ma il superenalotto 11 non si aggiorna lo si deve fare a mano, grazie.

Io l'ho aggiornato. La procedura è un po' complessa

1) da questo sito devi scaricare le strazioni:
https://www.tuttosuperenalotto.it/s...o-download-in-formato-excel-xls.asp?anno=2024



Il file scaricato, io lo scarico sul Desktop, si chiama public_download-superenalotto-archivio-storico-anno-2024-369131983.xls (o qualcosa di simile)
Quando lo hai scaricato devi posizionardi con la freccia del mouse sopra di esso e fare clic col tasto destro e nella finestrella che appare scegliere "Proprietà". Ti apparirà questa finestra:



deve spuntare la casellina a fianco di "Annulla blocco" in basso, e dare l'OK.

A questo punto dal file excel, foglio Archivio, clicchi su aggiorna:


qui devi selezionare il file scaricato e cliccare su OK. Se ci sono nuove estrazioni esse verranno aggiunte all'archivio.

Ci vuole molto a spiegare ma non è così difficile come sembra.
Riprova, anche se hai già aggiornato a mano l'archivio, se tutto funziona apparirà il messeggio "Nessuna nuova estrazione"
Funziona. mentre lo spiegavo, ho fatto tutti i passaggi descritti e funziona.
Ciao
Baciccia

 

[Alien.]

Ciao Baci ma se faccio un copia ed incolla di una o più estrazioni può andar bene, Grazie

 

[Baciccia4251]

Ciao Baci ma se faccio un copia ed incolla di una o più estrazioni può andar bene, Grazie

Si. Puoi fare un copia e incolla, stai solo attento che siano nello stesso formato.
Baciccia

 

[Alien.]

Credo di SI prima andavo in quel sito e facevo copia ed incolla con l'altro programma, provo poi ti dico, grazie.