Obsah
Můžete provádět logiku nebo vracet jednotlivé znaky z řetězce ve VBA smyčkou přes řetězec.
Projděte každou postavu v řetězci
Následuje příklad opakování v řetězci pomocí smyčky For… Next a vrácení každého znaku v msgboxu.
| 1234567891011121314 | Sub LoopThroughString ()Dim Counter jako celé čísloDim MyString jako řetězecMyString = "AutomateExcel" 'definuje řetězecFor Counter = 1 To Len (MyString)„udělejte něco s každým znakem v řetězci'Zde budeme msgboxovat každý znakMsgBox Mid (MyString, Counter, 1)dalšíEnd Sub |
Funkce Len počítá celkový počet znaků v řetězci. Takže výraz
| 1 | Pro čítač = 1 až Len (MyString |
bude procházet každým písmenem v řetězci.
Projděte každou postavu v řetězci - alternativa
Přečtěte si každou postavu v řetězci
: Tento příklad čte každý znak v řetězci zleva doprava a vrací výsledek do pole se zprávou. Využívá Střední funkce.
| 12345678910111213 | Sub LoopThroughString ()Dim LookInHere jako řetězecDim Counter jako celé číslo„Zde použijte svůj vlastní textLookInHere = "easyexcel.net"For Counter = 1 To Len (LookInHere)MsgBox Mid (LookInHere, Counter, 1)dalšíEnd Sub |
Přečtěte si každé slovo v řetězci
Tento příklad čte každé slovo v řetězci zleva doprava a vrací výsledek do pole se zprávou. Využívá Rozdělit funkce.
| 1234567891011121314151617 | Sub LoopThroughString2 ()Dim LookInHere jako řetězecDim Counter jako celé čísloDim SplitCatcher jako varianta„Zde použijte svůj vlastní textLookInHere = "I Heart easyexcel.net"SplitCatcher = Split (LookInHere, "")Pro čítač = 0 až UBound (SplitCatcher)MsgBox SplitCatcher (Counter)dalšíEnd Sub |
