Cómo ordenar una matriz de cadenas en VBA

Ordenar una matriz de cadenas en Visual Basic para Aplicaciones (VBA) no es tan sencillo como en otros lenguajes de programación, más recientes. En VBA, puede ordenar una matriz en orden ascendente utilizando un par de "bucles For ..." y bucle a través de cada elemento de la matriz. Este método es útil cuando es necesario para mostrar los valores de nuevo al usuario en orden ascendente, para dar sus datos un aspecto más profesional.

Instrucciones

1 Lanzamiento de Microsoft Excel, haga clic en la pestaña "desarrolladores", a continuación, haga clic en "Visual Basic" para abrir el Editor de Visual Basic. Crear un nuevo procedimiento sub añadiendo el siguiente código:

Private Sub SortVBAArray ()

2 Cree su matriz de cadenas y añadir diez valores a la misma:

Dim dataArray(10) As String

dataArray (0) = "Juan"

dataArray (1) = "Zackari"

dataArray (2) = "Sam"

dataArray (3) = "Adam"

dataArray (4) = "Bob"

dataArray (5) = "Kitzia"

dataArray (6) = "Daniel"

dataArray (7) = "Oscar"

dataArray (8) = "Alan"

dataArray (9) = "Yarexli"

3 Llamar al procedimiento sub que ordenar los valores de la matriz y terminar el procedimiento:

Call sortArray(dataArray)

End Sub

4 Cree el procedimiento sub que ordenar la matriz de cadenas en orden ascendente y mostrar los resultados a través de la ventana Inmediato:

Sub sortArray (tmpArray () As String)

Dim firstIdx As Integer

Dim lastIdx como número entero

Dim xCntr como número entero

Dim yCntr como número entero

Temperatura Dim como secuencia

Lista Dim como secuencia

firstIdx = LBound (tmpArray)

lastIdx = UBound (tmpArray)

Para xCntr = firstIdx Para lastIdx - 1

Para yCntr = xCntr + 1 Para lastIdx

Si tmpArray (xCntr)> tmpArray (yCntr) A continuación,

Temp = tmpArray (yCntr)

tmpArray (yCntr) = tmpArray (xCntr)

tmpArray (xCntr) = Temperatura

Terminara si

Siguiente yCntr

Siguiente xCntr

Para xCntr = 1 Para UBound (tmpArray)

List = Lista y vbCrLf y tmpArray (xCntr)

Siguiente

Lista Debug.Print

End Sub

5 Haga clic en el primer procedimiento sub y pulse la tecla "Ctrl" + "G" para mostrar la ventana Inmediato. Pulse la tecla "F5" para ejecutar el programa y ver los resultados.