0040-Ordenando vetores

Seguem abaixo dois códigos que realizam a ordenação de vetores:

Function OrdenarCrescente(Vetor)
Dim k As Long
Dim i As Long
Dim Aux As Variant

For k = LBound(Vetor) To UBound(Vetor)
    For i = LBound(Vetor) To UBound(Vetor) - 1
        If Vetor(i) > Vetor(i + 1) Then
        Aux = Vetor(i)
        Vetor(i) = Vetor(i + 1)
        Vetor(i + 1) = Aux
        End If
    Next i
Next k
End Function
Function OrdenarDecrescente(Vetor)
Dim k As Long
Dim i As Long
Dim Aux As Variant

For k = LBound(Vetor) To UBound(Vetor)
    For i = LBound(Vetor) To UBound(Vetor) - 1
        If Vetor(i) < Vetor(i + 1) Then
        Aux = Vetor(i)
        Vetor(i) = Vetor(i + 1)
        Vetor(i + 1) = Aux
        End If
    Next i
Next k
End Function
Anúncios

In Excel We Trust

Marcado com: ,
Publicado em Nível: Avançado
2 comentários em “0040-Ordenando vetores
  1. Jose Arnaldo disse:

    Caro Adilson,

    Teria como dispor exemplos com ordenação de vetores?

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

Visitas dos usuários
  • 2,069,536

Clique para assinar este blog e receber notificações de novos artigos por email.

Junte-se a 1.534 outros seguidores

Aumente sua interação

Siga-nos do twitter (@usuariosdoexcel).

Acesse o nosso fórum e compartilhe as suas dúvidas.

Curta nossa página no Facebook.

Junte-se ao grupo do LinkedIn.

Visite-nos utilizando o seu smartphone ou tablet.

Recomende este Blog
Visualizar notícias
Site monitorado:
Real Time Web Analytics

Clicky

%d blogueiros gostam disto: