Ako triediť String Array v jazyku VBA

Triedenie poľa reťazcov v jazyku Visual Basic for Applications ( VBA ) , nie je tak jednoduché , ako v iných , novších programovacích jazykov . Vo VBA , môžete triediť poľa vo vzostupnom poradí pomocou pár " Pre ... Loops " a priechodná každý prvok v poli . Táto metóda je užitočná , ak potrebujete zobraziť hodnoty späť k užívateľovi vo vzostupnom poradí , aby vaše dáta viac profesionálny vzhľad . Veci , ktoré budete potrebovať v Microsoft Excel
Zobraziť ďalšie inštrukcie Cestuj 1

Spustite program Microsoft Excel , kliknite na kartu " Vývojár " , potom kliknite na tlačidlo " Visual Basic " otvorte VB editor . Vytvoriť nový čiastkové postup pridaním nasledujúceho kódu :

Private Sub SortVBAArray ( )
2

Vytvorte si pole reťazcov a pridať desať hodnôt k nej :

Dim dataArray ( 10 ) As String

dataArray ( 0 ) = " John "

dataArray ( 1 ) = " Zackary "

dataArray ( 2 ) = " Sam "

dataArray ( 3 ) = " Adam "

dataArray ( 4 ) = " Bob "

dataArray ( 5 ) = " Kitzia "

dataArray ( 6 ) = " Daniel "

dataArray ( 7 ) = " Oscar "

dataArray ( 8 ) = " Alan "

dataArray ( 9 ) = " Yarexli "

Sims 3

Zavolajte čiastkové postup , ktorý bude triediť hodnoty v poli a ukončiť postup :

Volajte sortArray ( dataArray )

End Sub

4

Vytvorte čiastkové postup , ktorý bude triediť reťazec poľa vo vzostupnom poradí a zobrazenie výsledkov do okna 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 Dim

Zoznam as String

firstIdx = LBound ( tmpArray )

lastIdx = UBound ( tmpArray )

xCntr = firstIdx Pre lastIdx - 1

yCntr = xCntr + 1 Ak chcete lastIdx

Ak tmpArray ( xCntr ) > tmpArray ( yCntr ) Potom

Temp = tmpArray ( yCntr )

tmpArray ( yCntr ) = tmpArray ( xCntr )

tmpArray ( xCntr ) = Temp

End If

Ďalšie yCntr

Ďalšie xCntr

xCntr = 1 Ak chcete UBound ( tmpArray )

List = Zoznam & vbCrLf & tmpArray ( xCntr )

Ďalšie

Debug.Print Zoznam

End Sub
5

Kliknite na prvé čiastkové postup a stlačte " Ctrl " + " G " sa zobrazí okno Immediate . Stlačením tlačidla " F5 " pre spustenie programu a zobrazenie výsledkov .

• Predchádzajúca strana: Ako Náhodne ListView položky na Visual Basic 6 
• Ďalšia strana: Ako napísať Quad Riešiteľ pre TI - 84