Indholdsfortegnelse
Du kan udføre logik på eller returnere individuelle tegn fra en streng i VBA ved at sløjfe gennem strengen.
Sløjfe gennem hver karakter i en streng
Det følgende er et eksempel på at sløjfe gennem en streng ved hjælp af en For … Next Loop og returnere hvert tegn i en msgbox.
| 1234567891011121314 | Sub LoopThroughString ()Dim tæller som heltalDim MyString som strengMyString = "AutomateExcel" 'definere strengFor Counter = 1 To Len (MyString)'gør noget ved hver karakter i streng'her vil vi msgbox hvert tegnMsgBox Mid (MyString, Counter, 1)NæsteAfslut Sub |
Len -funktionen tæller det samlede antal tegn i strengen. Altså udtrykket
| 1 | For Counter = 1 til Len (MyString |
vil gå gennem hvert bogstav i strengen.
Sløjfe gennem hver karakter i en streng - alternativ
Læs alle tegn i en streng
: Dette eksempel læser hvert tegn i en streng fra venstre mod højre og returnerer resultatet i en meddelelsesboks. Det gør brug af Midt fungere.
| 12345678910111213 | Sub LoopThroughString ()Dim LookInHere som strengDim tæller som heltal'Brug din egen tekst herLookInHere = "easyexcel.net"For tæller = 1 til Len (LookInHere)MsgBox Mid (LookInHere, Counter, 1)NæsteAfslut Sub |
Læs hvert ord i en streng
Dette eksempel læser hvert ord i en streng fra venstre mod højre og returnerer resultatet i en meddelelsesboks. Det gør brug af Dele fungere.
| 1234567891011121314151617 | Sub LoopThroughString2 ()Dim LookInHere som strengDim tæller som heltalDim SplitCatcher som variant'Brug din egen tekst herLookInHere = "I Heart easyexcel.net"SplitCatcher = Split (LookInHere, "")For tæller = 0 Til UBound (SplitCatcher)MsgBox SplitCatcher (tæller)NæsteAfslut Sub |
