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ì 31 luglio 2025
    Bari
    42
    35
    89
    51
    34
    Cagliari
    54
    34
    02
    77
    57
    Firenze
    73
    01
    07
    15
    04
    Genova
    71
    28
    17
    03
    67
    Milano
    72
    37
    26
    09
    63
    Napoli
    04
    46
    83
    68
    31
    Palermo
    62
    18
    36
    34
    52
    Roma
    37
    44
    49
    67
    32
    Torino
    51
    17
    56
    48
    41
    Venezia
    36
    04
    85
    81
    41
    Nazionale
    08
    52
    01
    24
    05
    Estrazione Simbolotto
    Nazionale
    21
    19
    01
    17
    43
Indietro
Alto