Spisie treści
Możesz wykonać logikę lub zwrócić poszczególne znaki z ciągu w języku VBA, wykonując pętlę przez ciąg.
Przeprowadź pętlę przez każdy znak w ciągu
Poniżej znajduje się przykład pętli przez ciąg znaków za pomocą For… Next Loop i zwrócenie każdego znaku w polu msgbox.
| 1234567891011121314 | Podrzędna pętla przez łańcuch()Licznik Dim jako liczba całkowitaPrzyciemnij mój ciąg jako ciągMyString = "AutomateExcel" 'zdefiniuj ciągDla Licznika = 1 Do Len(MyString)'zrób coś z każdym znakiem w łańcuchu'tutaj będziemy msgbox każdy znakMsgBox Mid (Mój Ciąg, Licznik, 1)NastępnyNapis końcowy |
Funkcja Len zlicza całkowitą liczbę znaków w ciągu. Więc wyrażenie
| 1 | Dla licznika = 1 do Len(MyString |
przejdzie przez każdą literę w łańcuchu.
Zapętlaj każdy znak w ciągu - alternatywa
Przeczytaj każdy znak w ciągu
: Ten przykład odczytuje każdy znak w ciągu od lewej do prawej i zwraca wynik w oknie komunikatu. Wykorzystuje Środek funkcjonować.
| 12345678910111213 | Podrzędna pętla przez łańcuch()Dim LookInHere As StringLicznik Dim jako liczba całkowita'Użyj tutaj własnego tekstuLookInHere = "easyexcel.net"Dla licznika = 1 do Len(LookInHere)MsgBox Mid(LookInHere, Counter, 1)NastępnyNapis końcowy |
Przeczytaj każde słowo w łańcuchu
Ten przykład odczytuje każde słowo w ciągu od lewej do prawej i zwraca wynik w oknie komunikatu. Wykorzystuje Podział funkcjonować.
| 1234567891011121314151617 | Pętla podrzędnaString2()Dim LookInHere As StringLicznik Dim jako liczba całkowitaDim SplitCatcher jako wariant'Użyj tutaj własnego tekstuLookInHere = "Kocham easyexcel.net"SplitCatcher = Split(LookInHere, " ")Dla licznika = 0 To UBound (SplitCatcher)MsgBox SplitCatcher (licznik)NastępnyNapis końcowy |
