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

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 )

Foto do Google+

Você está comentando utilizando sua conta Google+. 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 )

w

Conectando a %s

Visitas dos usuários
  • 2,850,935
Drive Virtual

Acesse o link para ter acesso aos arquivos para download.

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

Junte-se a 1.693 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: