Innholdsfortegnelse
Du kan utføre logikk på, eller returnere individuelle tegn fra en streng i VBA ved å gå gjennom strengen.
Sløyfe gjennom hver karakter i en streng
Følgende er et eksempel på sløyfe gjennom en streng ved hjelp av en For … Next Loop, og returnere hvert tegn i en meldingsboks.
| 1234567891011121314 | Sub LoopThroughString ()Dim Teller Som HeltallDim MyString som strengMyString = "AutomateExcel" 'definere strengFor Counter = 1 To Len (MyString)'gjør noe med hver karakter i strengen'her vil vi skrive inn hvert tegnMsgBox Mid (MyString, Counter, 1)NesteSlutt Sub |
Len -funksjonen teller det totale antallet tegn i strengen. Så uttrykket
| 1 | For Counter = 1 til Len (MyString |
vil gå gjennom hver bokstav i strengen.
Sløyfe gjennom hver karakter i en streng - alternativ
Les alle tegn i en streng
: Dette eksemplet leser hvert tegn i en streng fra venstre til høyre og returnerer resultatet i en meldingsboks. Den benytter seg av Midt funksjon.
| 12345678910111213 | Sub LoopThroughString ()Dim LookInHere som strengDim Teller Som Heltall'Bruk din egen tekst herLookInHere = "easyexcel.net"For Counter = 1 To Len (LookInHere)MsgBox Mid (LookInHere, Counter, 1)NesteSlutt Sub |
Les hvert ord i en streng
Dette eksemplet leser hvert ord i en streng fra venstre til høyre og returnerer resultatet i en meldingsboks. Den gjør bruk av Dele funksjon.
| 1234567891011121314151617 | Sub LoopThroughString2 ()Dim LookInHere som strengDim Teller Som HeltallDim SplitCatcher som variant'Bruk din egen tekst herLookInHere = "I Heart easyexcel.net"SplitCatcher = Split (LookInHere, "")For Counter = 0 Til UBound (SplitCatcher)MsgBox SplitCatcher (teller)NesteSlutt Sub |
