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