VPF::отделить две части строки - Форум программистов

Mpak

Дата 23.3.2009, 12:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 445
Регистрация: 12.11.2006

Репутация: нет
Всего: 7

Честно... в VBA вообще никак... делать тут по сути нечего.. знаю как это сделать в билдере, но попросили сделать в Экселе.
Есть ячейка "xxxxxxx/GENUINE" или "yyyyyy/zzzzzzz/vvvvvvv"

Нужно произвести поиск слова GENUINE в ячейке и если оно есть, то вывести в ячейку все, что до этого GENUINE (то есть в нашем случае это "xxxxxxx"), если этого слова нет, то вывести в ячейку все что после первого слеша (в нашем случае это "zzzzzzz/vvvvvvv")

Благодарю за внимание =)

--------------------

В любой откомпилированной программе есть, по крайней мере, одна ошибка...
P.S. А у меня их минимум две...

Akina

Дата 23.3.2009, 16:28 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454

Код


Public Function fnc(dat as range) as string
if instr(cstr(dat.value),"GENUINE")>0 then
   fnc=left(dat.value,instr(cstr(dat.value),"GENUINE")-1)
else
   fnc=mid(dat.value,instr(cstr(dat.value),"/")+1)
endif
end function

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Mpak

Дата 23.3.2009, 17:43 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 445
Регистрация: 12.11.2006

Репутация: нет
Всего: 7

Akina, спасибо огромное! Выручил! smile

--------------------

В любой откомпилированной программе есть, по крайней мере, одна ошибка...
P.S. А у меня их минимум две...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »