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 idiomas , programación más recientes. En VBA , puede ordenar una matriz para el uso de un par de " Para ... Loops " ascendente y un bucle a través de cada elemento de la matriz . Este método es útil cuando se necesita para mostrar los valores de nuevo al usuario en orden ascendente, para dar a sus datos un aspecto más profesional . Cosas que necesitará
Microsoft Excel
Ver Más instrucciones
1

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

SortVBAArray ()
2

Crea tu matriz de cadenas y añadir diez valores a la misma:

Dim dataArray ( 10 ) As String

dataArray ( 0 ) =

dataArray "John " ( 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 en la matriz y al final del procedimiento:

Call sortArray ( dataArray )

End sub

4

Crear 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

lastIdx Dim As Integer

xCntr Dim As Integer

yCntr Dim As Integer

Temperatura dévil como secuencia

Lista Dim As String

firstIdx = LBound ( tmpArray )

lastIdx = UBound ( tmpArray )

Para xCntr = firstIdx Para lastIdx - 1

Para yCntr = xCntr + 1 Para lastIdx

Si tmpArray ( xCntr ) > tmpArray ( yCntr ) Entonces

temp = tmpArray ( yCntr )

tmpArray ( yCntr ) = tmpArray ( xCntr )

tmpArray ( xCntr ) = temp

End If

Siguiente yCntr

Siguiente xCntr

Para xCntr = 1 To UBound ( tmpArray )

List = Lista y vbCrLf y tmpArray ( xCntr )

Debug.Print Lista

End Sub
5

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