SommaTotale

[lottomoney]

buongiorno a tutti,
quello che allego è un metodino semplice semplice che adesso ce l'ho con excel e desideravo, se qualcuno è disposto a farlo, trasformarlo in script.
Praticamente si sommano in verticale le 11 ruote, per ogni singola posizione e la somma ricavata a sua volta sommarla alle altre 4 per ricavare l'ambata. Si utilizzeranno i 5 risultati delle somme per la lunghetta a cui va aggiunta l'ambata ricavata.
L'esempio allegato è molto più intuibile che non la descrizione.
Giocata di lunghetta x Ambo, Terno e Quaterna.
Ringrazio in anticipo chi si vuole cimentare nell'impresa
lottomoney

P.S.: se fosse possibile scegliere da input le ruote di gioco. Grazie.

[Master]

Ciao
controllare sempre se ci sono errori

Codice: Seleziona tutto

Sub Main()
Scrivi"Somma verticale Richiesta Lottomoney Forum (Lottopassion) script by Master",1:Scrivi
Dim a(5),b(5),c(5),d(5),e(5),f(5),g(5),h(5),m(5),l(5),o(5)
Dim ruote(2),ruot(3)
Dim posta(1),poste(4)
Dim amb(6),am(1)
posta(1) = 1
poste(2) = 1 : poste(3) = 1 : poste(4) = 1
inizio = InputBox("Quante estrazioni vuoi visualizzare ?","Master",50)
re = InputBox("1° Ruota di Gioco ? SCEGLI : da 1 a 12","Master",10)
re1 = InputBox("2° Ruota di Gioco? SCEGLI : da 1 a 12","Master",12)
re2 = InputBox("2° Ruota di Gioco? SCEGLI : da 1 a 12","Master",11)
cl = InputBox("Quanti colpi vuoi controllare?","Master",9)
fin = EstrazioneFin
ini = fin - inizio
For es = ini To fin
k = k + 1
ColoreTesto 2
Scrivi String(25,"=")&"    INDICE   MENSILE    " & IndiceMensile(es)&"    "& String(25,"="),1 : Scrivi
ColoreTesto 0
For r = 1 To 12
For i = 1 To 5
a(i) = Estratto(es,BA_,i)
b(i) = Estratto(es,CA_,i)
c(i) = Estratto(es,FI_,i)
d(i) = Estratto(es,GE_,i)
e(i) = Estratto(es,MI_,i)
f(i) = Estratto(es,NA_,i)
g(i) = Estratto(es,PA_,i)
h(i) = Estratto(es,RO_,i)
m(i) = Estratto(es,TO_,i)
l(i) = Estratto(es,VE_,i)
o(i) = Estratto(es,NZ_,i)
pr = Fuori90(a(1) + b(1) + c(1) + d(1) + e(1) + f(1) + g(1) + h(1) + m(1) + l(1) + o(1))
se = Fuori90(a(2) + b(2) + c(2) + d(2) + e(2) + f(2) + g(2) + h(2) + m(2) + l(2) + o(2))
te = Fuori90(a(3) + b(3) + c(3) + d(3) + e(3) + f(3) + g(3) + h(3) + m(3) + l(3) + o(3))
qu = Fuori90(a(4) + b(4) + c(4) + d(4) + e(4) + f(4) + g(4) + h(4) + m(4) + l(4) + o(4))
qi = Fuori90(a(5) + b(5) + c(5) + d(5) + e(5) + f(5) + g(5) + h(5) + m(5) + l(5) + o(5))
sm = Fuori90(pr + se + te + qu + qi)
Next
ruote(1) = re : ruote(2) = re1
ruot(1) = re : ruot(2) = re1 : ruot(3) = RE2
Scrivi DataEstrazione(es) & "  " & FormatSpace(NomeRuota(r),10) & "  " & FormatSpace(StringaEstratti(es,r),15)
Next
Scrivi String(80,"-")
Scrivi "Somma  Verticale F90    " &(pr) & "." &(se) & "." &(te) & "." &(qu) & "." &(qi) & "   Somma Totale F90   " &(sm)
Scrivi String(80,"-"),1
am(1) = sm
ImpostaGiocata 1,am,ruote,posta,cl
amb(1)= sm
amb(2)= pr
amb(3)= se
amb(4)= te
amb(5)= qu
amb(6)= qi
EliminaRipetuti amb
ImpostaGiocata 2,amb,ruot,poste,cl
Gioca es
Scrivi
Next
ScriviResoconto
End Sub
 

[lottomoney]

Grazie mille Master