/ / Одвојене струне у Екцелу ВБА

Одвојени стрингови у Екцелу ВБА

У наставку ћемо погледати програм Екцел ВБА то одваја жице.

Ситуација:

Одвојени стрингови у Екцелу ВБА

Поставите командно дугме на свој радни лист и додајте следеће линије кода:

1. Прво, објављујемо променљиву названу фуллнаме типа Стринг, варијабла која се зове командовање типа Интегер и варијабла названа и типа Интегер.

Dim fullname As String, commaposition As Integer, i As Integer

Проблем са којим се бавимо је то што нам је потребнода кажем Екцел ВБА где желимо да одвојимо низ. У случају Смитха, Мике је на позицији 6, док је у случају Виллиамс, Јанет запета на позицији 9.

2. Користимо петљу за извршавање операција на сваком имену унесеном у Екцелу. Прво, иницијализирамо варијабилно пуно име. Затим, користимо Инстр функцију да пронађемо позицију зареза.

For i = 2 To 7
    fullname = Cells(i, 1).Value
    commaposition = InStr(fullname, ",")

3. На крају, желимо да напишемо део после зареза на колону Б и део испред зарезе до колоне Ц. То можете постићи додавањем линија:

Cells(i, 2).Value = Mid(fullname, commaposition + 2)
Cells(i, 3).Value = Left(fullname, commaposition - 1)

Средина (пуно име, комапинација + 2) значи да желимо да део пуног имена почиње са карактером "комапозиција + 2" (ово је управо име).

Лево (пуно име, комапинација - 1) значи да желимо да део пуног имена почиње на почетку док знак "цоммапоситион-1" (ово је управо презиме).

4. Не заборавите да затворите петљу.

Next i

5. Додајте шест имена која су одвојена зарезом и размаком за Опсег ("А2: А7").

6. Тестирајте програм.

Резултат:

Одвојени низови резултата

Такође прочитајте: