X Mike 58

[avio]

ciao

Ti chiedo un favore, se mi puoi mette il link di un tuo script che riguardava le tavole settenaria
ho provato a cercarlo sul forum ma non lo trovo..

era solo quello che faceva apparire le 90 tavole
13-----78
----1
7------90

grazie

 

[Mike58]

Ciao Avio, lo script che chiedi cosi come è strutturato è stato fatto dall'amico BlackMore e mi pare che sia stato postato in questo forum.
Faccio prima a postarti lo script che rintracciare il link.

Sub Main()
S = " TABELLA TAVOLA SETTENARIA BY BLACKMORE "
Scrivi s,1,,vbBlue,5,3 :Scrivi
ReDim at(9)
at(1) = " B "
at(2) = " L "
at(3) = " A "
at(4) = " C "
at(5) = " K "
at(6) = " M "
at(7) = " O "
at(8) = " R "
at(9) = " E "
Call InitTabella(at,vbBlue,,1,5,"Arial black")
For x = 1 To 10
a = Fuori90(x*13)
b = 91 - a
c = Fuori90(x*7)
d = 91 - x
x1 = x + 10
a1 = Fuori90(x1*13)
b1 = 91 - a1
c1 = Fuori90(x1*7)
d1 = 91 - x1
x2 = x + 20
a2 = Fuori90(x2*13)
b2 = 91 - a2
c2 = Fuori90(x2*7)
d2 = 91 - x2
x3 = x + 30
a3 = Fuori90(x3*13)
b3 = 91 - a3
c3 = Fuori90(x3*7)
d3 = 91 - x3
x4 = x + 40
a4 = Fuori90(x4*13)
b4 = 91 - a4
c4 = Fuori90(x4*7)
d4 = 91 - x4
x5 = x + 50
a5 = Fuori90(x5*13)
b5 = 91 - a5
c5 = Fuori90(x5*7)
d5 = 91 - x5
x6 = x + 60
a6 = Fuori90(x6*13)
b6 = 91 - a6
c6 = Fuori90(x6*7)
d6 = 91 - x6
x7 = x + 70
a7 = Fuori90(x7*13)
b7 = 91 - a7
c7 = Fuori90(x7*7)
d7 = 91 - x7
x8 = x + 80
a8 = Fuori90(x8*13)
b8 = 91 - a8
c8 = Fuori90(x8*7)
d8 = 91 - x8
ReDim av(9)
av(1) = " " & FormatSpace(Format2(a),11) & " " & FormatSpace(Format2(b),3) & "<br>" & x & "<br>" & FormatSpace(Format2(c),13) & "" & d
av(2) = " " & FormatSpace(Format2(a1),11) & " " & FormatSpace(Format2(b1),3) & "<br>" & x1 & "<br>" & FormatSpace(Format2(c1),12) & "" & d1
av(3) = " " & FormatSpace(Format2(a2),11) & " " & FormatSpace(Format2(b2),3) & "<br>" & x2 & "<br>" & FormatSpace(Format2(c2),12) & "" & d2
av(4) = " " & FormatSpace(Format2(a3),11) & " " & FormatSpace(Format2(b3),3) & "<br>" & x3 & "<br>" & FormatSpace(Format2(c3),12) & "" & d3
av(5) = " " & FormatSpace(Format2(a4),11) & " " & FormatSpace(Format2(b4),3) & "<br>" & x4 & "<br>" & FormatSpace(Format2(c4),12) & "" & d4
av(6) = " " & FormatSpace(Format2(a5),11) & " " & FormatSpace(Format2(b5),3) & "<br>" & x5 & "<br>" & FormatSpace(Format2(c5),12) & "" & d5
av(7) = " " & FormatSpace(Format2(a6),11) & " " & FormatSpace(Format2(b6),3) & "<br>" & x6 & "<br>" & FormatSpace(Format2(c6),12) & "" & d6
av(8) = " " & FormatSpace(Format2(a7),11) & " " & FormatSpace(Format2(b7),3) & "<br>" & x7 & "<br>" & FormatSpace(Format2(c7),12) & "" & d7
av(9) = " " & FormatSpace(Format2(a8),11) & " " & FormatSpace(Format2(b8),3) & "<br>" & x8 & "<br>" & FormatSpace(Format2(c8),12) & "" & Format2(d8)
Call AddRigaTabella(av,,"Center",2,,"arial")
Call SetColoreCella(1,RGB(240,240,240))
Call SetColoreCella(2,RGB(240,240,240))
Call SetColoreCella(3,RGB(240,240,240))
Call SetColoreCella(4,RGB(240,240,240))
Call SetColoreCella(5,RGB(240,240,240))
Call SetColoreCella(6,RGB(240,240,240))
Call SetColoreCella(7,RGB(240,240,240))
Call SetColoreCella(8,RGB(240,240,240))
Call SetColoreCella(9,RGB(240,240,240))
Call SetColoreCella(10,RGB(240,240,240))
Next
ReDim avv(9)
avv(1) = " B "
avv(2) = " L "
avv(3) = " A "
avv(4) = " C "
avv(5) = " K "
avv(6) = " M "
avv(7) = " O "
avv(8) = " R "
avv(9) = " E "
Call AddRigaTabella(avv,vbBlue,,1,5,"arial black")
SetTableWidth("990px")
Call CreaTabella(0,,,,1)
End Sub

 

[avio]

Ciao e grazie era quello che cercavo

PS: ero convito che era un tuo script.... ecco perché non lo trovavo nel forum