Novità

EXCEL E DINTORNI

Baciccia4251 ha scritto:
Non sono Baciccia.
Il file da scaricare è questo: Vedi l'allegato 2314056
Al suo interno vi sono molti fogli. Abbiamo visto che diversi hanno avuto un inizio ma non sono mai stati portati alla loro naturale conclusione.
Probabilmente il Baciccia si era dimenticato di quellom che stava facendo. Purtroppo le capitava.
Noi non siamo esperti di lotto, chi ha messo mano sul file conosce Excel ma ha deciso di limitarsi a cercare gli errori più banali e di aggiungere qualche foglio seguendone lo stile. Purtroppo non dispone di molto tempo e, a volte, mi chiama spiegandomi cosa devo fare.
Peccato che il mio livello di conoscenza di Excel sia ben poca cosa. La prima volta che mi ha detto: "Apri la macro XY" le ho chiesto la chiave...
Clicca per espandere...
Grazieee
 
CIAO LUCA, scusami ma come si aggiorna superAlienalotto ? Dopo che baci me l'ho ha fatto lo avevo perso tra 1000 excel poi l'ho ritrovato su una chiavetta usb , grazie. Buona serata.

Alien.
 
Ultima modifica:
mega.nz

15.45 MB file on MEGA

mega.nz mega.nz

