SCRIPT PER SOMME

[lestodante]

Gentili utenti, qualcuno può aiutarmi per uno script che faccia la somma degli estratti in verticale esempio: BA-CA; CA-FI; FI-GE;... QUESTO PER TUTTI E CINQUE GLI ESTRATTI
GRAZIE

 

[setting]

Se usi Spaziometria nella sezione statistiche/quadro somme distanze c'e' la funzione
somme in verticale . Ciao

 

[lestodante]

Se usi Spaziometria nella sezione statistiche/quadro somme distanze c'e' la funzione
somme in verticale . Ciao

grazie per avermi risposto
la somma verticale che cerco deve essere intuitiva fatta per ruote consecutive e per colonne, quella che elabora spaziometria è un po laboriosa non è immediatamente visibile la somma uguale su due ruote, ad esempio.
ba-ca 1° estratto ba-ca 2° estratto...
ca-fi 1° estratto cafi 2° estratto ...
fi-ge 1° estratto... e così via

 

[keeper]

allora prova a realuzzare un figlio excel

 

[Joe91]

Ciao.

Prova questo:

Sub Main
	Fin = EstrazioneFin : Scrivi DataEstrazione(Fin),1 : Scrivi
	For R1 = 1 To 9 : R2 = R1 + 1
		Stringa1 = SiglaRuota(R1) & "  "
		Stringa2 = SiglaRuota(R2) & "  "
		Stringa3 = Space(4)
		For P = 1 To 5
			E1 = Estratto(Fin,R1,P) : E2 = Estratto(Fin,R2,P)
			Stringa1 = Stringa1 & Format2(E1) & "+ "
			Stringa2 = Stringa2 & Format2(E2) & "= "
			Stringa3 = Stringa3 & Format2(Fuori90(E1 + E2)) & "  "
		Next
		Scrivi Stringa1
		Scrivi Stringa2
		Scrivi Stringa3
		Scrivi
	Next
End Sub

 

[lestodante]

grazie Joe91

grazie Joe91

grazie per lo script, era quello che cercavo, ti chiedo solo una cosa, anzi due
è possibile non visualizzare solo l'ultima estrazione?
è possibile evidenziare numeri uguali dati dalle somme?
grazie

 

[Joe91]

Ciao Lestodante.

Ho provato a riassumere quanto da te richiesto, elencando dati e/o risultati

in forma compressa (considerando che essi sono molti).

Nella speranza che siano, ancora, facilmente leggibili ...

è possibile avere sott'occhio, 4-5 estrazioni, in una sola schermata.

