Classificando um array de strings em Visual Basic for Applications (VBA) não é tão simples como em outras linguagens de programação mais recentes. Em VBA, você pode classificar um array em ordem crescente usando um par de " Para ... Loops " e looping através de cada elemento na matriz . Este método é útil quando você precisa exibir valores de volta para o usuário em ordem crescente, para dar aos seus dados uma aparência mais profissional . Coisas que você precisa
Microsoft Excel
Show Mais instruções
1

Abra o Microsoft Excel , clique na guia "Desenvolvedor" e clique em " Visual Basic " para abrir o VB editor. Criar um novo procedimento sub adicionando o seguinte código: Private Sub

SortVBAArray ()
2

Crie a sua matriz de cadeia e adicionar dez valores a ele :

Dim dataArray (10) As String

dataArray (0) = "João"

dataArray (1) = " Zackari "

dataArray (2) = "Sam" < br >

dataArray (3) = " Adam "

dataArray (4) = "Bob"

dataArray (5) = " kitzia "

dataArray (6) = " Daniel "

dataArray (7) = " Oscar "

dataArray (8) = " Alan "

dataArray (9) = " Yarexli "


3

Chame o procedimento sub que irá classificar os valores na matriz e no final do processo :

Chame sortArray ( dataArray )

End Sub
< br > 4

Criar o procedimento sub que irá classificar a matriz de seqüência em ordem crescente e exibir os resultados através da janela Immediate:

sub sortArray ( tmpArray () As string)

Dim firstIdx As Integer Dim

lastIdx As Integer Dim

xCntr As Integer Dim

yCntr As Integer

Dim Temp As String

Lista Dim As String

firstIdx = LBound ( tmpArray )

lastIdx = UBound ( tmpArray )

Para xCntr = firstIdx Para lastIdx - 1

Para yCntr = xCntr + 1 Para lastIdx

Se tmpArray ( xCntr ) > tmpArray ( yCntr ) Então

Temp = tmpArray ( yCntr )

tmpArray ( yCntr ) = tmpArray ( xCntr )

tmpArray ( xCntr ) = Temp

End If

Próxima yCntr

Próxima xCntr

Para xCntr = 1 To UBound ( tmpArray )

lista = List & vbCrLf & tmpArray ( xCntr )

Próxima

Lista Debug.Print
End Sub

5

Clique no primeiro procedimento sub e pressione " Ctrl" + "G " para visualizar a janela Immediate. Pressione " F5" para executar o programa e ver os resultados.