Tartalomjegyzék
Logikát hajthat végre, vagy a karakterlánc egyes karaktereit visszaadhatja a VBA -ban a karakterláncon keresztül.
Húzzon végig minden karaktert egy karakterláncban
Az alábbiakban példát mutatunk arra, hogy a For… Next Loop használatával karakterláncon keresztül lehet ciklusba lépni, és minden karaktert vissza lehet küldeni egy msgboxban.
| 1234567891011121314 | Sub LoopThroughString ()Dim Counter mint egészDim MyString karakterlánckéntMyString = "AutomateExcel" 'karakterláncSzámlálóhoz = 1 Len (MyString)'csinálj valamit minden karakterrel karakterláncban'itt üzenetet küldünk minden karakterrőlMsgBox Mid (MyString, Counter, 1)KövetkezőEnd Sub |
A Len függvény számolja a karakterlánc összes karakterét. Tehát a kifejezés
| 1 | Számlálóhoz = 1 Len (MyString |
végigmegy a karakterlánc minden betűjén.
Loop keresztül minden karakter egy karakterlánc - alternatív
Olvasson el minden karaktert egy karakterláncban
: Ez a példa a karakterlánc minden karakterét olvassa balról jobbra, és az eredményt egy üzenetmezőben adja vissza. Kihasználja a Középső funkció.
| 12345678910111213 | Sub LoopThroughString ()Dim LookInHere karakterlánckéntDim Counter mint egész- Itt használja a saját szövegétLookInHere = "easyexcel.net"Számlálóhoz = 1 Lennek (LookInHere)MsgBox Mid (LookInHere, számláló, 1)KövetkezőEnd Sub |
Olvasson el minden szót karakterláncban
Ez a példa a karakterlánc minden szavát olvassa balról jobbra, és az eredményt egy üzenetmezőben adja vissza. Kihasználja a Hasított funkció.
| 1234567891011121314151617 | Sub LoopThroughString2 ()Dim LookInHere karakterlánckéntDim Counter mint egészDim SplitCatcher változatként- Itt használja a saját szövegétLookInHere = "I Heart easyexcel.net"SplitCatcher = Felosztás (LookInHere, "")Számlálóhoz = 0 az UBoundhoz (SplitCatcher)MsgBox SplitCatcher (számláló)KövetkezőEnd Sub |
