aiuto listato grazie

[fata65]

[TABLE="width: 100%"]
[TR]
[TD="width: 50%"][TABLE="class: tbl-boxini, width: 100%"]
[TR]
[TD="class: testo10, bgcolor: #013F8C, colspan: 6, align: left"]sabato 15/06/2013[/TD]
[/TR]
[TR]
[TD="class: cellaruotalotto, width: 25, bgcolor: #F46D11, align: center"]BA[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]6[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]58[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]7[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]74[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]51[/TD]
[/TR]
[TR]
[TD="class: cellaruotalotto, width: 25, bgcolor: #F46D11, align: center"]CA[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]49[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]8[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]19[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]89[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]6[/TD]
[/TR]
[TR]
[TD="class: cellaruotalotto, width: 25, bgcolor: #F46D11, align: center"]FI[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]61[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]17[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]45[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]59[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]39[/TD]
[/TR]
[TR]
[TD="class: cellaruotalotto, width: 25, bgcolor: #F46D11, align: center"]GE[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]61[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]78[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]7[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]63[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]51[/TD]
[/TR]
[TR]
[TD="class: cellaruotalotto, width: 25, bgcolor: #F46D11, align: center"]MI[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]56[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]40[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]90[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]86[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]53[/TD]
[/TR]
[TR]
[TD="class: cellaruotalotto, width: 25, bgcolor: #F46D11, align: center"]NA[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]13[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]68[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]43[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]75[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]67[/TD]
[/TR]
[TR]
[TD="class: cellaruotalotto, width: 25, bgcolor: #F46D11, align: center"]PA[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]89[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]59[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]67[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]11[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]85[/TD]
[/TR]
[TR]
[TD="class: cellaruotalotto, width: 25, bgcolor: #F46D11, align: center"]RO[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]90[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]8[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]85[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]36[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]59[/TD]
[/TR]
[TR]
[TD="class: cellaruotalotto, width: 25, bgcolor: #F46D11, align: center"]TO[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]43[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]78[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]17[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]40[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]31[/TD]
[/TR]
[TR]
[TD="class: cellaruotalotto, width: 25, bgcolor: #F46D11, align: center"]VE[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]63[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]84[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]13[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]65[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]36[/TD]
[/TR]
[TR]
[TD="class: cellaruotalottonz, width: 25, bgcolor: #007EB5, align: center"]NZ[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]40[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]38[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]56[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]20[/TD]
[TD="class: testo10, width: 25, bgcolor: #A7BCE8, align: center"]5[/TD]
[/TR]
[/TABLE]
[/TD]
[TD="width: 50%"] bari venezia esempio 1°est 6-63=57 2°est 58-84=26 3°est 7-13=6 4°est 74-65=9 5°est 51-36= 15

poi 2°estr ba 58 dif.1°est di venz 63=5
poi 3°est ba 7-dif. 2° est di venz 84=77
poi 4°est ba 74- dif.3°est di venz 13=61
poi 5°est ba 51- dif. 4°est di venz 65=14
( - )
ba ve 57 5 26 77 6 61 9 14 15
ve ca 14 55 76 65 6 76 24 59 30
ca to
to fi
fir rom
rom ge
ge pa
pa mi
mi na
na ba[/TD]
[/TR]
[/TABLE]
ad ogni eststr. chiedo se si puo realizzare 2 tabelle uan che sottragga
l'altra che mi faccia la somma ba ve 69 31 52 1 20 87 49 87 87 ( +)

 

[fata65]

chi mi aiuta a realizzare il listato grazie

 

[fata65]

 

[Mike58]

Ciao Fata, intanto per non lasciare la richiesta insoluta prova a vedere se ti è utile questo script che rileva le ruote volute ed in un range stabilito e fa somma e differenza degli estratti 1-1 ,2-2,3-3.4,4.5-5.

Poi se un pochetto riesci a modificare qualche script le modifiche sarebbero semplici per il tuo scopo.

intanto provalo cosi.

