Modificare esposizione Dati

[Xeroxs]

Buongiorno a Tutti,
Mi hanno passato questo script dove dovrei modificare l'esposizione dei dati, purtroppo non ho capito come fare se è possibile o bisogna farne uno nuovo se non è possibile avere i dati in orizzontale e non in Verticale, Ovvero le ruote affiancate (in orizzontale)


Come sempre posto lo script di cui non mi è noto l'autore ( e me ne scuso)

Sub Main()
   Dim a(90,2),nu(1),ru(1)
   Dim QE
   QE = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",10)
   For r = 1 To 12 : If r = 11 Then r = 12 ' Con La Nazionale
      'For r=1 To 10 ' Senza La Ruota Nazionale
      ru(1) = r
      ColoreTesto 2
      Scrivi Space(10) & "Ruota di" & "  " & SiglaRuota(r),1,1
      ColoreTesto 0
      Scrivi String(9," ") & " ------------ "
      ColoreTesto 1
      Scrivi Space(10) & "numero" & Space(2) & "freq",1,1
      Scrivi
      For i = 1 To 90
         nu(1) = i
         a(i,1) = i
         a(i,2) = SerieFreq(EstrazioneFin - QE,EstrazioneFin,nu,ru,1)
      Next
      ColoreTesto 0
      OrdinaMatrice a,- 1,2
      ScriviMatrice a
   Next
End Sub

Ringrazio come sempre

 

[Master]

Ciao
Prova questa soluzione.. sostituisci queste ultime righe

OrdinaMatrice a,- 1,2
      riga = "Num.. "
      riga1 = "Freq. "
      For i = 1 To 90   ' <--- 90 sono quanti numeri vuoi visualizzare
         riga = riga & FormatSpace(a(i,1),3) & " "
         riga1 = riga1 & FormatSpace(Eval(a(i,2)),3) & " "
      Next
      Scrivi riga,1
      Scrivi riga1
      Scrivi
   Next
End Sub

 

[Xeroxs]

Ciao, Master

Grazie per la soluzione penso che possa andar bene per Lei per ciò che vuole fare.

Intanto ho un modo di esporre diverso i dati e per questo ti Ringrazio.

Cerco solo di Capire per altri scopi se si possono avere in Verticale ma affiancate le ruote, ma questo per altre mie idee.

Sempre Gentile.