Novità

aiuto listato grazie

fata65

Super Member >GOLD<
[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 ( +)
 
Ultima modifica:
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.


Codice:
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
 
grazie mike58 per il listato e gia un aiuto grazieeeeeeeeeeeee

non riesco a modificare non so come si fa mi vengono fuori errore grazie
 
ok Fata65, se si dovesse modificare qualche cosa partedo dal listato postato vedremo di adattarlo alle tue necessità.

ciao
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 22 agosto 2025
    Bari
    77
    43
    54
    27
    51
    Cagliari
    22
    61
    76
    27
    13
    Firenze
    75
    82
    78
    15
    80
    Genova
    18
    28
    60
    37
    50
    Milano
    84
    06
    90
    36
    40
    Napoli
    47
    09
    53
    65
    14
    Palermo
    74
    29
    40
    50
    30
    Roma
    79
    05
    15
    08
    26
    Torino
    03
    02
    60
    27
    26
    Venezia
    59
    14
    32
    70
    36
    Nazionale
    48
    09
    04
    88
    52
    Estrazione Simbolotto
    Nazionale
    07
    24
    42
    16
    03
Indietro
Alto