Зміст
Ви можете виконувати логіку або повертати окремі символи з рядка у VBA, перебираючи цикл.
Прокрутіть кожен символ у рядку
Нижче наведено приклад циклічного перегляду рядка за допомогою циклу For… Next Loop та повернення кожного символу у вікні повідомлення.
| 1234567891011121314 | Sub LoopThroughString ()Лічильник затемнення як ціле числоЗатемнити MyString як рядокMyString = "AutomateExcel" 'визначає рядокFor Counter = 1 To Len (MyString)'зробіть щось з кожним символом у рядку'тут ми будемо надсилати повідомлення для кожного символуMsgBox Mid (MyString, Counter, 1)ДаліEnd Sub |
Функція Len підраховує загальну кількість символів у рядку. Отже вираз
| 1 | Для лічильника = 1 до Лен (MyString |
прокрутить кожну букву в рядку.
Цикл через кожен символ у рядку - альтернатива
Прочитайте кожен символ у рядку
: Цей приклад читає кожен символ у рядку зліва направо і повертає результат у вікні повідомлення. Він використовує Середина функція.
| 12345678910111213 | Sub LoopThroughString ()Dim LookInHere As StringЛічильник затемнення як ціле число'Використовуйте тут власний текстLookInHere = "easyexcel.net"For Counter = 1 To Len (Подивіться тут)MsgBox Mid (LookInHere, Лічильник, 1)ДаліEnd Sub |
Прочитайте кожне слово в рядку
У цьому прикладі читається кожне слово в рядку зліва направо і повертається результат у вікні повідомлення. Він використовує Спліт функція.
| 1234567891011121314151617 | Sub LoopThroughString2 ()Dim LookInHere As StringЛічильник затемнення як ціле числоDim SplitCatcher як варіант'Використовуйте тут власний текстLookInHere = "Я серцем easyexcel.net"SplitCatcher = Розділити (LookInHere, "")Для лічильника = 0 до UBound (SplitCatcher)MsgBox SplitCatcher (лічильник)ДаліEnd Sub |
