IMPORTAR STRING E ORDENAR

USUARIO.EXCLUIDOS 08/06/2005 11:58:57
#87674
Detalhe, você tem de saber a quantidade de números... ou ao menos chutar para cima.. no exemplo que fiz.. a quantidade de itens não pode ultrapassar a 10
Dim valor([txt-color=#ff0000]10[/txt-color]) As String 
Dim texto As String 
Dim stexto As Variant 
texto = "5,6,1,3,10" 
stexto = Split(texto, ",") 
For i = LBound(stexto) To UBound(stexto) 
valor(stexto(i)) = stexto(i) 
contador = i 
Next i 
For i = 1 To [txt-color=#ff0000]10[/txt-color] 
If Not valor(i) = "" Then 
MsgBox "Em " & i & "º Lugar está o N.º '" & valor(i) & "'" 
End If

Se quiser aumentar a quantidade mude ao mesmo tempo só onde esta VERMELHO... lembre-se tem de ser ao mesmo tempo...
Página 2 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar