SCRIPT IN EXCEL

[mister1729]

Ciao a tutti , chiedevo se e come poter usare uno script utilizzandolo in excel !

 

[80Sete]

Ciao, credo che tu debba mettere qui lo script, se sono metodi sommativi qualcuno potrà combinare.

 

[mister1729]

Ciao 80Sete grazie mille per il suggerimento !


Option Explicit
Sub Main
Dim FIn,Es,Ini,R1,R2,R3,R4,Clp
Dim P1,P2,Po1,PO2,PO3,PO4,A,AA,B,BB,C,CC,D,DD,E1,E2,Co
Dim Ruo(3),SOBI(2),SOBI1(2),SOBB,SOBB1,SODIA,SODIA1
Dim SOB,SOB1,DSOB,DSOBB1,SOSOB,SOSOB1,SORIZ,SORIZ1
Dim TOTO2,TOTO,TOTODI,POS,SM
Dim Posta(2),Num1(3)
Posta(1) = 1 : Posta(2) = 1
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,6188)
Call ScegliRange(Ini,FIn,Ini,FIn)
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
For R1 = 1 To 9
R2 = R1 + 1
For Po1 = 1 To 4
PO2 = Po1 + 1
A = Estratto(Es,R1,Po1) : B = Estratto(Es,R2,Po1)
AA = Estratto(Es,R1,PO2) : BB = Estratto(Es,R2,PO2)
R3 = R2
R4 = R3 + 1
If R4 = 11 Then R4 = 1
For PO3 = 1 To 4
PO4 = PO3 + 1
C = Estratto(Es,R3,PO3) : D = Estratto(Es,R4,PO3)
CC = Estratto(Es,R3,PO4) : DD = Estratto(Es,R4,PO4)
'--------------------------------------
SOBI(1) = Fuori90(A + B): SOBI(2) = Fuori90(AA + BB)
SOBI1(1) = Fuori90(C + D):SOBI1(2) = Fuori90(CC + DD)
'----------------------------------------------
SOB = Massimo(SOBI(1),SOBI(2)) : SOBB = Minimo(SOBI(1),SOBI(2))
SOB1 = Minimo(SOBI1(1),SOBI1(2)) : SOBB1 = Massimo(SOBI1(1),SOBI1(2))
'-------------- DISTANZA ORIZZONTALE
DSOB = Distanza(SOB,SOBB)
DSOBB1 = Distanza(SOB1,SOBB1)
'--------------- SOMME VERT
SOSOB = Fuori90(SOB + SOB1)
SOSOB1 = Fuori90(SOBB + SOBB1)
'--------------- SOMME ORIZ
SORIZ = Fuori90(SOB + SOBB)
SORIZ1 = Fuori90(SOB1 + SOBB1) : TOTO = Fuori90(SORIZ + SORIZ1)
'------------------ DIAGONALI
SODIA = Fuori90(SOB + SOBB1)
SODIA1 = Fuori90(SOBB + SOB1) : TOTODI = Fuori90(SODIA + SODIA1)
'-------------------- DIVISIONI
TOTO2 = Fuori90(SORIZ1/2 + SORIZ/2)
If DSOB = DSOBB1 And SOSOB = SOSOB1 Then
Co = Co + 1
Scrivi String(100,"=") & " " & Co
'=======================================================
Scrivi Space(3) & DataEstrazione(Es,1),1,,,2
ScriviEstrazione(Es)
Scrivi SiglaRuota(R1) & "-" & SiglaRuota(R2) & " ",1,0,,10
For POS = 1 To 5
E1 = Estratto(Es,R1,POS) : E2 = Estratto(Es,R2,POS)
If E1 = A Or E1 = AA And E2 = AA Or E2 = BB Then
SM =(Fuori90(E1 + E2))
Scrivi Format2(E1) & "-" & Format2(E2) & "= [" & Format2(SM) & "] ",1,0,,1
End If
Next
Scrivi " DISTANZA " & Format2(DSOB),1,,,10
Scrivi SiglaRuota(R3) & "+" & SiglaRuota(R4) & " ",1,0,,10
For POS = 1 To 5
E1 = Estratto(Es,R3,POS) : E2 = Estratto(Es,R4,POS)
If E1 = C Or E1 = CC And E2 = D Or E2 = DD Then
SM =(Fuori90(E1 + E2))
Scrivi Format2(E1) & "+" & Format2(E2) & "= [" & Format2(SM) & "] ",1,0,,1',Gr,0 : ColoreTesto 0 : Gr = False
End If
Next
Scrivi " DISTANZA " & Format2(DSOB),1,,,10
Scrivi String(20,"-")
'----------------------------
Scrivi"Somma Vert " & Format2(SOB) & "+" & Format2(SOB1) & " = " & Format2(SOSOB) & _
" x2 rappresenta la somma COMUNE " & Fuori90(SOSOB*2) & " somma finale"
Scrivi"Somma Vert " & Format2(SOBB) & "+" & Format2(SOBB1) & " = " & Format2(SOSOB1)
Scrivi String(20,"-")
Scrivi"Somma Oriz " & Format2(SOB) & "+" & Format2(SOBB) & " = " & Format2(SORIZ) & Space(19) & "Diviso 2 = " & Format2((SORIZ/2))
Scrivi Space(20) & "+" & Space(30) & "+"
Scrivi"Somma Oriz " & Format2(SOB1) & "+" & Format2(SOBB1) & " = " & Format2(SORIZ1) & " = SO COMUNE " & Format2(TOTO) & Space(4) & _
"Diviso 2 = " & Format2((SORIZ1/2)) & Space(2) & "= Somma " & Fuori90(SORIZ1/2 + SORIZ/2)
Scrivi String(20,"-")
Scrivi"Somma Diag " & Format2(SOB) & "+" & Format2(SOBB1) & " = " & Format2(SODIA)
Scrivi Space(20) & "+"
Scrivi"Somma Diag " & Format2(SOBB) & "+" & Format2(SOB1) & " = " & Format2(SODIA1) & " = SO COMUNE " & Format2(TOTODI)
'-------------------------------------
Scrivi
Num1(1) = SOSOB : Num1(2) = TOTO : Num1(3) = TOTO2 : Ruo(1) = R1 : Ruo(2) = R2: Ruo(3) = R4
EliminaRipetuti Num1
ImpostaGiocata 1,Num1,Ruo,Posta,9
Gioca Es
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto,0
End Sub

 

