İçindekiler
Dize içinde döngü yaparak VBA'daki bir dizeden mantık yürütebilir veya karakterleri tek tek döndürebilirsiniz.
Bir Dizedeki Her Karakterde Döngü
Aşağıdaki, For… Next Loop kullanarak bir dizgede döngü yapmaya ve her karakteri bir msgbox'a döndürmeye bir örnektir.
| 1234567891011121314 | Alt LoopThroughString()Sayacı Tamsayı Olarak DimMyString'i Dize Olarak KarartMyString = "AutomateExcel" 'dizeyi tanımlaSayaç için = 1 To Len(MyString)'dizedeki her karaktere bir şeyler yap'burada her karaktere mesaj kutusu göndereceğizMsgBox Orta(MyString, Counter, 1)SonrakiAlt Bitiş |
Len İşlevi, dizedeki toplam karakter sayısını sayar. yani ifade
| 1 | Sayaç için = 1'den Len'e(MyString |
dizedeki her harf arasında döngü yapacaktır.
Bir Dizedeki Her Karakterde Döngü - Alternatif
Bir Dizedeki Her Karakteri Oku
: Bu örnek, bir dizedeki her karakteri soldan sağa okur ve sonucu bir mesaj kutusunda döndürür. Şunları kullanır: Orta işlev.
| 12345678910111213 | Alt LoopThroughString()Dim LookInHere As StringSayacı Tamsayı Olarak Dim'Burada kendi metninizi kullanınLookInHere = "easyexcel.net"Sayaç için = 1'den Len'e(Buraya Bakın)MsgBox Orta(Buraya Bak, Sayaç, 1)SonrakiAlt Bitiş |
Bir Dizedeki Her Kelimeyi Okuyun
Bu örnek, bir dizedeki her kelimeyi soldan sağa okur ve sonucu bir mesaj kutusunda döndürür. Şunları kullanır: Bölmek işlev.
| 1234567891011121314151617 | Alt LoopThroughString2()Dim LookInHere As StringSayacı Tamsayı Olarak DimDim SplitCatcher Varyant Olarak'Burada kendi metninizi kullanınLookInHere = "I Heart easyexcel.net"SplitCatcher = Böl(Buraya Bakın, " ")Sayaç için = 0 - UBound(SplitCatcher)MsgBox SplitCatcher(Sayaç)SonrakiAlt Bitiş |
