Risultati della ricerca

Sub Main() Dim r, p, es, numero Dim fine, inizio, colpi Dim presenze(90) Dim ultimaUscita(90) Dim elencoNumeri, elencoEvidenziati, elencoRipetuti Dim contatoreUnici, contatoreEvidenziati colpi = 18 fine = EstrazioneFin inizio = (fine - colpi) + 1 ' Intestazione Generale dello Script Scrivi...

Sub Main() Dim r, p, es, numero Dim fine, inizio, colpi Dim presenze(90) Dim ultimaUscita(90) Dim elencoNumeri, elencoEvidenziati, elencoRipetuti Dim contatoreUnici, contatoreEvidenziati colpi = 18 fine = EstrazioneFin inizio = (fine - colpi) + 1...

Prova così Sub Main() Dim r, p, es, numero Dim fine, inizio, colpi Dim presenze(90) Dim ultimaUscita(90) Dim elencoNumeri, elencoEvidenziati Dim contatoreUnici, contatoreEvidenziati colpi = 18 fine = EstrazioneFin inizio = (fine - colpi) + 1 '...

Option Explicit Sub Main Dim es, r, p, n Dim riga, contatoreRipetuti Dim ini, fin Dim freq(12, 90) ' Definizione del range: ultime 18 estrazioni disponibili fin = EstrazioneFin ini = (fin - 18) + 1 ' Inizializzazione dell'array delle frequenze a 0...

Cambia If IsPenultimaDelMese(estr) Then Con questo If indicemensile(estr) =1 then

Al posto di isultimedelmese scrivo if indicemensile( n) =1 2 eccc

Sub Main() Dim Ruote(3) Dim Num(1) Dim Posizioni(5) Dim Posta(1) Posta(1) = 1 ' Puntata sull'estratto (ambata) ' Scelta delle 3 ruote da parte dell'utente Ruote(1) = ScegliRuota Ruote(2) = ScegliRuota Ruote(3) = ScegliRuota If Ruote(1) = 0 Or...

È un problema di spaziometria legato alla versione di Excel installata su pc... Comunque sia il file si apre e tutto dipende anche dall estensione Se hai Excel 2007 xlsx prima di riaprire il file rinominalo xlsx Comunque devo ancora valutare

Ecco modificato se trova numeretto o zerato Sub Main() Dim number(4), ambetto, ambo, ruotaDaVerificare, estrazioneControllo, Retnum, Retvinc Dim ruote(12), posta(2), es, p, a, b, colpo, pos, k, giocataAttiva Dim Retesito, Retcolpi, Retestratto, Retidestr ' Configurazione...

Attenzione 2x0 in matematica fa 0 Dobbiamo modificare lo script se zerato prendere solo decina...

Ciao, sei poi riuscito?

Sub Main() Dim number(4), ambetto, ambo, ruotaDaVerificare, estrazioneControllo, Retnum, Retvinc Dim ruote(12) Dim posta(2) ' Configurazione Posta: 2 € sull'Ambo (posta(2)) e abilitiamo l'Ambetto nel motore di Spaziometria posta(2) = 2 ' Configurazione Ruote...

3478969340 sentiamoci stasera alle 21.30 e ti guido cercando di sistemare la situazione. https://mega.nz/fm/EUpxhbwY

Se stasera puoi ti lascio dopo il numero e ti seguo per telefono Ora sono a lavoro

Sicuro nella cartella download Non usare nessuno script

Archivio.se è la funzione dello script che richiama l archivio superenalotto... Mentre BaseDatiSuperEna.Dat senza spazi è l archivio originale del programma

Purtroppo ancora caos... Hai scaricato gli archivi dal mio link? Penso di sì nella cartella download BaseDatiSuperEna .Dat attenzione hai due file con stesso nome... Quello dove c è lo spazio prima del punto eliminalo. Fermati stop non lanciare nessuno script I file che hai scaricato mettili...

🤣🤣🤣🤣🤣🤣🤣🤣

No l installazione va solo su disco interno Scarica crystal disk info e controlla lo stato del disco È un primo controllo che farei Poi penserei a spaziometria

I basedat hanno dimensione 0kb quindi non hai sostituito nulla ecco perché l archivio è ancora vuoto Continui a sbagliare E sospetto che il tuo disco possa avere problemi.... Penso....