Obsah
Môžete vykonávať logiku alebo môžete vracať jednotlivé znaky z reťazca vo VBA opakovaním v reťazci.
Preveďte každú postavu v reťazci
Nasleduje príklad opakovania v reťazci pomocou slučky For… Next a vrátenia každého znaku do poľa msgbox.
| 1234567891011121314 | Sub LoopThroughString ()Dim Counter ako celé čísloDim MyString ako reťazecMyString = "AutomateExcel" 'definujúci reťazecPre počítadlo = 1 do Len (MyString)'urobte niečo s každým znakom v reťazci„Tu dáme do správy každý znakMsgBox Mid (MyString, Counter, 1)ĎalšieKoniec pod |
Funkcia Len počíta celkový počet znakov v reťazci. Takže výraz
| 1 | Pre počítadlo = 1 do Len (MyString |
bude prechádzať každým písmenom v reťazci.
Opakujte každú postavu v reťazci - alternatíva
Prečítajte si každú postavu v reťazci
: Tento príklad číta každý znak v reťazci zľava doprava a výsledok vráti do poľa so správou. Využíva sa Stred funkciu.
| 12345678910111213 | Sub LoopThroughString ()Dim LookInHere ako reťazecDim Counter ako celé číslo„Tu použite svoj vlastný textLookInHere = "easyexcel.net"Pre počítadlo = 1 až Len (LookInHere)MsgBox Mid (LookInHere, Counter, 1)ĎalšieKoniec pod |
Prečítajte si každé slovo v reťazci
Tento príklad číta každé slovo v reťazci zľava doprava a výsledok vráti do poľa so správou. Využíva sa Rozdeliť funkciu.
| 1234567891011121314151617 | Sub LoopThroughString2 ()Dim LookInHere ako reťazecDim Counter ako celé čísloDim SplitCatcher ako variant„Tu použite svoj vlastný textLookInHere = "I Heart easyexcel.net"SplitCatcher = Split (LookInHere, "")Pre počítadlo = 0 až UBound (SplitCatcher)MsgBox SplitCatcher (počítadlo)ĎalšieKoniec pod |