===================== 28.12.2013 ==================
BA+CA 55+42=07 76+17=03 53+65=28 40+63=13 77+18=05
CA+FI 42+32=74 17+65=82 65+09=74 63+53=26 18+64=82
FI+GE 32+54=86 65+15=80 09+73=82 53+33=86 64+71=45
GE+MI 54+70=34 15+90=15 73+26=09 33+11=44 71+29=10
MI+NA 70+14=84 90+72=72 26+53=79 11+23=34 29+05=34
NA+PA 14+72=86 72+25=07 53+85=48 23+90=23 05+10=15
PA+RO 72+60=42 25+51=76 85+78=73 90+76=76 10+74=84
RO+TO 60+25=85 51+36=87 78+15=03 76+40=26 74+76=60
TO+VE 25+33=58 36+22=58 15+54=69 40+11=51 76+38=24
VE+BA 33+55=88 22+76=08 54+53=17 11+40=51 38+77=25
==================== 31.12.2013 ==================
BA+CA 43+21=64 24+58=82 47+48=05 50+37=87 78+23=11
CA+FI 21+73=04 58+04=62 48+12=60 37+08=45 23+64=87
FI+GE 73+47=30 04+17=21 12+01=13 08+42=50 64+02=66
GE+MI 47+11=58 17+13=30 01+27=28 42+31=73 02+51=53
MI+NA 11+66=77 13+25=38 27+54=81 31+90=31 51+18=69
NA+PA 66+11=77 25+79=14 54+32=86 90+65=65 18+82=10
PA+RO 11+58=69 79+37=26 32+68=10 65+26=01 82+28=20
RO+TO 58+17=75 37+69=16 68+54=32 26+05=31 28+47=75
TO+VE 17+09=26 69+58=37 54+12=66 05+53=58 47+14=61
VE+BA 09+43=52 58+24=82 12+47=59 53+50=13 14+78=02
==================== 02.01.2014 ==================
BA+CA 16+11=27 15+76=01 40+40=80 34+07=41 24+19=43
CA+FI 11+45=56 76+42=28 40+40=80 07+21=28 19+69=88
FI+GE 45+60=15 42+49=01 40+34=74 21+89=20 69+05=74
GE+MI 60+66=36 49+56=15 34+29=63 89+89=88 05+10=15
MI+NA 66+69=45 56+54=20 29+06=35 89+64=63 10+24=34
NA+PA 69+73=52 54+25=79 06+67=73 64+16=80 24+46=70
PA+RO 73+11=84 25+09=34 67+79=56 16+64=80 46+63=19
RO+TO 11+46=57 09+33=42 79+60=49 64+87=61 63+26=89
TO+VE 46+52=08 33+78=21 60+27=87 87+68=65 26+05=31
VE+BA 52+16=68 78+15=03 27+40=67 68+34=12 05+24=29
==================== 04.01.2014 ==================
BA+CA 72+63=45 74+77=61 24+69=03 19+64=83 52+81=43
CA+FI 63+05=68 77+12=89 69+63=42 64+76=50 81+75=66
FI+GE 05+58=63 12+59=71 63+46=19 76+54=40 75+10=85
GE+MI 58+85=53 59+41=10 46+31=77 54+61=25 10+63=73
MI+NA 85+14=09 41+20=61 31+06=37 61+59=30 63+11=74
NA+PA 14+08=22 20+67=87 06+38=44 59+42=11 11+55=66
PA+RO 08+20=28 67+41=18 38+19=57 42+56=08 55+90=55
RO+TO 20+49=69 41+90=41 19+39=58 56+26=82 90+03=03
TO+VE 49+41=90 90+88=88 39+31=70 26+66=02 03+36=39
VE+BA 41+72=23 88+74=72 31+24=55 66+19=85 36+52=88
RUOTE 1' Estr. 2' Estr. 3' Estr. 4' Estr. 5' Estr.

 

[lestodante]

grazie Joe91 così è ottimo, è possibile anche lo script?
grazie di nuovo

 

[Joe91]

Sub Main
'Somme Ripetute per lestodante. V.3.0 By Joe. Alba, 07/01/2014.   
	Ini = EstrazioneFin - 9 : Fin = EstrazioneFin
	For Es = Ini To Fin : Scrivi String(21,"=") & " " & DataEstrazione(Es) & " " & String(22,"="),1
		For R1 = 1 To 10 : R2 = R1 + 1 : If R2 = 11 Then R2 = 1
			Scrivi SiglaRuota(R1) & "+" & SiglaRuota(R2) & "  ",1,0
			ReDim Nu(90)
			For P = 1 To 5
				E1 = Estratto(Es,R1,P) : E2 = Estratto(Es,R2,P)
				S =(Fuori90(E1 + E2)) : Nu(S) = Nu(S) + 1
			Next
			For P = 1 To 5
				E1 = Estratto(Es,R1,P) : E2 = Estratto(Es,R2,P)
				S = Format2(Fuori90(E1 + E2))
				If Nu(s) > 1 Then ColoreTesto 2 : Gr = True
				Scrivi Format2(E1) & "+" & Format2(E2) & "=" & Format2(S) & "  ",Gr,0 : ColoreTesto 0 : Gr = False
			Next
			Scrivi
		Next
	Next
	Scrivi "RUOTE  ",1,0
	For P = 1 To 5
		Scrivi P & "' Estr.  ",1,0
	Next
End Sub

Buona Giornata a Tutte/i.