gentilmente script !!

[kabb77]

ciao a tutti e un buon natale, a voi e tutta la famiglia !! gentilmente dove posso trovare uno script, che mi dia la somma degli estratti ruota x ruota in orizzontale, senza il fuori 90. e possa andare anche indietro con le estrazioni !! grazie un salutone.

 

[Mike58]

Ciao Kabb, un buon natale, lo script è abbastanza semplice da costruire e pertanto con 2 righe di codice l'ho compilato ex-novo con le specifiche richieste.

Ciao.

Sub Main
	rt = InputBox("quale estrazione a ritroso dall'ultima",,10)
	Ini = EstrazioneFin - rt
	fin = EstrazioneFin
	For es = fin To Ini Step - 1
		Scrivi
		Scrivi "Estrazione esaminata... " & DataEstrazione(es)
		Scrivi String(40,"-")
		For r = 1 To 12
		If r = 11 Then r = 12
			Scrivi SiglaRuota(r) & "  " & StringaEstratti(es,r),0,0
			Scrivi " - " & SommaEstratti(es,r),1
		Next
	Next
End Sub

 

[kabb77]

grazie mike58 !! tutto ok !! buone feste a te , e a tutto il forum ..!! un salutone ciao..