Sorting een string array in Visual Basic for Applications ( VBA ) is niet zo eenvoudig als in andere , meer recente programmeertalen . In VBA kunt u een array sorteren in oplopende volgorde met behulp van een paar "For ... Loops " en doorlussen van elk element in de array . Deze methode is handig wanneer u nodig hebt om de waarden in oplopende volgorde terug geven aan de gebruiker , om uw gegevens te geven een meer professionele uitstraling . Wat je nodig hebt
Microsoft Excel
Toon Meer Aanwijzingen
Lancering Microsoft Excel 1 , klikt u op het tabblad "Ontwikkelaar " , klik op " Visual Basic " om het VB te openen editor . Maak een nieuwe sub- procedure door toevoeging van de volgende code : Private Sub SortVBAArray
( ) kopen van 2 Maak uw tekenreeksarray en voeg tien waarden aan toe:
Dim dataArray ( 10 ) As String dataArray
( 0 ) = " John " 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 "
< br > Goedkope 3 Bel de sub procedure die de waarden zullen sorteren in de array en het einde van de procedure : Call sortArray
( dataArray ) op End sub
< br > 4 Maak de sub procedure die de string array zal sorteren in oplopende volgorde en de resultaten weer door het venster Direct : sub sortArray
( tmpArray ( ) als Koord ) Dim firstIdx
As Integer Dim lastIdx
als Geheel Dim xCntr
als Geheel Dim yCntr
als Geheel Dim Temp
als Koord Dim Lijst
As String firstIdx
= LBound ( tmpArray ) op lastIdx = UBound ( tmpArray ) op xCntr = firstIdx Om lastIdx - 1
yCntr = xCntr + 1 Om lastIdx
Als tmpArray ( xCntr ) > tmpArray ( yCntr ) dan
Temp = tmpArray ( yCntr ) tmpArray
( yCntr ) = tmpArray ( xCntr ) < br tmpArray ( xCntr ) > = Temp End
Als
Volgende yCntr
Volgende xCntr
xCntr = 1 To UBound ( tmpArray ) Lijst
= Lijst & vbCrLf & tmpArray ( xCntr ) Volgende Debug.Print Lijst Einde
Sub
5 Klik op de eerste sub procedure en druk op " Ctrl " + " G " om het venster Direct weer te geven . Druk op " F5 " om het programma uit te voeren en de resultaten bekijken .
|
