Tabellone Analitico con Excel

[Xeroxs]

Sono sicuro che anche con Excel si potranno ottenere risultati simili.

Ma penso non sia alla portata dei più poterli realizzare.

Vediamo se qualcuno vorrà smentire quanto ho appena scritto,

dando la prova del contrario.

N'  Rc     Bari
0 ( 22) -- -- -- -- --
1 ( 93) -- -- 11 -- --
2 ( 39) -- -- 87 42 --
3 ( 23) -- 03 -- 19 10
4 ( 14) 05 -- 61 77 39
5 ( 16) 66 59 34 63 60
----------------------
N'  Rc     Cagliari
0 ( 18) -- -- -- -- --
1 (109) -- 08 -- -- --
2 ( 44) -- 64 -- -- 55
3 ( 26) -- 88 39 27 --
4 ( 17) 46 18 65 -- 24
5 (  4) 71 68 61 41 89
----------------------
N'  Rc     Firenze
0 ( 13) -- -- -- -- --
1 ( 70) -- -- 89 -- --
2 ( 39) -- 23 64 -- --
3 ( 14) 70 -- 75 01 --
4 ( 16) 25 43 -- 40 47
5 (  2) 56 57 22 67 39
----------------------
N'  Rc     Genova
0 ( 23) -- -- -- -- --
1 (165) -- -- -- 31 --
2 ( 54) 48 -- 10 -- --
3 ( 35) 55 -- 72 59 --
4 ( 19) -- 07 18 60 67
5 (  3) 42 20 53 47 06
----------------------
N'  Rc     Milano
0 ( 21) -- -- -- -- --
1 ( 77) -- 68 -- -- --
2 ( 55) -- 11 -- -- 37
3 ( 19) 56 -- 65 -- 27
4 ( 12) 12 51 47 -- 49
5 (  7) 86 75 87 21 05
----------------------
N'  Rc     Napoli
0 ( 20) -- -- -- -- --
1 (116) -- -- -- 74 --
2 ( 47) 37 -- -- 31 --
3 ( 15) 89 -- -- 68 15
4 (  9) 20 82 -- 44 57
5 (  3) 59 48 66 02 86
----------------------
N'  Rc     Palermo
0 ( 16) -- -- -- -- --
1 ( 88) -- -- -- -- 78
2 ( 49) 12 -- -- 77 --
3 ( 19) -- 44 51 32 --
4 ( 14) 79 71 54 13 --
5 ( 15) 21 37 49 73 18
----------------------
N'  Rc     Roma
0 ( 18) -- -- -- -- --
1 ( 91) 51 -- -- -- --
2 ( 27) 52 04 -- -- --
3 ( 29) -- 62 01 -- 34
4 ( 13) 77 75 06 -- 29
5 ( 14) 40 17 02 73 13
----------------------
N'  Rc     Torino
0 ( 22) -- -- -- -- --
1 ( 64) -- -- 71 -- --
2 ( 72) -- 80 -- -- 40
3 ( 32) 24 -- -- 26 10
4 ( 10) 59 30 -- 74 49
5 (  2) 85 27 73 60 35
----------------------
N'  Rc     Venezia
0 ( 21) -- -- -- -- --
1 ( 88) -- -- 79 -- --
2 ( 42) -- -- 53 16 --
3 ( 25) 68 66 -- 65 --
4 (  7) -- 77 85 23 02
5 (  5) 90 73 82 22 39
----------------------
N'  Rc     Nazionale
0 ( 20) -- -- -- -- --
1 (105) -- 66 -- -- --
2 ( 23) -- -- -- 71 49
3 ( 28) 07 -- -- 17 46
4 ( 10) 82 60 62 -- 59
5 (  5) 25 81 37 30 58
----------------------
Agg. al 10/12/2024

Ciao, joe è ciò che vorrei realizzare, ma come dici Tu e x pochi.

Se non chiedo troppo visto che non abbandono spaziometria, potresti condividere il tuo script, senza impegno, io mi studio davvero con molto interesse i tuoi script da dove si può capire molto almeno per quanto mi riguarda, purtroppo alcuni che erano e sono bravi non ci sono più in questo forum, mi sono perso un po di cose, sono arrivato tardi, ma non mi arrendo.
Grazie.

 

[joe]

Non c'è problema,

come ho detto ... ho sempre regalato tutto a tutti.

L'unica cosa che mi fa dispiacere è che altri lo spacceranno per loro vendendo le copie, lucrando ingiustamente.

Per il resto, penso, non sia facile capirne le logiche, perché neppure io, che l'ho scritto,

di qui a qualche breve tempo lo saprei de-ingenierizzare per ricostruirlo modificato.

Option Explicit
Sub Main
'6 Livelli di Sincronia By Joe V.1.0 del 12/12/24
   Dim R
   For R = 1 To 12 : If R = 11 Then R = 12
      AvanzamentoElab 1,11,R
      Scrivi "N'  Rc" & Space(5) & NomeRuota(R),1
      Call Livelli(R)
      Scrivi String(22,"-")
   Next
   Scrivi "Agg. al " & DataEstrazione(EstrazioneFin,,,"/"),1
   Scrivi : Scrivi  "Tempo Elaborazione " & TempoTrascorso 
End Sub
Sub Livelli(R)
   Dim Ini,Fin,Es,P,E,N,K(5),Rc,O
   Rc = 300
   Fin = EstrazioneFin : Ini = Fin - Rc
   For Es = Ini To Fin
      N = 0 : O = ""
      For P = 1 To 5
         E = Estratto(Es,R,P)
         If RitardoEstratto(E,Fin,R) = Rc Then
            O = O & Format2(E)
            N = N + 1
         Else
            O = O & "--"
         End If
         O = O & Space(1)
      Next
      If K(N) = "" Then K(N) = "(" & FormatSpace(Rc,3,1) & ") " & O
      If N = 0 Then K(N) = "(" & FormatSpace(Rc,3,1) & ") " & O
      Rc = Rc - 1
   Next
   For Rc = 0 To 5
      Scrivi Rc & " " &(K(Rc))
   Next
End Sub

 

[Xeroxs]

Grazie Davvero Joe, Purtroppo hai ragione.
Ne saprò farne buon uso come ho sempre fatto abbianndolo alle varie fuzioni che sono usate in spaziometria così riesco a capirne la logica e non solo perchè quì si parla anche della bravura nel saper creare tanto con poche righe di codice e mi riferisco sulla Tua bravura..

Grazie Ancora.