Lang L: none (table-of-contents)
Struktuuri abil saate VBA -s loogikat teostada või stringist üksikuid märke tagastada.
Sirvige iga tegelane stringina läbi
Järgnev on näide stringi kordamisest, kasutades käsku For… Next Loop ja iga märgi tagastamist sõnumikastis.
| 1234567891011121314 | Sub LoopThroughString ()Dim Counter täisarvunaDim MyString stringinaMyString = "AutomateExcel" 'defineerige stringLoenduri jaoks = 1 Lenini (MyString)"tehke midagi igale tähemärgile stringis"siin saadame iga märgi sõnumite saatmiseksMsgBox Mid (MyString, loendur, 1)EdasiEnd Sub |
Funktsioon Len loeb stringi tähemärkide koguarvu. Nii et väljend
| 1 | Loenduri jaoks = 1 kuni Len (MyString |
ringleb läbi iga stringi tähe.
Loopige läbi iga tegelase string - alternatiiv
Lugege stringi iga märki
: See näide loeb stringi iga märgi vasakult paremale ja tagastab tulemuse sõnumikastis. See kasutab ära Keskel funktsiooni.
| 12345678910111213 | Sub LoopThroughString ()Dim LookInHere stringinaDim Counter täisarvuna'Kasutage siin oma tekstiLookInHere = "easyexcel.net"Loenduri jaoks = 1 Lenini (LookInHere)MsgBox Mid (LookInHere, loendur, 1)EdasiEnd Sub |
Lugege iga sõna stringina
See näide loeb stringi iga sõna vasakult paremale ja tagastab tulemuse sõnumikastis. See kasutab ära Jagatud funktsiooni.
| 1234567891011121314151617 | Sub LoopThroughString2 ()Dim LookInHere stringinaDim Counter täisarvunaDim SplitCatcher variandina'Kasutage siin oma tekstiLookInHere = "I Heart easyexcel.net"SplitCatcher = Split (LookInHere, "")Loenduri jaoks = 0 UBoundile (SplitCatcher)MsgBox SplitCatcher (loendur)EdasiEnd Sub |
