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
    giovedì 24 aprile 2025
    Bari
    80
    69
    75
    58
    16
    Cagliari
    88
    05
    51
    65
    75
    Firenze
    74
    65
    19
    47
    42
    Genova
    87
    89
    22
    32
    26
    Milano
    27
    13
    15
    56
    23
    Napoli
    24
    87
    62
    41
    28
    Palermo
    76
    20
    33
    62
    35
    Roma
    80
    23
    84
    15
    85
    Torino
    78
    34
    18
    41
    62
    Venezia
    05
    84
    83
    31
    46
    Nazionale
    72
    69
    25
    54
    64
    Estrazione Simbolotto
    Genova
    21
    40
    27
    35
    16
Indietro
Alto