Satura rādītājs
Jūs varat veikt loģiku vai atgriezt atsevišķas rakstzīmes no virknes VBA, veicot virkni.
Izsekojiet katru rakstzīmi virknē
Tālāk ir sniegts piemērs, kā virkni pārvietot, izmantojot For… Next Loop, un atgriezt katru rakstzīmi ziņojuma lodziņā.
| 1234567891011121314 | Sub LoopThroughString ()Dim skaitītājs kā vesels skaitlisDim MyString kā virkneMyString = "AutomateExcel" 'definēt virkniSkaitītājam = 1 līdz Len (MyString)'dariet kaut ko ar katru rakstzīmi virknē'šeit mēs nosūtīsim ziņojumus katrai rakstzīmeiMsgBox Mid (MyString, Counter, 1)NākamaisBeigu apakš |
Funkcija Len saskaita kopējo virknes rakstzīmju skaitu. Tātad izteiciens
| 1 | Skaitītājam = 1 līdz Len (MyString |
pārvietos katru virknes burtu.
Izslēgt katru rakstzīmi virknē - alternatīva
Izlasiet katru rakstzīmi virknē
: Šis piemērs nolasa katru rakstzīmi virknē no kreisās uz labo pusi un atgriež rezultātu ziņojumu lodziņā. Tas izmanto Vidū funkciju.
| 12345678910111213 | Sub LoopThroughString ()Dim LookInHere kā virkneDim skaitītājs kā vesels skaitlis'Šeit izmantojiet savu tekstuLookInHere = "easyexcel.net"Skaitītājam = 1 līdz Lenam (LookInHere)MsgBox Mid (LookInHere, skaitītājs, 1)NākamaisBeigu apakš |
Lasiet katru vārdu virknē
Šis piemērs nolasa katru vārdu virknē no kreisās uz labo pusi un atgriež rezultātu ziņojumu lodziņā. Tas izmanto Sadalīts funkciju.
| 1234567891011121314151617 | Apkārtējā cilpaThroughString2 ()Dim LookInHere kā virkneDim skaitītājs kā vesels skaitlisDim SplitCatcher kā variants'Šeit izmantojiet savu tekstuLookInHere = "I Heart easyexcel.net"SplitCatcher = Split (LookInHere, "")Skaitītājam = 0 līdz UBound (SplitCatcher)MsgBox SplitCatcher (skaitītājs)NākamaisBeigu apakš |
