Cuprins
Puteți efectua logică sau puteți returna caractere individuale dintr-un șir în VBA prin looping prin șir.
Buclați fiecare personaj dintr-un șir
Următorul este un exemplu de looping printr-un șir folosind un For … Next Loop și returnarea fiecărui caracter într-un msgbox.
| 1234567891011121314 | Sub LoopThroughString ()Dim Counter Ca întregDim MyString As StringMyString = "AutomateExcel" 'definește șirulFor Counter = 1 To Len (MyString)'faceți ceva fiecărui personaj din șir'Aici vom transmite fiecărui personajMsgBox Mid (MyString, Counter, 1)UrmătorulSfârșitul Sub |
Funcția Len contează numărul total de caractere din șir. Deci expresia
| 1 | Pentru Counter = 1 to Len (MyString |
va parcurge fiecare literă din șir.
Buclați fiecare personaj dintr-un șir - Alternativă
Citiți fiecare personaj dintr-un șir
: Acest exemplu citește fiecare caracter dintr-un șir de la stânga la dreapta și returnează rezultatul într-o casetă de mesaj. Se folosește de Mijloc funcţie.
| 12345678910111213 | Sub LoopThroughString ()Dim LookInHere As StringDim Counter Ca întreg„Folosește-ți propriul text aiciLookInHere = "easyexcel.net"For Counter = 1 To Len (LookInHere)MsgBox Mid (LookInHere, Counter, 1)UrmătorulSfârșitul Sub |
Citiți fiecare cuvânt într-un șir
Acest exemplu citește fiecare cuvânt dintr-un șir de la stânga la dreapta și returnează rezultatul într-o casetă de mesaje. Se folosește de Despică funcţie.
| 1234567891011121314151617 | Sub LoopThroughString2 ()Dim LookInHere As StringDim Counter Ca întregDim SplitCatcher ca variantă„Folosește-ți propriul text aiciLookInHere = "I Heart easyexcel.net"SplitCatcher = Split (LookInHere, "")For Counter = 0 To UBound (SplitCatcher)MsgBox SplitCatcher (Contor)UrmătorulSfârșitul Sub |
