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ì 03 aprile 2025
    Bari
    71
    57
    74
    66
    81
    Cagliari
    08
    71
    63
    28
    13
    Firenze
    02
    77
    51
    48
    40
    Genova
    20
    73
    85
    80
    83
    Milano
    13
    69
    82
    14
    43
    Napoli
    89
    22
    84
    57
    80
    Palermo
    88
    17
    29
    43
    68
    Roma
    20
    10
    67
    41
    39
    Torino
    59
    43
    71
    34
    78
    Venezia
    57
    35
    28
    39
    29
    Nazionale
    52
    72
    73
    26
    77
    Estrazione Simbolotto
    Genova
    25
    07
    38
    14
    18
Indietro
Alto