I contenuti più recenti di Reacher

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