[80Sete]

Ciao mister1729, con un po' di pazienza, ti ho fatto questo in excel (a modo mio) il foglio è protetto, potrai solo scrivere l'estrazione e l'ambo che troverai di volta in volta, che abbia la stessa distanza, tutti i calcoli sono in automatico, e alla fine hai i numeri da giocare in alto a destra. Le righe orizzontali, con valori (GRIGI) Lettere-Numero,(es.P13-R14) sopra il 19 Rosso sono il riferimento alla riga e colonna della tabella SOMME, dove ci sarà l'ambo da riportare come in figura .Questa è solo un'immagine, appena possibile, devo spedire a Lottoced il file in excel, poi sarà disponibile (se accettato) nell'area download, .....dove potrai divertirti.🤣 è sottinteso che in excel, tutti questi valori saranno tanto più che visibili.
Ciao e buona giornata.....dovrai avere un po' di pazienza, prima che sia disponibile nell'area download. Ciao✍️

 

[mister1729]

Ciao 80Sete, cosa dire grazie mille per la tua disponibilità e non stò scherzando !
E' veramente bello conoscere/incontrare persone che in qualche modo si rendono disponibili perchè l'esperienza insegna !
Rinnovo i ringraziamenti a te e a Lottoced per la gente che ha nel forum, grazie , Mister1729.

 

[80Sete]

Ciao mister1729, ho appena inviato il file excel a Lottoced, tra qualche giorno fai una visita nell'area download, spero sia accettato e pubblicato, avevo messo nella prima risposta.....qualcuno prima o poi potrà combinare, aspettavo qualche esperto che di sicuro l'avrebbe composto più ristretto, io l'ho fatto con molto piacere e nel modo più semplice, poi è bastato fare la prima riga di ogni tabella, e trascinare il tutto verso il basso.....il resto è venuto di conseguenza.
Ho visto che il tuo 1729 è uscito sulla Nazionale il 19 dicembre
L'ho protetto, in modo che non si possano cancellare le caselle fisse di calcolo, invece sono libere (come dicevo) solo x inserire l'estrazioni, gli ambi trovati, e le Ruote che saranno in gioco.
Buona serata
80Sete

 

[mister1729]

poi è bastato fare la prima riga di ogni tabella, e trascinare il tutto verso il basso.....il resto è venuto di conseguenza!

non mi conosci eppure hai speso del tuo tempo e devo dire che va benissimo cosi come l'hai realizzato.
Invece il tuo 80sete è uscito sulla mia ruota del cuore ieri sera (BA 87), scherzo naturalmente!
Comunque scherzi a parte ti ringrazio dinuovo 80Sete e spero di "risentirti" ciao e buona serate anche a te
Mister1729.

 

[80Sete]

Ciao mister1729, purtroppo ad oggi, neppure l'ombra del programmino in download, avrò sbagliato qualcosa e sarà stato cestinato, non mi sembrava il caso di zipparlo, visto che è solo di 29 Kb, cosa dire...... mi dispiace
Ciao e buona domenica.✍️

 

[mister1729]

Ciao 80sete, tranquillo ciò che conta è il pensiero, peccato che hai perso tempo, comunque ribadisco ho apprezzato tanto il tuo gesto e spero di risentirti, ciao e buona domenica anche a te!
miste1729.