Dator
 |  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Visual Basics Programmering >> Content

    Hur du sorterar en String Array i VBA

    Sortera en sträng array i Visual Basic for Applications ( VBA ) är inte så enkelt som i andra , nyare programmeringsspråk . I VBA kan du sortera en array i stigande ordning med hjälp av ett par " För ... Loops " och loopa igenom varje element i arrayen . Denna metod är användbar när du behöver visa värdena tillbaka till användaren i stigande ordning , att ge dina data en mer professionellt utseende . Saker du behöver
    Microsoft Excel
    Visa fler instruktioner
    1

    Launch Microsoft Excel , klicka på " Utvecklare " fliken , klicka sedan på " Visual Basic " för att öppna VB Editor. Skapa ett nytt sub förfarande genom att lägga till följande kod :

    Private Sub SortVBAArray ( )
    2

    Skapa din sträng array och lägga tio värden till det :

    Dim dataArray ( 10 ) As String

    dataArray ( 0 ) = " John "

    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 "

    Billiga 3

    Ring sub förfarande som kommer att sortera värdena i arrayen och avsluta proceduren :

    Call sortArray ( dataArray ) katalog

    End sub ​​

    4

    Skapa sub förfarande som kommer att sortera strängmatris i stigande ordning och visa resultaten genom direktfönstret :

    sub sortArray ( tmpArray ( ) As String ) katalog

    Dim firstIdx As Integer

    Dim lastIdx As Integer

    Dim xCntr As Integer

    Dim yCntr As Integer

    Dim Temp As String

    Dim List As String

    firstIdx = LBound ( tmpArray ) katalog

    lastIdx = UBound ( tmpArray ) katalog

    För xCntr = firstIdx Till lastIdx - en

    För yCntr = xCntr + 1 Till lastIdx
    p Om tmpArray ( xCntr ) > tmpArray ( yCntr ) Sen

    Temp = tmpArray ( yCntr ) katalog

    tmpArray ( yCntr ) = tmpArray ( xCntr )

    tmpArray ( xCntr ) = Temp

    End If

    Nästa yCntr

    Nästa xCntr

    För xCntr = 1 Till UBound ( tmpArray )

    List = Lista & vbCrLf & tmpArray ( xCntr ) katalog

    Nästa

    Debug.Print Lista

    End Sub
    5

    Klicka på den första sub och trycka " Ctrl " + " G " för att visa Immediate fönstret . Tryck " F5 " för att köra programmet och se resultatet .

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur man skapar ett bildblock i Visual Basic
    ·Hur man bygger en ActiveX- objekt med Visual Basic 6
    ·Hur använder jag en Visual Basic 6 kö
    ·String Storlek i VB6
    ·Så här visar du varje iteration i en Visual Basic Tex…
    ·Hur Loop Through resultat i LINQ till SQL
    ·Fördelar & Nackdelar med VisualBasic
    ·Hur man vet om en text värde har ändrats på Visual B…
    ·Konvertera ett decimaltal till ett String i VB.NET
    ·Hur Skicka & ta emot ett SMS Använda VB 6
    Utvalda artiklarna
    ·Hur du uppdaterar PHP Använda Javascript
    ·Så ställer du in standardspråkval för ett 404-fel s…
    ·Hur man skriver en enkel konsol File Transfer Program S…
    ·Så här kontrollerar Java Historia i Windows Vista
    ·Hur man öppnar en wmv-fil i VB
    ·Hur man laddar ett Python manus till en IDLE Shell
    ·Computer Science Fundamentals Tutorial
    ·Hur du vet MySQL körs på servern
    ·Hur konvertera INT till String i MS SQL
    ·Visual Basic Tutorial på Checkboxar
    Copyright © Dator Kunskap http://www.dator.xyz