Risultati della ricerca

Ciao a Tutti Mi sono accorto che negli script del post #16, ci sono degli errori, così come sono impostati non calcolano tutte le distanze possibili, ho tolto l'addizione che avevo impostato ed ho messo dei filtri K2 e K3, inoltre mettendo la modifica di poter cambiare il tipo di tabella...

Buona Pasqua

Buona Pasqua

Ciao a Tutti Lo devi aggiungere a n1

Devi aggiungere prima del for fin = estrazionefin Option Explicit Sub Main Dim numeri(10),Ini,fin,es,ruota ruota = 1 fin = EstrazioneFin For Ini = EstrazioneFin - 200 To fin Step 11 es = Ini numeri(1) = Estratto(es,ruota,3) numeri(2) = Estratto(es + 1,ruota,3)...

Ciao Toon prova così Sub Main Dim n(2),nu(2),num(3),nm(1),Ru(5),R(5),Ruo(3),Ruo1(5) Dim posta(1),poste(2),poste1(3),ini,fin posta(1) = 1 poste(2) = 1 poste1(2) = 1 poste1(3) = 0.50 fin = EstrazioneFin ini = CInt(InputBox(" Inserisci il numero di concorso della prima...

Ciao Mister1729 Ti posto uno script di LottoTom75 che fa splendidamente quello che chiedi Option Explicit Sub Main Dim sFile Dim k,y Dim nSorte,RetRit1,RetRitMax,RetIncrRitMax,Inizio,Fine,RetFreq,anum,QuantitaNumeriscelti Dim coltot,acol,Classe,i 'Script by lotto_tom75 x...

Ciao Solare Lancia lo script e quando ti appare questa schermata inserisci il numero 8117 (che corrisponde al 15/09/2009) in alto a destra pigia ok e dopo prosegui normalmente con lo script

Non è un numero, è una lettera