Sub Main()
 Dim ruo(2),n1(5),n2(1),n3(1),n4(1),n5(1),nu(5),nn1(1),nn2(1),nn3(1),nn4(4),nn5(1),nnu(5)
 Inizio = EstrazioneFin - 10
 fine = EstrazioneFin
 ex = fine - Inizio
 r = InputBox("Quale ruota visualizzare ",,1)
 r1 = InputBox("Quale ruota visualizzare ",,10)
 Scrivi " Quadro estrazionale statistica numeri estratti  ",1,0,3
 Scrivi " su n° " & ex & " estrazioni ",1,0,7
 Scrivi " Sulla Ruota di..." & NomeRuota(r) & " - " & NomeRuota(r1),1,- 1,4
 Scrivi
 Scrivi "Estrazione del......." & DataEstrazione(fine,1),1
 ReDim atitoli(21)
 atitoli(1) = " "
 atitoli(2) = " DATA "
 atitoli(3) = " "
 atitoli(4) = " 1°E "
 atitoli(5) = " 2°E "
 atitoli(6) = " 3°E "
 atitoli(7) = " 4°E "
 atitoli(8) = " 5°E "
 atitoli(9) = " "
 atitoli(10) = " SM 1° "
 atitoli(11) = " SM 2° "
 atitoli(12) = " SM 3° "
 atitoli(13) = " SM 4° "
 atitoli(14) = " SM 5° "
 atitoli(15) = " "
 atitoli(16) = " DF 1° "
 atitoli(17) = " DF 2° "
 atitoli(18) = " DF 3° "
 atitoli(19) = " SM 4° "
 atitoli(20) = " SM 5° "
 atitoli(21) = " "
 Call InitTabella(atitoli,1,,4,5)
 For ess = Inizio To fine
  ruo(1) = r
  ruo(2) = r1
  a = Estratto(ess,r,1)
  aa = Estratto(ess,r1,1)
  b = Estratto(ess,r,2)
  bb = Estratto(ess,r1,2)
  c = Estratto(ess,r,3)
  cc = Estratto(ess,r1,3)
  d = Estratto(ess,r,4)
  dd = Estratto(ess,r1,4)
  e = Estratto(ess,r,5)
  ee = Estratto(ess,r1,5)
  n1(1) = a
  n2(1) = b
  n3(1) = c
  n4(1) = d
  n5(1) = e
  nn1(1) = aa
  nn2(1) = bb
  nn3(1) = cc
  nn4(1) = dd
  nn5(1) = ee
  rp1 = Fuori90(a + aa)
  rp2 = Fuori90(b + bb)
  rp3 = Fuori90(c + cc)
  rp4 = Fuori90(d + dd)
  rp5 = Fuori90(e + ee)
  sf1 = Differenza(a,aa)
  sf2 = Differenza(b,bb)
  sf3 = Differenza(c,cc)
  sf4 = Differenza(d,dd)
  sf5 = Differenza(e,ee)
  ReDim avalori(21)
  avalori(1) = " "
  avalori(2) = DataEstrazione(ess) & " - " & SiglaRuota(r) & " - " & SiglaRuota(r1)
  avalori(3) = " "
  avalori(4) = a & "." & aa
  avalori(5) = b & "." & bb
  avalori(6) = c & "." & cc
  avalori(7) = d & "." & dd
  avalori(8) = e & "." & ee
  avalori(9) = " "
  avalori(10) = rp1
  avalori(11) = rp2
  avalori(12) = rp3
  avalori(13) = rp4
  avalori(14) = rp5
  avalori(15) = " "
  avalori(16) = sf1
  avalori(17) = sf2
  avalori(18) = sf3
  avalori(19) = sf4
  avalori(20) = sf5
  avalori(21) = " "
  nu(1) = a
  nu(2) = b
  nu(3) = c
  nu(4) = d
  nu(5) = e
  Call AddRigaTabella(avalori,,,4)
  Call SetColoreCella(1,vbBlue)
  Call SetColoreCella(3,vbBlue)
  Call SetColoreCella(9,vbBlue)
  Call SetColoreCella(15,vbBlue)
  Call SetColoreCella(21,vbBlue)
  Call SetColoreCella(4,vbYellow)
  Call SetColoreCella(5,vbYellow)
  Call SetColoreCella(6,vbYellow)
  Call SetColoreCella(7,vbYellow)
  Call SetColoreCella(8,vbYellow)
 Next
 CreaTabella()
 Call PicStampaTesto(40,20,"Tabella By Mike58  ",,True,True,,11,vbBlue)
 Call PicEsegui
End Sub

 

[fata65]

grazie mike58 per il listato e gia un aiuto grazieeeeeeeeeeeee

non riesco a modificare non so come si fa mi vengono fuori errore grazie

 

[Mike58]

ok Fata65, se si dovesse modificare qualche cosa partedo dal listato postato vedremo di adattarlo alle tue necessità.

ciao

 

[fata65]

grazie mike58