Velocizzato il foglio Analisi quindicine1
In Archivio aggiunto il pulsante per creare un file TXT da usare in Spaziometria (con l'apposita macro) per aggiornare l'archivio
(se vi serve lo usate, se non vi serve non lo usate, se non funziona fatelo presente. Non sono interessato a commenti non richiesti d'altro genere).

Lo Script per Spaziometria è questo:

'Aggiorna archivio lotto di Spaziometria (Ramco)_apr2026
'Versione modificata per usare storico.txt generato da Excel

Option Explicit
Sub Main

Dim sDirTemp,sFileBd
Dim sCData,nSalvate
Dim sDataEstr,sDataLastEstr
Dim nEstrTot,id,z,b
Dim aRighe,k
Dim sData,sSigla
Dim aEstr,r,c
Dim aCampi

sFileBd = GetDirectoryAppData & "BaseDati.dat"

' --- Percorso file TXT ---
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

' 2 = cartella TEMP di Windows
sDirTemp = fso.GetSpecialFolder(2) & "\storico.txt"

' --- Verifica esistenza file TXT ---
If Not fso.FileExists(sDirTemp) Then
Call Scrivi("ERRORE: il file storico.txt non esiste.",True,,,vbRed)
Call Scrivi("Generarlo prima da Excel con la macro CreaStoricoTXT.",True)
Set fso = Nothing
Exit Sub
End If

Set fso = Nothing

' --- Lettura righe del file TXT ---
ReDim aRighe(0)
If Not LeggiRigheFileDiTesto(sDirTemp,aRighe) Then
Call Scrivi("ERRORE: impossibile leggere storico.txt.",True,,,vbRed)
Exit Sub
End If

' --- Dati archivio corrente ---
nEstrTot = EstrazioniArchivio
sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
z = Right(sDataLastEstr,4) & "/" & Mid(sDataLastEstr,4,2) & "/" & Left(sDataLastEstr,2)
id = IndiceAnnuale(nEstrTot)
b = False

' --- Loop sulle righe del file TXT ---
ReDim aEstr(11,5)
sCData = ""

For k = 0 To UBound(aRighe)
If ScriptInterrotto Then Exit For

If Trim(aRighe(k)) <> "" Then

aCampi = Split(aRighe(k),vbTab)

If UBound(aCampi) >= 6 Then
sData = Trim(aCampi(0)) ' AAAA/MM/GG
sSigla = Trim(aCampi(1))

' --- Nuova data ---
If sData <> sCData Then

If b = True Then
If sCData <> "" Then
If Left(sCData,4) <> Left(sData,4) Then id = 0
id = id + 1
sDataEstr = Right(sCData,2) & "/" & Mid(sCData,6,2) & "/" & Left(sCData,4)
If SalvaEstrazione(aEstr,sDataEstr,id,sFileBd) Then
nSalvate = nSalvate + 1
Call Messaggio(nSalvate)
Else
ColoreTesto 2
Call Scrivi("ATTENZIONE: errore salvataggio estrazione " & sCData,True)
ColoreTesto 0
End If
End If
End If

If sCData = z Then b = True

ReDim aEstr(11,5)
sCData = sData
End If

' --- Rimappatura sigle ---
If sSigla = "BA" Then r = 1
If sSigla = "CA" Then r = 2
If sSigla = "FI" Then r = 3
If sSigla = "GE" Then r = 4
If sSigla = "MI" Then r = 5
If sSigla = "NA" Then r = 6
If sSigla = "PA" Then r = 7
If sSigla = "RM" Then r = 8
If sSigla = "TO" Then r = 9
If sSigla = "VE" Then r = 10
If sSigla = "RN" Then r = 11

' --- Numeri ---
For c = 1 To 5
aEstr(r,c) = Format2(CInt(Trim(aCampi(c + 1))))
Next

End If
End If

Call AvanzamentoElab(0,UBound(aRighe),k)
Next

' --- Salva ultima estrazione ---
If b = True Then
If sCData <> "" Then
id = id + 1
sDataEstr = Right(sCData,2) & "/" & Mid(sCData,6,2) & "/" & Left(sCData,4)
If SalvaEstrazione(aEstr,sDataEstr,id,sFileBd) Then
nSalvate = nSalvate + 1
End If
End If
End If

' --- Riepilogo ---
If nSalvate > 0 Then
AllineaArchivi
Call Scrivi()
Call Scrivi("Script per Spaziometria - Aggiornamento da file Excel",True,,,vbBlue)
Call Scrivi()
Call Scrivi("Sono state aggiunte " & nSalvate & " estrazioni")
Call Scrivi()
Call Scrivi("Estrazioni totali: " & EstrazioniArchivio)
Call Scrivi()
Call Scrivi("RAMCOLOTTO",True,,,vbBlue)
Else
Call Scrivi("NON HO TROVATO NUOVE ESTRAZIONI !",1,,,2)
End If

End Sub
 
Ultima modifica:
Ho fatto un po' di prove col file prova. Ho eliminato estrazioni dall'archivio e controllato i risultati.
Gli ambi sono un po' deludenti, le lunghette sono meglio.
Il problema è la scelta degli ambi, magari poi ci verrà qualche idea. Anche sui pattern qualche ideuzza non sarebbe male.
Vedremo
 
mega.nz

10.06 MB file on MEGA

mega.nz mega.nz

1776814737552.png

non fa previsioni. Cerca (con qualche escamotage) i 10 numeri più ritardati in un certo periodo, segnala i numeri, la data d'inizio, la data di uscita di almeno 2 numeri, ecc.
L'ultima riga della tabella riporta i 10 numeri più ritardati sulla ruota esaminata, è possibile esaminare anche tutte le ruote assieme (un po' lenta perchè non ottimizzata, in basso a sinistra si vede l'avanzamento della ricerca)

1776815070457.png

In questo caso a quota 41 oltre al 48 segnalato c'è anche il 55 (ne viene riportato uno solo)

1776815257507.png
 
Ultima modifica:
Lottopython ha scritto:
ottimo lavoro .complimenti
Clicca per espandere...
In realtà mi hanno (telefonicamente) tirato le orecchie. Secondo loro prima di vendere l'asino devo comprarlo...
Mi hanno fatto una domando che... "Aggiorna anche quei fogli dove si aprono finestre che vogliono un input?"
O qualcosa del genere. In effetti no, con quei fogli non funzionano. E di fogli di questo tipo ad esempio in Nuovo.xlsm
ce ne sono tanti 😭.
Va beh! Sono prove non completamente riuscite. Mi servono per cercare di capire (si fa per dire) Excel.
Ho chiesto se lo potevano sistemare, la risposta è stata tu hai rotto il muro, tu devi ripararlo (modo simpatico per
dire che mi hanno mandato a...)

Risposta dell'AI:

1776986719410.png
 
Ultima modifica:
Alien. ha scritto:
Ciao ma come mai mi devo registrare poi mi dice se ho un conto ?
Clicca per espandere...
Hai scaricato dal Link che ho postato?
Perché dopo aver provato ad installarlo su 4 computer differenti, non è apparso nulla di quello che dici. e come potrebbe essere?
Per sicurezza ho sottoposto il file ad ogni Antivirus e Antimalware conosciuto, e non c'è nulla.
Quindi non so come mai a te accada questo.
Posta lo screenshot della finestra che appare. Grazie
 
Alien. ha scritto:
PUOI PROVARE AD INSERIRE NUOVAMENTE MEGA......
Clicca per espandere...
Come ha scritto Lottopython:

1777200295926.png

Basta cliccare, accanto a "Salva in Mega" sulla freccetta rivolta verso il basso (e cerchiata) e scarichi senza problemi
Non sapevo, visto che da Mega non scarico nulla, che apparisse quella finestra, negli appunti del Baciccia non c'è nulla che ne parli.
Forse, da quando la utilizzava lui è cambiato qualcosa.
Comunque la richiesta di registrarti non comporta nulla, salvo la possibilità di usufruire di una certa quantità di spazio da utilizzare, ad esempio, per salvare qualche dato importante.
Io avevo capito che quella finestra apparisse quando lanciavi il file Excel, e mi ero preoccupato un po'.
So di avere il computer, per quanto umanamente possibile "blindato", non ho mai preso virus. Però so anche che tutto è possibile.
Quindi non cliccare su registrati, a meno che vuoi utilizzare lo spazio che ti offrono gratutitamente.
 
mega.nz

9.99 MB file on MEGA

mega.nz mega.nz

in questa versione è possibile, prima di elaborare i diversi fogli, scegliere il giorno dell'estrazione da elaborare (martedì, giovedì, venerdì, sabato, tutti) manca ancora il foglio Ritardi, per il resto è funzionante, anche se devo finire di controllare i risultati che, in apparenza, sembrano giusti. Se volete controllare anche voi...

1777205861548.png

qui ho scelto sabato

1777206492038.png

1777206517263.pngNord

1777206561263.pngcentro

1777206601845.pngsud
 
Ma strano mi sembra che tu sia risorto ...hhahaahha
senti come di aggiorna supernalottoALIEN ......
RISOLTO CON LA FRECCIA IL PROBLEMA CON MEGA, GRAZIE.
 
mega.nz

9.89 MB file on MEGA

mega.nz mega.nz

Anche il foglio Ritardo, ora, accetta la scelta del giorno da elaborare
Inoltre c'è un nuovo foglio chiamato RiepilogoGiorni:

1777233211722.png

Nel foglio CicliGruppo10:

1777233366773.png

Il pulsante Statistiche lo potete cancellare (selezionatelo col tasto destro del mouse e premete il tasto CANC della tastiera)

La macro Elabora richiama automaticamente le Statistiche dopo aver elaborato i dati e apre il foglio Statistiche

Ho controllato ma se notate qualcosa che non va segnalatelo

Se vi chiedete che fine ha fatto la possibilità di aggiornare il file automaticamente pensate ad altro. Se è possibile non sono in grado di farlo, e se qualcuno è davvero in grado di farlo non ha voglia di farlo, quindi non lo facciamo 😒
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    lunedì 27 aprile 2026
    Bari
    38
    78
    24
    40
    33
    Cagliari
    26
    80
    05
    01
    48
    Firenze
    80
    71
    74
    22
    67
    Genova
    68
    39
    49
    59
    13
    Milano
    40
    19
    08
    62
    84
    Napoli
    43
    80
    06
    78
    82
    Palermo
    37
    55
    68
    33
    11
    Roma
    01
    04
    36
    81
    38
    Torino
    17
    15
    75
    69
    76
    Venezia
    70
    85
    24
    56
    53
    Nazionale
    76
    84
    68
    65
    23
    Estrazione Simbolotto
    Genova
    19
    20
    44
    08
    02
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto