Kazalo
Logiko lahko izvedete ali vrnete posamezne znake iz niza v VBA tako, da se vrnete skozi niz.
Prenesite vsak znak v nizu
Spodaj je primer zanke skozi niz z uporabo For… Next Loop in vrnitev vsakega znaka v polje za sporočila.
| 1234567891011121314 | Sub LoopThroughString ()Zatemni števec kot celo številoZatemni MyString kot nizMyString = "AutomateExcel" 'definiraj nizZa števec = 1 do Lena (MyString)'naredi nekaj za vsak znak v nizu'tukaj bomo sporočili vsak znakMsgBox Mid (MyString, števec, 1)NaslednjiEnd Sub |
Funkcija Len šteje skupno število znakov v nizu. Torej izraz
| 1 | Za števec = 1 do Len (MyString |
se bo preletel skozi vsako črko v nizu.
Prenesite vsak znak v nizu - alternativa
Preberite vse znake v nizu
: Ta primer bere vse znake v nizu od leve proti desni in vrne rezultat v polje s sporočilom. Uporablja Sredina funkcijo.
| 12345678910111213 | Sub LoopThroughString ()Dim LookInHere As StringZatemni števec kot celo število'Tukaj uporabite svoje besediloLookInHere = "easyexcel.net"Za števec = 1 do Lena (poglej tukaj)MsgBox Mid (LookInHere, števec, 1)NaslednjiEnd Sub |
Preberite vsako besedo v nizu
Ta primer bere vsako besedo v nizu od leve proti desni in vrne rezultat v polje s sporočilom. Uporablja Split funkcijo.
| 1234567891011121314151617 | Sub LoopThroughString2 ()Dim LookInHere As StringZatemni števec kot celo številoZatemni SplitCatcher kot varianto'Tukaj uporabite svoje besediloLookInHere = "I Heart easyexcel.net"SplitCatcher = Razdeljeno (LookInHere, "")Za števec = 0 proti UBound (SplitCatcher)MsgBox SplitCatcher (števec)NaslednjiEnd Sub |
