Innehållsförteckning
Du kan utföra logik på eller returnera enskilda tecken från en sträng i VBA genom att slinga igenom strängen.
Slinga igenom varje karaktär i en sträng
Följande är ett exempel på att slinga igenom en sträng med hjälp av en For … Next Loop och returnera varje tecken i en msgbox.
| 1234567891011121314 | Sub LoopThroughString ()Dim räknare som heltalDim MyString som strängMyString = "AutomateExcel" 'definiera strängFör räknare = 1 Till Len (MyString)'gör något med varje tecken i sträng'här kommer vi att skicka varje teckenMsgBox Mid (MyString, Counter, 1)NästaAvsluta Sub |
Len -funktionen räknar det totala antalet tecken i strängen. Så uttrycket
| 1 | För räknare = 1 till Len (MyString |
kommer att gå igenom varje bokstav i strängen.
Slinga igenom varje karaktär i en sträng - alternativ
Läs varje tecken i en sträng
: Detta exempel läser varje tecken i en sträng från vänster till höger och returnerar resultatet i en meddelanderuta. Den använder sig av Mitten fungera.
| 12345678910111213 | Sub LoopThroughString ()Dim LookInHere som strängDim räknare som heltal'Använd din egen text härLookInHere = "easyexcel.net"För räknare = 1 till Len (LookInHere)MsgBox Mid (LookInHere, Counter, 1)NästaAvsluta Sub |
Läs varje ord i en sträng
Detta exempel läser varje ord i en sträng från vänster till höger och returnerar resultatet i en meddelanderuta. Den använder sig av Dela fungera.
| 1234567891011121314151617 | Sub LoopThroughString2 ()Dim LookInHere som strängDim räknare som heltalDim SplitCatcher som variant'Använd din egen text härLookInHere = "I Heart easyexcel.net"SplitCatcher = Split (LookInHere, "")För räknare = 0 till UBound (SplitCatcher)MsgBox SplitCatcher (räknare)NästaAvsluta Sub |
