Domanda to EXP for Aiuto ordinamento array

[xabio]

Salve chi puo' spiegarmi per favore questa cosa ringrazio anticipatamente:
Io dovrei memorizzare se si puo' in uno o altimenti due vettori tutti i 90 numeri col loro ritardo a una certa estrazione
usando penso un ciclo for\next per valorizzare l'array .

Poi ordinare questo elenco in base al ritardo mantenendo pero' il relativo numero iniziale adiacente
praticamente come fa un orinamento excel in base alla colonna di sinistra ordina tutte le altre di conseguenza
anche se io in questo caso avrei i numeri 1/90 nella colonna sx e i ritardi a dx non so se e' lo stesso.

Spero di essere stato chiaro
Se mi fate un Ex con un pezzetto di script sarebbe il massimo .
Saluti Xabio

 

[LuigiB]

ciao ecco un esempio

Option Explicit
Sub Main
	Dim n
	Dim nColonna
	
	' creo un array con 3 colonne
	' il primo indice va da 1 a 90 e identifica le 90 posizioni per i 90 numeri
	' il secondo indice va da 1 a 3  , quindi per ognuna 
	' delle 90 posizioni possiamo memorizzare 3 valori
	ReDim aValori(90,3)
	For n = 1 To 90
		aValori(n,1) = n ' memorizzo il numero nella prima colonna
		' valorizzo le colonne 2 e 3  con valori a caso
		aValori(n,2) = NumeroCasuale(1,90)
		aValori(n,3) = NumeroCasuale(1,90)
	Next
	
	nColonna = Int(InputBox("Colonna ordinamento , 1 , 2 , 3" , ,"1"))
	If nColonna > 0 And nColonna <= 3 Then
		Call OrdinaMatrice(aValori,1,nColonna)
		ReDim aV(3)
		aV(1) = "Numero"
		aV(2) = "Valore 2"
		aV(3) = "Valore 3"
		Call InitTabella(aV)
		For n = 1 To 90
			aV(1) = aValori(n,1)
			aV(2) = aValori(n,2)
			aV(3) = aValori(n,3)
			Call AddRigaTabella(aV)
		Next
		Call CreaTabella
	End If
End Sub

 

[xabio]

ciao ecco un esempio

Option Explicit
Sub Main
	Dim n
	Dim nColonna
	
	' creo un array con 3 colonne
	' il primo indice va da 1 a 90 e identifica le 90 posizioni per i 90 numeri
	' il secondo indice va da 1 a 3  , quindi per ognuna 
	' delle 90 posizioni possiamo memorizzare 3 valori
	ReDim aValori(90,3)
	For n = 1 To 90
		aValori(n,1) = n ' memorizzo il numero nella prima colonna
		' valorizzo le colonne 2 e 3  con valori a caso
		aValori(n,2) = NumeroCasuale(1,90)
		aValori(n,3) = NumeroCasuale(1,90)
	Next
	
	nColonna = Int(InputBox("Colonna ordinamento , 1 , 2 , 3" , ,"1"))
	If nColonna > 0 And nColonna <= 3 Then
		Call OrdinaMatrice(aValori,1,nColonna)
		ReDim aV(3)
		aV(1) = "Numero"
		aV(2) = "Valore 2"
		aV(3) = "Valore 3"
		Call InitTabella(aV)
		For n = 1 To 90
			aV(1) = aValori(n,1)
			aV(2) = aValori(n,2)
			aV(3) = aValori(n,3)
			Call AddRigaTabella(aV)
		Next
		Call CreaTabella
	End If
End Sub

Grazie mille Luigi spero sia di aiuto anche per tutti gli altri principianti.
Non so se hai notato gli orari sballati di messaggi.
Ciao grazie buonanotte.

 

[LuigiB]

ciao , no non ci avevo fatto caso .. buona notte anche a te