Sadržaj
Možete izvesti logiku ili vratiti pojedinačne znakove iz niza u VBA -i provlačenjem kroz niz.
Prođite kroz svaki znak u nizu
Slijedi primjer petlje kroz niz pomoću For … Next Loop i vraćanje svakog znaka u okvir za poruke.
| 1234567891011121314 | Sub LoopThroughString ()Zatamni brojač kao cijeli brojDim MyString As StringMyString = "AutomateExcel" 'definirajte nizZa brojač = 1 do Lena (MyString)'učiniti nešto svakom znaku u nizu'ovdje ćemo poslati poruku svakom znakuMsgBox Mid (MyString, Counter, 1)SljedećiKraj podm |
Len funkcija broji ukupan broj znakova u nizu. Dakle izraz
| 1 | Za brojač = 1 do Len (MyString |
će prolaziti kroz svako slovo u nizu.
Petlja kroz svaki znak u nizu - alternativa
Pročitajte svaki znak u nizu
: Ovaj primjer čita svaki znak u nizu slijeva nadesno i vraća rezultat u okvir s porukom. Koristi se od Sredina funkcija.
| 12345678910111213 | Sub LoopThroughString ()Dim LookInHere As StringZatamni brojač kao cijeli broj'Ovdje upotrijebite vlastiti tekstLookInHere = "easyexcel.net"Za brojač = 1 do Lena (pogledajte ovdje)MsgBox Mid (LookInHere, Counter, 1)SljedećiKraj podm |
Pročitajte svaku riječ u nizu
Ovaj primjer čita svaku riječ u nizu slijeva nadesno i vraća rezultat u okvir s porukom. Koristi se od Podjela funkcija.
| 1234567891011121314151617 | Sub LoopThroughString2 ()Dim LookInHere As StringZatamni brojač kao cijeli brojDim SplitCatcher kao varijanta'Ovdje upotrijebite vlastiti tekstLookInHere = "I Heart easyexcel.net"SplitCatcher = Split (LookInHere, "")Za brojač = 0 do UBound (SplitCatcher)MsgBox SplitCatcher (brojač)SljedećiKraj podm |
