Turinys
Galite atlikti logiką arba grąžinti atskirus simbolius iš eilutės VBA, pakartodami eilutę.
Peržiūrėkite kiekvieną simbolį eilute
Toliau pateikiamas eilutės perjungimo, naudojant For… Next Loop, pavyzdys ir kiekvieno simbolio grąžinimas žinutės dėžutėje.
| 1234567891011121314 | Sub LoopThroughString ()Dim skaitiklis kaip sveikasis skaičiusDim MyString kaip eilutėMyString = "AutomateExcel" 'apibrėžti eilutęSkaitliukui = 1 į Leną („MyString“)'ką nors padaryti kiekvienam simboliui eilutėjeČia mes parašysime žinutes kiekvienam simboliui„MsgBox Mid“ („MyString“, skaitiklis, 1)KitasPabaiga Sub |
Funkcija Len skaičiuoja bendrą simbolių skaičių eilutėje. Taigi išraiška
| 1 | Skaitliukui = 1 iki Len (MyString |
eis per kiekvieną eilutės raidę.
Peržiūrėkite kiekvieną simbolį eilute - alternatyva
Perskaitykite kiekvieną simbolį eilute
: Šis pavyzdys skaito kiekvieną simbolį eilutėje iš kairės į dešinę ir grąžina rezultatą pranešimų laukelyje. Jis naudojasi Vidurys funkcija.
| 12345678910111213 | Sub LoopThroughString ()„Dim LookInHere“ kaip eilutėDim skaitiklis kaip sveikasis skaičius„Čia naudokite savo tekstąLookInHere = "easyexcel.net"Skaitliukui = 1 Lenas (LookInHere)„MsgBox Mid“ („LookInHere“, skaitiklis, 1)KitasPabaiga Sub |
Skaitykite kiekvieną žodį eilute
Šis pavyzdys skaito kiekvieną eilutės žodį iš kairės į dešinę ir grąžina rezultatą pranešimų laukelyje. Jis naudojasi Splitas funkcija.
| 1234567891011121314151617 | Antroji ciklo eilutė2 ()„Dim LookInHere“ kaip eilutėDim skaitiklis kaip sveikasis skaičius„Dim SplitCatcher“ kaip variantas„Čia naudokite savo tekstąLookInHere = "I Heart easyexcel.net"SplitCatcher = Split (LookInHere, "")Skaitliukui = 0 iki „UBound“ („SplitCatcher“)„MsgBox SplitCatcher“ (skaitiklis)KitasPabaiga Sub |
