Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Поиск значений, заключенных в символы ##, в текстовой ячейке и его замена.
 

Здравствуйте. У меня есть таблица, в которой имеются столбцы 1) Номер поля 2) Наименование поля.

Номер поляНаименование поля
254Имелось ли обращение
195Да, имелось
875Нет, не имелось

Также имеются ячейки в формате текст, например,

Если #254#=="С обращением" тогда #195#="V" ; #875#="" ;

где 254; 195; 875 - это значения ячеек столбца "Номер поля", которые состоят из трех цифр и обязательно заключен в символы ##.

Скажите, ПОЖАЛУЙСТА, как сделать так, чтобы макрос в текстовой ячейке искал трехзначные числа, заключенные в символы ##, после находил это число в столбце "Номер поля", затем брал значение в соседней ячейке столбца справа (Наименование поля) и вставлял вместо трехзначного числа, заключенного в символы ##.

Т.е. текстовая ячейка с предыдущим значением преобразовалась в:  Если #Имелось ли обращение#=="С обращением" тогда #Да, имелось#="V" ; #Нет, не имелось#="" ;

Изменено: ILDAR83 - 9 Апр 2018 08:36:27
 
без макросов
Код
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(C2;254;"Имелось ли обращение");195;"Да, имелось");875;"Нет, не имелось")
Лень двигатель прогресса, доказано!!!
 
UDF
Код
Function ЗАМЕНИТЬМН(iTxt, iTbl As Range)
Dim arr(), I&
arr = iTbl.Value
For I = 1 To UBound(arr)
    ЗАМЕНИТЬМН = IIf(ЗАМЕНИТЬМН <> Empty, _
                    Replace(ЗАМЕНИТЬМН, CStr(arr(I, 1)), arr(I, 2)), _
                    Replace(iTxt, CStr(arr(I, 1)), arr(I, 2)))
Next
End Function
Изменено: Sanja - 9 Апр 2018 09:59:28
Согласие есть продукт при полном непротивлении сторон.
 
Огромное спасибо!!!! Здоровья Вам. Особенное спасибо за макрос!
Страницы: 1
Читают тему (гостей: 1)