Как задать

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
adan
Сообщения: 2
Зарегистрирован: 18 янв 2008, 06:56

Кто подскажет.. в ячейках имеется текст,
"38п. Известняки серые, участками с буроватым оттенком, плотные, крепкие, с редкими обломками зеленых хлоритизированных известняков."
примерно такой.. Нужно задать каждой породе в данном случае "Известняки" номер. и вынести этот номер в соседню ячейку.
причем в тексте могут встречаться несколько пород.
заранее спс)
SAS888
Сообщения: 156
Зарегистрирован: 16 янв 2008, 08:28

Задать массив с породами, проверить вхождение каждого элемента массива в строку, в случае совпадения вывести номер элемента массива в нужную ячейку.
adan
Сообщения: 2
Зарегистрирован: 18 янв 2008, 06:56

про массив соответствий я знаю.. уже сделал..
только тут надо писать макрос? или можно организовать с помощью функций?.
я не программер.. с макросами не разбирался еще.. но видно придется)
Avsha
Сообщения: 665
Зарегистрирован: 08 сен 2005, 13:47
Откуда: KZ

Во-первых, придеться вытащить известняки из строки...

антипод функции "=СЦЕПИТЬ" в Excel
http://forum.developing.ru/showthread.php?t=7853

Копирование части содержимого объединённой ячейки
http://forum.developing.ru/showthread.php?t=7089

Перенос текста из кавычек в другую колонку
http://forum.developing.ru/showthread.php?t=5239


Во-вторых, использовть функцию ПОИСКПОЗ или ВПР для выноса номера в соседнюю ячейку.
Ответить