Sisällysluettelo
Voit suorittaa logiikkaa tai palauttaa yksittäisiä merkkejä merkkijonosta VBA: ssa silmukkaamalla merkkijonon läpi.
Kierrä jokainen merkkijono läpi
Seuraavassa on esimerkki merkkijonon toistamisesta For… Next Loop -sovelluksella ja jokaisen merkin palauttamisesta viestilaatikossa.
| 1234567891011121314 | Sub LoopThroughString ()Dim -laskuri kokonaislukunaHimmennä merkkijono merkkijononaMyString = "AutomateExcel" 'määrittele merkkijonoLaskurille = 1 Len (MyString)'tee jotain jokaiselle merkkijonolle'Täällä me lähetämme viestejä jokaiselle merkilleMsgBox Mid (MyString, laskuri, 1)SeuraavaEnd Sub |
Len -funktio laskee merkkijonon merkkien kokonaismäärän. Ilmaisu siis
| 1 | Laskurille = 1 Len (MyString |
selaa jokaisen merkkijonon kirjaimen läpi.
Kierrä jokainen merkki merkkijonossa - vaihtoehto
Lue jokainen merkkijono
: Tämä esimerkki lukee merkkijonon kaikki merkit vasemmalta oikealle ja palauttaa tuloksen viestiruutuun. Se hyödyntää Keskellä toiminto.
| 12345678910111213 | Sub LoopThroughString ()Dim LookInHere merkkijononaDim -laskuri kokonaislukuna'Käytä omaa tekstiäsi täälläLookInHere = "easyexcel.net"Laskurille = 1 Len (LookInHere)MsgBox Mid (LookInHere, laskuri, 1)SeuraavaEnd Sub |
Lue jokainen sana merkkijonona
Tämä esimerkki lukee jokaisen merkkijonon sanan vasemmalta oikealle ja palauttaa tuloksen viesti -ruutuun. Se hyödyntää Jakaa toiminto.
| 1234567891011121314151617 | AlisilmukkaThroughString2 ()Dim LookInHere merkkijononaDim -laskuri kokonaislukunaDim SplitCatcher vaihtoehtona'Käytä omaa tekstiäsi täälläLookInHere = "I Heart easyexcel.net"SplitCatcher = Jaettu (LookInHere, "")Laskurille = 0 UBoundille (SplitCatcher)MsgBox SplitCatcher (laskuri)SeuraavaEnd Sub |
