По -долу ще разгледаме програма в Excel VBA че разделя низове.
Ситуация:
Поставете команден бутон на работния си лист и добавете следните кодови редове:
1. Първо, декларираме променлива, наречена пълно име от тип String, променлива, наречена команда от тип Integer, и променлива, наречена i от тип Integer.
Dim пълно име като низ, команда като цяло число, i като цяло число
Проблемът, с който се занимаваме, е, че трябва да кажем на Excel VBA къде искаме да разделим низа. В случай на Смит, запетая Майк е на позиция 6, а в случай на Уилямс, Джанет запетая е на позиция 9.
2. Използваме цикъл за изпълнение на операциите върху всяко име, въведено в Excel. Първо, инициализираме променливата пълно име. След това използваме функцията Instr, за да намерим позицията на запетаята.
За i = 2 до 7
пълно име = Клетки (i, 1)
команда = InStr (пълно име, ",")
3. И накрая, искаме да напишем частта след запетаята в колона B и частта пред запетаята в колона C. Можете да постигнете това, като добавите редовете:
Клетки (i, 2). Стойност = средна (пълно име, заповед + 2)
Клетки (i, 3). Значение = Вляво (пълно име, заповед - 1)
Средно (пълно име, заглавие + 2) означава, че искаме частта от пълното име, започваща от символа „команда + 2“ (това е точно първото име).
Вляво (пълно име, заглавие - 1) означава, че искаме частта от пълното име, започваща в началото, до символа „команда -1“ (това е точно фамилното име).
4. Не забравяйте да затворите цикъла.
Следва i
5. Добавете шест имена, разделени със запетая и интервал към Range ("A2: A7").
6. Тествайте програмата.
Резултат: