Съдържание
Можете да изпълнявате логика или да връщате отделни символи от низ във VBA, като преглеждате низа.
Превъртете всеки символ в низ
По -долу е пример за цикъл през низ, използващ For… Next Loop, и връщане на всеки знак в съобщение.
| 1234567891011121314 | Sub LoopThroughString ()Dim Counter As IntegerDim MyString As StringMyString = "AutomateExcel" 'дефинирайте низFor Counter = 1 To Len (MyString)'направи нещо с всеки знак в низ"тук ще изпратим съобщение за всеки знакMsgBox Mid (MyString, Counter, 1)СледващияEnd Sub |
Функцията Len отчита общия брой знаци в низа. Така че изразът
| 1 | За брояч = 1 към Len (MyString |
ще се върти през всяка буква в низа.
Превъртете всеки символ в низ - алтернатива
Прочетете всеки символ в низ
: Този пример чете всеки знак в низ отляво надясно и връща резултата в поле за съобщение. Той използва Средно функция.
| 12345678910111213 | Sub LoopThroughString ()Dim LookInHere As StringDim Counter As Integer„Използвайте свой собствен текст тукLookInHere = "easyexcel.net"For Counter = 1 To Len (LookInHere)MsgBox Mid (LookInHere, Counter, 1)СледващияEnd Sub |
Прочетете всяка дума в низ
Този пример чете всяка дума в низ отляво надясно и връща резултата в поле за съобщение. Той използва Разделяне функция.
| 1234567891011121314151617 | Sub LoopThroughString2 ()Dim LookInHere As StringDim Counter As IntegerDim SplitCatcher като вариант„Използвайте свой собствен текст тукLookInHere = "I Heart easyexcel.net"SplitCatcher = Разделяне (LookInHere, "")За брояч = 0 към UBound (SplitCatcher)MsgBox SplitCatcher (брояч)СледващияEnd Sub |
